mirror of https://github.com/golang/go.git
Ken Thompson
parent
9dc4b1ca90
commit
2dd16a3208
|
|
@ -11,6 +11,7 @@ HFILES=\
|
||||||
../gc/go.h\
|
../gc/go.h\
|
||||||
../6l/6.out.h\
|
../6l/6.out.h\
|
||||||
gg.h\
|
gg.h\
|
||||||
|
opt.h\
|
||||||
|
|
||||||
OFILES=\
|
OFILES=\
|
||||||
list.$O\
|
list.$O\
|
||||||
|
|
@ -19,6 +20,9 @@ OFILES=\
|
||||||
cgen.$O\
|
cgen.$O\
|
||||||
gsubr.$O\
|
gsubr.$O\
|
||||||
obj.$O\
|
obj.$O\
|
||||||
|
peep.$O\
|
||||||
|
reg.$O\
|
||||||
|
bits.$O\
|
||||||
../6l/enam.$O\
|
../6l/enam.$O\
|
||||||
|
|
||||||
LIB=\
|
LIB=\
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,158 @@
|
||||||
|
// Inferno utils/cc/bits.c
|
||||||
|
// http://code.google.com/p/inferno-os/source/browse/utils/cc/bits.c
|
||||||
|
//
|
||||||
|
// Copyright © 1994-1999 Lucent Technologies Inc. All rights reserved.
|
||||||
|
// Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Portions Copyright © 1997-1999 Vita Nuova Limited
|
||||||
|
// Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
|
||||||
|
// Portions Copyright © 2004,2006 Bruce Ellis
|
||||||
|
// Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
|
||||||
|
// Portions Copyright © 2009 The Go Authors. All rights reserved.
|
||||||
|
//
|
||||||
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
// of this software and associated documentation files (the "Software"), to deal
|
||||||
|
// in the Software without restriction, including without limitation the rights
|
||||||
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||||
|
// copies of the Software, and to permit persons to whom the Software is
|
||||||
|
// furnished to do so, subject to the following conditions:
|
||||||
|
//
|
||||||
|
// The above copyright notice and this permission notice shall be included in
|
||||||
|
// all copies or substantial portions of the Software.
|
||||||
|
//
|
||||||
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||||
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||||
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||||
|
// THE SOFTWARE.
|
||||||
|
|
||||||
|
#include "gg.h"
|
||||||
|
#include "opt.h"
|
||||||
|
|
||||||
|
Bits
|
||||||
|
bor(Bits a, Bits b)
|
||||||
|
{
|
||||||
|
Bits c;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
c.b[i] = a.b[i] | b.b[i];
|
||||||
|
return c;
|
||||||
|
}
|
||||||
|
|
||||||
|
Bits
|
||||||
|
band(Bits a, Bits b)
|
||||||
|
{
|
||||||
|
Bits c;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
c.b[i] = a.b[i] & b.b[i];
|
||||||
|
return c;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
Bits
|
||||||
|
bnot(Bits a)
|
||||||
|
{
|
||||||
|
Bits c;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
c.b[i] = ~a.b[i];
|
||||||
|
return c;
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
|
||||||
|
int
|
||||||
|
bany(Bits *a)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
if(a->b[i])
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
beq(Bits a, Bits b)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
if(a.b[i] != b.b[i])
|
||||||
|
return 0;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
bnum(Bits a)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
int32 b;
|
||||||
|
|
||||||
|
for(i=0; i<BITS; i++)
|
||||||
|
if(b = a.b[i])
|
||||||
|
return 32*i + bitno(b);
|
||||||
|
fatal("bad in bnum");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
Bits
|
||||||
|
blsh(uint n)
|
||||||
|
{
|
||||||
|
Bits c;
|
||||||
|
|
||||||
|
c = zbits;
|
||||||
|
c.b[n/32] = 1L << (n%32);
|
||||||
|
return c;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
bset(Bits a, uint n)
|
||||||
|
{
|
||||||
|
if(a.b[n/32] & (1L << (n%32)))
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
bitno(int32 b)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0; i<32; i++)
|
||||||
|
if(b & (1L<<i))
|
||||||
|
return i;
|
||||||
|
fatal("bad in bitno");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
Qconv(Fmt *fp)
|
||||||
|
{
|
||||||
|
char str[STRINGSZ], ss[STRINGSZ], *s;
|
||||||
|
Bits bits;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
str[0] = 0;
|
||||||
|
bits = va_arg(fp->args, Bits);
|
||||||
|
while(bany(&bits)) {
|
||||||
|
i = bnum(bits);
|
||||||
|
if(str[0])
|
||||||
|
strcat(str, " ");
|
||||||
|
if(var[i].sym == S) {
|
||||||
|
sprint(ss, "$%lld", var[i].offset);
|
||||||
|
s = ss;
|
||||||
|
} else
|
||||||
|
s = var[i].sym->name;
|
||||||
|
if(strlen(str) + strlen(s) + 1 >= STRINGSZ)
|
||||||
|
break;
|
||||||
|
strcat(str, s);
|
||||||
|
bits.b[i/32] &= ~(1L << (i%32));
|
||||||
|
}
|
||||||
|
return fmtstrcpy(fp, str);
|
||||||
|
}
|
||||||
|
|
@ -99,10 +99,9 @@ if(throwreturn == N) {
|
||||||
pc->as = ARET; // overwrite AEND
|
pc->as = ARET; // overwrite AEND
|
||||||
pc->lineno = lineno;
|
pc->lineno = lineno;
|
||||||
|
|
||||||
// if(debug['N']) {
|
if(debug['N']) {
|
||||||
// regopt(ptxt);
|
regopt(ptxt);
|
||||||
// debug['N'] = 0;
|
}
|
||||||
// }
|
|
||||||
|
|
||||||
// fill in argument size
|
// fill in argument size
|
||||||
ptxt->to.offset = rnd(curfn->type->argwid, maxround);
|
ptxt->to.offset = rnd(curfn->type->argwid, maxround);
|
||||||
|
|
|
||||||
|
|
@ -39,6 +39,7 @@ struct Prog
|
||||||
Addr from; // src address
|
Addr from; // src address
|
||||||
Addr to; // dst address
|
Addr to; // dst address
|
||||||
Prog* link; // next instruction in this func
|
Prog* link; // next instruction in this func
|
||||||
|
void* reg; // pointer to containing Reg struct
|
||||||
};
|
};
|
||||||
#define P ((Prog*)0)
|
#define P ((Prog*)0)
|
||||||
|
|
||||||
|
|
@ -102,7 +103,6 @@ EXTERN Pool* poolast;
|
||||||
EXTERN Biobuf* bout;
|
EXTERN Biobuf* bout;
|
||||||
EXTERN int32 dynloc;
|
EXTERN int32 dynloc;
|
||||||
EXTERN uchar reg[D_NONE];
|
EXTERN uchar reg[D_NONE];
|
||||||
EXTERN ushort txt[NTYPE*NTYPE];
|
|
||||||
EXTERN int32 maxround;
|
EXTERN int32 maxround;
|
||||||
EXTERN int32 widthptr;
|
EXTERN int32 widthptr;
|
||||||
EXTERN Sym* symstringo; // string objects
|
EXTERN Sym* symstringo; // string objects
|
||||||
|
|
|
||||||
|
|
@ -829,76 +829,6 @@ gmove(Node *f, Node *t)
|
||||||
gins(a, f, t);
|
gins(a, f, t);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
|
||||||
buildtxt(void)
|
|
||||||
{
|
|
||||||
Type t1, t2;
|
|
||||||
int i, j, a;
|
|
||||||
|
|
||||||
memset(&t1, 0, sizeof(t1));
|
|
||||||
memset(&t2, 0, sizeof(t2));
|
|
||||||
|
|
||||||
for(i=0; i<NTYPE; i++)
|
|
||||||
for(j=0; j<NTYPE; j++) {
|
|
||||||
a = AGOK;
|
|
||||||
txt[i*NTYPE+j] = a;
|
|
||||||
t1.etype = i;
|
|
||||||
t2.etype = j;
|
|
||||||
|
|
||||||
if(isint[i] || isptr[i] || i==TBOOL) {
|
|
||||||
if(isint[j] || isptr[j] || j==TBOOL) {
|
|
||||||
dowidth(&t1);
|
|
||||||
dowidth(&t2);
|
|
||||||
if(t1.width >= t2.width) {
|
|
||||||
a = AMOVL;
|
|
||||||
if(t1.width >= 8)
|
|
||||||
a = AMOVQ;
|
|
||||||
txt[i*NTYPE+j] = a;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
switch(i) {
|
|
||||||
case TINT8:
|
|
||||||
a = AMOVBLSX;
|
|
||||||
if(t1.width >= 8)
|
|
||||||
a = AMOVBQSX;
|
|
||||||
break;
|
|
||||||
case TINT16:
|
|
||||||
a = AMOVWLSX;
|
|
||||||
if(t1.width >= 8)
|
|
||||||
a = AMOVWQSX;
|
|
||||||
break;
|
|
||||||
case TINT32:
|
|
||||||
a = AMOVLQSX;
|
|
||||||
break;
|
|
||||||
case TBOOL:
|
|
||||||
case TUINT8:
|
|
||||||
a = AMOVBLZX;
|
|
||||||
if(t1.width >= 8)
|
|
||||||
a = AMOVBQZX;
|
|
||||||
break;
|
|
||||||
case TUINT16:
|
|
||||||
a = AMOVWLZX;
|
|
||||||
if(t1.width >= 8)
|
|
||||||
a = AMOVLQZX;
|
|
||||||
break;
|
|
||||||
case TPTR32:
|
|
||||||
case TUINT32:
|
|
||||||
a = AMOVWQZX;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
txt[i*NTYPE+j] = a;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if(isfloat[j]) {
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if(isint[j] || isptr[j] || j==TBOOL) {
|
|
||||||
if(isfloat[i]) {
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void
|
void
|
||||||
regsalloc(Node *f, Type *t)
|
regsalloc(Node *f, Type *t)
|
||||||
{
|
{
|
||||||
|
|
@ -1000,7 +930,9 @@ naddr(Node *n, Addr *a)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case ONAME:
|
case ONAME:
|
||||||
a->etype = n->etype;
|
a->etype = 0;
|
||||||
|
if(n->type != T)
|
||||||
|
a->etype = n->type->etype;
|
||||||
a->offset = n->xoffset;
|
a->offset = n->xoffset;
|
||||||
a->sym = n->sym;
|
a->sym = n->sym;
|
||||||
if(a->sym == S)
|
if(a->sym == S)
|
||||||
|
|
|
||||||
|
|
@ -90,6 +90,15 @@ dumpobj(void)
|
||||||
}
|
}
|
||||||
sym = 1;
|
sym = 1;
|
||||||
|
|
||||||
|
// fix up pc
|
||||||
|
pcloc = 0;
|
||||||
|
for(pl=plist; pl!=nil; pl=pl->link) {
|
||||||
|
for(p=pl->firstpc; p!=P; p=p->link) {
|
||||||
|
p->loc = pcloc;
|
||||||
|
pcloc++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
// put out functions
|
// put out functions
|
||||||
for(pl=plist; pl!=nil; pl=pl->link) {
|
for(pl=plist; pl!=nil; pl=pl->link) {
|
||||||
|
|
||||||
|
|
@ -204,8 +213,13 @@ zaddr(Biobuf *b, Addr *a, int s)
|
||||||
t |= T_SYM;
|
t |= T_SYM;
|
||||||
|
|
||||||
switch(a->type) {
|
switch(a->type) {
|
||||||
|
|
||||||
|
case D_BRANCH:
|
||||||
|
a->offset = a->branch->loc;
|
||||||
|
|
||||||
default:
|
default:
|
||||||
t |= T_TYPE;
|
t |= T_TYPE;
|
||||||
|
|
||||||
case D_NONE:
|
case D_NONE:
|
||||||
if(a->offset != 0) {
|
if(a->offset != 0) {
|
||||||
t |= T_OFFSET;
|
t |= T_OFFSET;
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,192 @@
|
||||||
|
// Derived from Inferno utils/6c/gc.h
|
||||||
|
// http://code.google.com/p/inferno-os/source/browse/utils/6c/gc.h
|
||||||
|
//
|
||||||
|
// Copyright © 1994-1999 Lucent Technologies Inc. All rights reserved.
|
||||||
|
// Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Portions Copyright © 1997-1999 Vita Nuova Limited
|
||||||
|
// Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
|
||||||
|
// Portions Copyright © 2004,2006 Bruce Ellis
|
||||||
|
// Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
|
||||||
|
// Portions Copyright © 2009 The Go Authors. All rights reserved.
|
||||||
|
//
|
||||||
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
// of this software and associated documentation files (the "Software"), to deal
|
||||||
|
// in the Software without restriction, including without limitation the rights
|
||||||
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||||
|
// copies of the Software, and to permit persons to whom the Software is
|
||||||
|
// furnished to do so, subject to the following conditions:
|
||||||
|
//
|
||||||
|
// The above copyright notice and this permission notice shall be included in
|
||||||
|
// all copies or substantial portions of the Software.
|
||||||
|
//
|
||||||
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||||
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||||
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||||
|
// THE SOFTWARE.
|
||||||
|
|
||||||
|
|
||||||
|
#define Z N
|
||||||
|
#define Adr Addr
|
||||||
|
|
||||||
|
#define BITS 5
|
||||||
|
#define NVAR (BITS*sizeof(uint32)*8)
|
||||||
|
|
||||||
|
#define D_HI D_NONE
|
||||||
|
#define D_LO D_NONE
|
||||||
|
|
||||||
|
#define isregtype(t) ((t)>= D_AX && (t)<=D_R15)
|
||||||
|
|
||||||
|
#define BLOAD(r) band(bnot(r->refbehind), r->refahead)
|
||||||
|
#define BSTORE(r) band(bnot(r->calbehind), r->calahead)
|
||||||
|
#define LOAD(r) (~r->refbehind.b[z] & r->refahead.b[z])
|
||||||
|
#define STORE(r) (~r->calbehind.b[z] & r->calahead.b[z])
|
||||||
|
|
||||||
|
#define CLOAD 5
|
||||||
|
#define CREF 5
|
||||||
|
#define CINF 1000
|
||||||
|
#define LOOP 3
|
||||||
|
|
||||||
|
typedef struct Bits Bits;
|
||||||
|
typedef struct Reg Reg;
|
||||||
|
typedef struct Var Var;
|
||||||
|
typedef struct Rgn Rgn;
|
||||||
|
|
||||||
|
struct Bits
|
||||||
|
{
|
||||||
|
uint32 b[BITS];
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
struct Reg
|
||||||
|
{
|
||||||
|
|
||||||
|
Bits set;
|
||||||
|
Bits use1;
|
||||||
|
Bits use2;
|
||||||
|
|
||||||
|
Bits refbehind;
|
||||||
|
Bits refahead;
|
||||||
|
Bits calbehind;
|
||||||
|
Bits calahead;
|
||||||
|
Bits regdiff;
|
||||||
|
Bits act;
|
||||||
|
|
||||||
|
int32 regu;
|
||||||
|
int32 loop; /* could be shorter */
|
||||||
|
int32 rpo; /* reverse post ordering */
|
||||||
|
int32 active;
|
||||||
|
|
||||||
|
// uint32 magic;
|
||||||
|
// int32 pc;
|
||||||
|
// Reg* log5;
|
||||||
|
|
||||||
|
Reg* p1;
|
||||||
|
Reg* p2;
|
||||||
|
Reg* p2link;
|
||||||
|
Reg* s1;
|
||||||
|
Reg* s2;
|
||||||
|
Reg* link;
|
||||||
|
Prog* prog;
|
||||||
|
};
|
||||||
|
#define R ((Reg*)0)
|
||||||
|
|
||||||
|
struct Var
|
||||||
|
{
|
||||||
|
vlong offset;
|
||||||
|
Sym* sym;
|
||||||
|
char name;
|
||||||
|
char etype;
|
||||||
|
};
|
||||||
|
|
||||||
|
#define NRGN 600
|
||||||
|
struct Rgn
|
||||||
|
{
|
||||||
|
Reg* enter;
|
||||||
|
short cost;
|
||||||
|
short varno;
|
||||||
|
short regno;
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
EXTERN int32 exregoffset; // not set
|
||||||
|
EXTERN int32 exfregoffset; // not set
|
||||||
|
EXTERN Reg* firstr;
|
||||||
|
EXTERN Reg* lastr;
|
||||||
|
EXTERN Reg zreg;
|
||||||
|
EXTERN Reg* freer;
|
||||||
|
EXTERN Var var[NVAR];
|
||||||
|
EXTERN Reg** rpo2r;
|
||||||
|
EXTERN Rgn region[NRGN];
|
||||||
|
EXTERN Rgn* rgp;
|
||||||
|
EXTERN int nregion;
|
||||||
|
EXTERN int nvar;
|
||||||
|
EXTERN int32 regbits;
|
||||||
|
EXTERN int32 exregbits;
|
||||||
|
EXTERN Bits externs;
|
||||||
|
EXTERN Bits params;
|
||||||
|
EXTERN Bits consts;
|
||||||
|
EXTERN Bits addrs;
|
||||||
|
EXTERN int change;
|
||||||
|
EXTERN Bits zbits;
|
||||||
|
EXTERN uchar typechlpfd[NTYPE]; // botch
|
||||||
|
EXTERN uchar typev[NTYPE]; // botch
|
||||||
|
EXTERN int32 maxnr;
|
||||||
|
EXTERN int32* idom;
|
||||||
|
|
||||||
|
/*
|
||||||
|
* bits.c
|
||||||
|
*/
|
||||||
|
Bits bor(Bits, Bits);
|
||||||
|
Bits band(Bits, Bits);
|
||||||
|
Bits bnot(Bits);
|
||||||
|
int bany(Bits*);
|
||||||
|
int bnum(Bits);
|
||||||
|
Bits blsh(uint);
|
||||||
|
int beq(Bits, Bits);
|
||||||
|
int bset(Bits, uint);
|
||||||
|
int Qconv(Fmt *fp);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* reg.c
|
||||||
|
*/
|
||||||
|
Reg* rega(void);
|
||||||
|
int rcmp(const void*, const void*);
|
||||||
|
void regopt(Prog*);
|
||||||
|
void addmove(Reg*, int, int, int);
|
||||||
|
Bits mkvar(Reg*, Adr*);
|
||||||
|
void prop(Reg*, Bits, Bits);
|
||||||
|
void loopit(Reg*, int32);
|
||||||
|
void synch(Reg*, Bits);
|
||||||
|
uint32 allreg(uint32, Rgn*);
|
||||||
|
void paint1(Reg*, int);
|
||||||
|
uint32 paint2(Reg*, int);
|
||||||
|
void paint3(Reg*, int, int32, int);
|
||||||
|
void addreg(Adr*, int);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* peep.c
|
||||||
|
*/
|
||||||
|
void peep(void);
|
||||||
|
void excise(Reg*);
|
||||||
|
Reg* uniqp(Reg*);
|
||||||
|
Reg* uniqs(Reg*);
|
||||||
|
int regtyp(Adr*);
|
||||||
|
int anyvar(Adr*);
|
||||||
|
int subprop(Reg*);
|
||||||
|
int copyprop(Reg*);
|
||||||
|
int copy1(Adr*, Adr*, Reg*, int);
|
||||||
|
int copyu(Prog*, Adr*, Adr*);
|
||||||
|
|
||||||
|
int copyas(Adr*, Adr*);
|
||||||
|
int copyau(Adr*, Adr*);
|
||||||
|
int copysub(Adr*, Adr*, Adr*, int);
|
||||||
|
int copysub1(Prog*, Adr*, Adr*, int);
|
||||||
|
|
||||||
|
int32 RtoB(int);
|
||||||
|
int32 FtoB(int);
|
||||||
|
int BtoR(int32);
|
||||||
|
int BtoF(int32);
|
||||||
|
|
@ -0,0 +1,877 @@
|
||||||
|
// Derived from Inferno utils/6c/peep.c
|
||||||
|
// http://code.google.com/p/inferno-os/source/browse/utils/6c/peep.c
|
||||||
|
//
|
||||||
|
// Copyright © 1994-1999 Lucent Technologies Inc. All rights reserved.
|
||||||
|
// Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Portions Copyright © 1997-1999 Vita Nuova Limited
|
||||||
|
// Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
|
||||||
|
// Portions Copyright © 2004,2006 Bruce Ellis
|
||||||
|
// Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
|
||||||
|
// Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
|
||||||
|
// Portions Copyright © 2009 The Go Authors. All rights reserved.
|
||||||
|
//
|
||||||
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
// of this software and associated documentation files (the "Software"), to deal
|
||||||
|
// in the Software without restriction, including without limitation the rights
|
||||||
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||||
|
// copies of the Software, and to permit persons to whom the Software is
|
||||||
|
// furnished to do so, subject to the following conditions:
|
||||||
|
//
|
||||||
|
// The above copyright notice and this permission notice shall be included in
|
||||||
|
// all copies or substantial portions of the Software.
|
||||||
|
//
|
||||||
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||||
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||||
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||||
|
// THE SOFTWARE.
|
||||||
|
|
||||||
|
#include "gg.h"
|
||||||
|
#include "opt.h"
|
||||||
|
|
||||||
|
static int
|
||||||
|
needc(Prog *p)
|
||||||
|
{
|
||||||
|
while(p != P) {
|
||||||
|
switch(p->as) {
|
||||||
|
case AADCL:
|
||||||
|
case AADCQ:
|
||||||
|
case ASBBL:
|
||||||
|
case ASBBQ:
|
||||||
|
case ARCRL:
|
||||||
|
case ARCRQ:
|
||||||
|
return 1;
|
||||||
|
case AADDL:
|
||||||
|
case AADDQ:
|
||||||
|
case ASUBL:
|
||||||
|
case ASUBQ:
|
||||||
|
case AJMP:
|
||||||
|
case ARET:
|
||||||
|
case ACALL:
|
||||||
|
return 0;
|
||||||
|
default:
|
||||||
|
if(p->to.type == D_BRANCH)
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
p = p->link;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static Reg*
|
||||||
|
rnops(Reg *r)
|
||||||
|
{
|
||||||
|
Prog *p;
|
||||||
|
Reg *r1;
|
||||||
|
|
||||||
|
if(r != R)
|
||||||
|
for(;;){
|
||||||
|
p = r->prog;
|
||||||
|
if(p->as != ANOP || p->from.type != D_NONE || p->to.type != D_NONE)
|
||||||
|
break;
|
||||||
|
r1 = uniqs(r);
|
||||||
|
if(r1 == R)
|
||||||
|
break;
|
||||||
|
r = r1;
|
||||||
|
}
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
peep(void)
|
||||||
|
{
|
||||||
|
Reg *r, *r1, *r2;
|
||||||
|
Prog *p, *p1;
|
||||||
|
int t;
|
||||||
|
|
||||||
|
/*
|
||||||
|
* complete R structure
|
||||||
|
*/
|
||||||
|
t = 0;
|
||||||
|
for(r=firstr; r!=R; r=r1) {
|
||||||
|
r1 = r->link;
|
||||||
|
if(r1 == R)
|
||||||
|
break;
|
||||||
|
p = r->prog->link;
|
||||||
|
while(p != r1->prog)
|
||||||
|
switch(p->as) {
|
||||||
|
default:
|
||||||
|
r2 = rega();
|
||||||
|
r->link = r2;
|
||||||
|
r2->link = r1;
|
||||||
|
|
||||||
|
r2->prog = p;
|
||||||
|
r2->p1 = r;
|
||||||
|
r->s1 = r2;
|
||||||
|
r2->s1 = r1;
|
||||||
|
r1->p1 = r2;
|
||||||
|
|
||||||
|
r = r2;
|
||||||
|
t++;
|
||||||
|
|
||||||
|
case ADATA:
|
||||||
|
case AGLOBL:
|
||||||
|
case ANAME:
|
||||||
|
case ASIGNAME:
|
||||||
|
p = p->link;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
pc = 0; /* speculating it won't kill */
|
||||||
|
|
||||||
|
loop1:
|
||||||
|
|
||||||
|
t = 0;
|
||||||
|
for(r=firstr; r!=R; r=r->link) {
|
||||||
|
p = r->prog;
|
||||||
|
switch(p->as) {
|
||||||
|
case AMOVL:
|
||||||
|
case AMOVQ:
|
||||||
|
case AMOVSS:
|
||||||
|
case AMOVSD:
|
||||||
|
if(regtyp(&p->to))
|
||||||
|
if(regtyp(&p->from)) {
|
||||||
|
if(copyprop(r)) {
|
||||||
|
excise(r);
|
||||||
|
t++;
|
||||||
|
} else
|
||||||
|
if(subprop(r) && copyprop(r)) {
|
||||||
|
excise(r);
|
||||||
|
t++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case AMOVBLZX:
|
||||||
|
case AMOVWLZX:
|
||||||
|
case AMOVBLSX:
|
||||||
|
case AMOVWLSX:
|
||||||
|
if(regtyp(&p->to)) {
|
||||||
|
r1 = rnops(uniqs(r));
|
||||||
|
if(r1 != R) {
|
||||||
|
p1 = r1->prog;
|
||||||
|
if(p->as == p1->as && p->to.type == p1->from.type){
|
||||||
|
p1->as = AMOVL;
|
||||||
|
t++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case AMOVBQSX:
|
||||||
|
case AMOVBQZX:
|
||||||
|
case AMOVWQSX:
|
||||||
|
case AMOVWQZX:
|
||||||
|
case AMOVLQSX:
|
||||||
|
case AMOVLQZX:
|
||||||
|
if(regtyp(&p->to)) {
|
||||||
|
r1 = rnops(uniqs(r));
|
||||||
|
if(r1 != R) {
|
||||||
|
p1 = r1->prog;
|
||||||
|
if(p->as == p1->as && p->to.type == p1->from.type){
|
||||||
|
p1->as = AMOVQ;
|
||||||
|
t++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case AADDL:
|
||||||
|
case AADDQ:
|
||||||
|
case AADDW:
|
||||||
|
if(p->from.type != D_CONST || needc(p->link))
|
||||||
|
break;
|
||||||
|
if(p->from.offset == -1){
|
||||||
|
if(p->as == AADDQ)
|
||||||
|
p->as = ADECQ;
|
||||||
|
else if(p->as == AADDL)
|
||||||
|
p->as = ADECL;
|
||||||
|
else
|
||||||
|
p->as = ADECW;
|
||||||
|
p->from = zprog.from;
|
||||||
|
}
|
||||||
|
else if(p->from.offset == 1){
|
||||||
|
if(p->as == AADDQ)
|
||||||
|
p->as = AINCQ;
|
||||||
|
else if(p->as == AADDL)
|
||||||
|
p->as = AINCL;
|
||||||
|
else
|
||||||
|
p->as = AINCW;
|
||||||
|
p->from = zprog.from;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case ASUBL:
|
||||||
|
case ASUBQ:
|
||||||
|
case ASUBW:
|
||||||
|
if(p->from.type != D_CONST || needc(p->link))
|
||||||
|
break;
|
||||||
|
if(p->from.offset == -1) {
|
||||||
|
if(p->as == ASUBQ)
|
||||||
|
p->as = AINCQ;
|
||||||
|
else if(p->as == ASUBL)
|
||||||
|
p->as = AINCL;
|
||||||
|
else
|
||||||
|
p->as = AINCW;
|
||||||
|
p->from = zprog.from;
|
||||||
|
}
|
||||||
|
else if(p->from.offset == 1){
|
||||||
|
if(p->as == ASUBQ)
|
||||||
|
p->as = ADECQ;
|
||||||
|
else if(p->as == ASUBL)
|
||||||
|
p->as = ADECL;
|
||||||
|
else
|
||||||
|
p->as = ADECW;
|
||||||
|
p->from = zprog.from;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(t)
|
||||||
|
goto loop1;
|
||||||
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
excise(Reg *r)
|
||||||
|
{
|
||||||
|
Prog *p;
|
||||||
|
|
||||||
|
p = r->prog;
|
||||||
|
p->as = ANOP;
|
||||||
|
p->from = zprog.from;
|
||||||
|
p->to = zprog.to;
|
||||||
|
}
|
||||||
|
|
||||||
|
Reg*
|
||||||
|
uniqp(Reg *r)
|
||||||
|
{
|
||||||
|
Reg *r1;
|
||||||
|
|
||||||
|
r1 = r->p1;
|
||||||
|
if(r1 == R) {
|
||||||
|
r1 = r->p2;
|
||||||
|
if(r1 == R || r1->p2link != R)
|
||||||
|
return R;
|
||||||
|
} else
|
||||||
|
if(r->p2 != R)
|
||||||
|
return R;
|
||||||
|
return r1;
|
||||||
|
}
|
||||||
|
|
||||||
|
Reg*
|
||||||
|
uniqs(Reg *r)
|
||||||
|
{
|
||||||
|
Reg *r1;
|
||||||
|
|
||||||
|
r1 = r->s1;
|
||||||
|
if(r1 == R) {
|
||||||
|
r1 = r->s2;
|
||||||
|
if(r1 == R)
|
||||||
|
return R;
|
||||||
|
} else
|
||||||
|
if(r->s2 != R)
|
||||||
|
return R;
|
||||||
|
return r1;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
regtyp(Adr *a)
|
||||||
|
{
|
||||||
|
int t;
|
||||||
|
|
||||||
|
t = a->type;
|
||||||
|
if(t >= D_AX && t <= D_R15)
|
||||||
|
return 1;
|
||||||
|
if(t >= D_X0 && t <= D_X0+15)
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* the idea is to substitute
|
||||||
|
* one register for another
|
||||||
|
* from one MOV to another
|
||||||
|
* MOV a, R0
|
||||||
|
* ADD b, R0 / no use of R1
|
||||||
|
* MOV R0, R1
|
||||||
|
* would be converted to
|
||||||
|
* MOV a, R1
|
||||||
|
* ADD b, R1
|
||||||
|
* MOV R1, R0
|
||||||
|
* hopefully, then the former or latter MOV
|
||||||
|
* will be eliminated by copy propagation.
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
subprop(Reg *r0)
|
||||||
|
{
|
||||||
|
Prog *p;
|
||||||
|
Adr *v1, *v2;
|
||||||
|
Reg *r;
|
||||||
|
int t;
|
||||||
|
|
||||||
|
p = r0->prog;
|
||||||
|
v1 = &p->from;
|
||||||
|
if(!regtyp(v1))
|
||||||
|
return 0;
|
||||||
|
v2 = &p->to;
|
||||||
|
if(!regtyp(v2))
|
||||||
|
return 0;
|
||||||
|
for(r=uniqp(r0); r!=R; r=uniqp(r)) {
|
||||||
|
if(uniqs(r) == R)
|
||||||
|
break;
|
||||||
|
p = r->prog;
|
||||||
|
switch(p->as) {
|
||||||
|
case ACALL:
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
case AIMULL:
|
||||||
|
case AIMULQ:
|
||||||
|
case AIMULW:
|
||||||
|
if(p->to.type != D_NONE)
|
||||||
|
break;
|
||||||
|
|
||||||
|
case ADIVB:
|
||||||
|
case ADIVL:
|
||||||
|
case ADIVQ:
|
||||||
|
case ADIVW:
|
||||||
|
case AIDIVB:
|
||||||
|
case AIDIVL:
|
||||||
|
case AIDIVQ:
|
||||||
|
case AIDIVW:
|
||||||
|
case AIMULB:
|
||||||
|
case AMULB:
|
||||||
|
case AMULL:
|
||||||
|
case AMULQ:
|
||||||
|
case AMULW:
|
||||||
|
|
||||||
|
case AROLB:
|
||||||
|
case AROLL:
|
||||||
|
case AROLQ:
|
||||||
|
case AROLW:
|
||||||
|
case ARORB:
|
||||||
|
case ARORL:
|
||||||
|
case ARORQ:
|
||||||
|
case ARORW:
|
||||||
|
case ASALB:
|
||||||
|
case ASALL:
|
||||||
|
case ASALQ:
|
||||||
|
case ASALW:
|
||||||
|
case ASARB:
|
||||||
|
case ASARL:
|
||||||
|
case ASARQ:
|
||||||
|
case ASARW:
|
||||||
|
case ASHLB:
|
||||||
|
case ASHLL:
|
||||||
|
case ASHLQ:
|
||||||
|
case ASHLW:
|
||||||
|
case ASHRB:
|
||||||
|
case ASHRL:
|
||||||
|
case ASHRQ:
|
||||||
|
case ASHRW:
|
||||||
|
|
||||||
|
case AREP:
|
||||||
|
case AREPN:
|
||||||
|
|
||||||
|
case ACWD:
|
||||||
|
case ACDQ:
|
||||||
|
case ACQO:
|
||||||
|
|
||||||
|
case AMOVSL:
|
||||||
|
case AMOVSQ:
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
case AMOVL:
|
||||||
|
case AMOVQ:
|
||||||
|
if(p->to.type == v1->type)
|
||||||
|
goto gotit;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if(copyau(&p->from, v2) ||
|
||||||
|
copyau(&p->to, v2))
|
||||||
|
break;
|
||||||
|
if(copysub(&p->from, v1, v2, 0) ||
|
||||||
|
copysub(&p->to, v1, v2, 0))
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
gotit:
|
||||||
|
copysub(&p->to, v1, v2, 1);
|
||||||
|
if(debug['P']) {
|
||||||
|
print("gotit: %D->%D\n%P", v1, v2, r->prog);
|
||||||
|
if(p->from.type == v2->type)
|
||||||
|
print(" excise");
|
||||||
|
print("\n");
|
||||||
|
}
|
||||||
|
for(r=uniqs(r); r!=r0; r=uniqs(r)) {
|
||||||
|
p = r->prog;
|
||||||
|
copysub(&p->from, v1, v2, 1);
|
||||||
|
copysub(&p->to, v1, v2, 1);
|
||||||
|
if(debug['P'])
|
||||||
|
print("%P\n", r->prog);
|
||||||
|
}
|
||||||
|
t = v1->type;
|
||||||
|
v1->type = v2->type;
|
||||||
|
v2->type = t;
|
||||||
|
if(debug['P'])
|
||||||
|
print("%P last\n", r->prog);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* The idea is to remove redundant copies.
|
||||||
|
* v1->v2 F=0
|
||||||
|
* (use v2 s/v2/v1/)*
|
||||||
|
* set v1 F=1
|
||||||
|
* use v2 return fail
|
||||||
|
* -----------------
|
||||||
|
* v1->v2 F=0
|
||||||
|
* (use v2 s/v2/v1/)*
|
||||||
|
* set v1 F=1
|
||||||
|
* set v2 return success
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
copyprop(Reg *r0)
|
||||||
|
{
|
||||||
|
Prog *p;
|
||||||
|
Adr *v1, *v2;
|
||||||
|
Reg *r;
|
||||||
|
|
||||||
|
p = r0->prog;
|
||||||
|
v1 = &p->from;
|
||||||
|
v2 = &p->to;
|
||||||
|
if(copyas(v1, v2))
|
||||||
|
return 1;
|
||||||
|
for(r=firstr; r!=R; r=r->link)
|
||||||
|
r->active = 0;
|
||||||
|
return copy1(v1, v2, r0->s1, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
copy1(Adr *v1, Adr *v2, Reg *r, int f)
|
||||||
|
{
|
||||||
|
int t;
|
||||||
|
Prog *p;
|
||||||
|
|
||||||
|
if(r->active) {
|
||||||
|
if(debug['P'])
|
||||||
|
print("act set; return 1\n");
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
r->active = 1;
|
||||||
|
if(debug['P'])
|
||||||
|
print("copy %D->%D f=%d\n", v1, v2, f);
|
||||||
|
for(; r != R; r = r->s1) {
|
||||||
|
p = r->prog;
|
||||||
|
if(debug['P'])
|
||||||
|
print("%P", p);
|
||||||
|
if(!f && uniqp(r) == R) {
|
||||||
|
f = 1;
|
||||||
|
if(debug['P'])
|
||||||
|
print("; merge; f=%d", f);
|
||||||
|
}
|
||||||
|
t = copyu(p, v2, A);
|
||||||
|
switch(t) {
|
||||||
|
case 2: /* rar, cant split */
|
||||||
|
if(debug['P'])
|
||||||
|
print("; %D rar; return 0\n", v2);
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
case 3: /* set */
|
||||||
|
if(debug['P'])
|
||||||
|
print("; %D set; return 1\n", v2);
|
||||||
|
return 1;
|
||||||
|
|
||||||
|
case 1: /* used, substitute */
|
||||||
|
case 4: /* use and set */
|
||||||
|
if(f) {
|
||||||
|
if(!debug['P'])
|
||||||
|
return 0;
|
||||||
|
if(t == 4)
|
||||||
|
print("; %D used+set and f=%d; return 0\n", v2, f);
|
||||||
|
else
|
||||||
|
print("; %D used and f=%d; return 0\n", v2, f);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if(copyu(p, v2, v1)) {
|
||||||
|
if(debug['P'])
|
||||||
|
print("; sub fail; return 0\n");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if(debug['P'])
|
||||||
|
print("; sub %D/%D", v2, v1);
|
||||||
|
if(t == 4) {
|
||||||
|
if(debug['P'])
|
||||||
|
print("; %D used+set; return 1\n", v2);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if(!f) {
|
||||||
|
t = copyu(p, v1, A);
|
||||||
|
if(!f && (t == 2 || t == 3 || t == 4)) {
|
||||||
|
f = 1;
|
||||||
|
if(debug['P'])
|
||||||
|
print("; %D set and !f; f=%d", v1, f);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(debug['P'])
|
||||||
|
print("\n");
|
||||||
|
if(r->s2)
|
||||||
|
if(!copy1(v1, v2, r->s2, f))
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* return
|
||||||
|
* 1 if v only used (and substitute),
|
||||||
|
* 2 if read-alter-rewrite
|
||||||
|
* 3 if set
|
||||||
|
* 4 if set and used
|
||||||
|
* 0 otherwise (not touched)
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
copyu(Prog *p, Adr *v, Adr *s)
|
||||||
|
{
|
||||||
|
|
||||||
|
switch(p->as) {
|
||||||
|
|
||||||
|
default:
|
||||||
|
if(debug['P'])
|
||||||
|
print("unknown op %A\n", p->as);
|
||||||
|
/* SBBL; ADCL; FLD1; SAHF */
|
||||||
|
return 2;
|
||||||
|
|
||||||
|
|
||||||
|
case ANEGB:
|
||||||
|
case ANEGW:
|
||||||
|
case ANEGL:
|
||||||
|
case ANEGQ:
|
||||||
|
case ANOTB:
|
||||||
|
case ANOTW:
|
||||||
|
case ANOTL:
|
||||||
|
case ANOTQ:
|
||||||
|
if(copyas(&p->to, v))
|
||||||
|
return 2;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case ALEAL: /* lhs addr, rhs store */
|
||||||
|
case ALEAQ:
|
||||||
|
if(copyas(&p->from, v))
|
||||||
|
return 2;
|
||||||
|
|
||||||
|
|
||||||
|
case ANOP: /* rhs store */
|
||||||
|
case AMOVL:
|
||||||
|
case AMOVQ:
|
||||||
|
case AMOVBLSX:
|
||||||
|
case AMOVBLZX:
|
||||||
|
case AMOVBQSX:
|
||||||
|
case AMOVBQZX:
|
||||||
|
case AMOVLQSX:
|
||||||
|
case AMOVLQZX:
|
||||||
|
case AMOVWLSX:
|
||||||
|
case AMOVWLZX:
|
||||||
|
case AMOVWQSX:
|
||||||
|
case AMOVWQZX:
|
||||||
|
|
||||||
|
case AMOVSS:
|
||||||
|
case AMOVSD:
|
||||||
|
case ACVTSD2SL:
|
||||||
|
case ACVTSD2SQ:
|
||||||
|
case ACVTSD2SS:
|
||||||
|
case ACVTSL2SD:
|
||||||
|
case ACVTSL2SS:
|
||||||
|
case ACVTSQ2SD:
|
||||||
|
case ACVTSQ2SS:
|
||||||
|
case ACVTSS2SD:
|
||||||
|
case ACVTSS2SL:
|
||||||
|
case ACVTSS2SQ:
|
||||||
|
case ACVTTSD2SL:
|
||||||
|
case ACVTTSD2SQ:
|
||||||
|
case ACVTTSS2SL:
|
||||||
|
case ACVTTSS2SQ:
|
||||||
|
if(copyas(&p->to, v)) {
|
||||||
|
if(s != A)
|
||||||
|
return copysub(&p->from, v, s, 1);
|
||||||
|
if(copyau(&p->from, v))
|
||||||
|
return 4;
|
||||||
|
return 3;
|
||||||
|
}
|
||||||
|
goto caseread;
|
||||||
|
|
||||||
|
case AROLB:
|
||||||
|
case AROLL:
|
||||||
|
case AROLQ:
|
||||||
|
case AROLW:
|
||||||
|
case ARORB:
|
||||||
|
case ARORL:
|
||||||
|
case ARORQ:
|
||||||
|
case ARORW:
|
||||||
|
case ASALB:
|
||||||
|
case ASALL:
|
||||||
|
case ASALQ:
|
||||||
|
case ASALW:
|
||||||
|
case ASARB:
|
||||||
|
case ASARL:
|
||||||
|
case ASARQ:
|
||||||
|
case ASARW:
|
||||||
|
case ASHLB:
|
||||||
|
case ASHLL:
|
||||||
|
case ASHLQ:
|
||||||
|
case ASHLW:
|
||||||
|
case ASHRB:
|
||||||
|
case ASHRL:
|
||||||
|
case ASHRQ:
|
||||||
|
case ASHRW:
|
||||||
|
if(copyas(&p->to, v))
|
||||||
|
return 2;
|
||||||
|
if(copyas(&p->from, v))
|
||||||
|
if(p->from.type == D_CX)
|
||||||
|
return 2;
|
||||||
|
goto caseread;
|
||||||
|
|
||||||
|
case AADDB: /* rhs rar */
|
||||||
|
case AADDL:
|
||||||
|
case AADDQ:
|
||||||
|
case AADDW:
|
||||||
|
case AANDB:
|
||||||
|
case AANDL:
|
||||||
|
case AANDQ:
|
||||||
|
case AANDW:
|
||||||
|
case ADECL:
|
||||||
|
case ADECQ:
|
||||||
|
case ADECW:
|
||||||
|
case AINCL:
|
||||||
|
case AINCQ:
|
||||||
|
case AINCW:
|
||||||
|
case ASUBB:
|
||||||
|
case ASUBL:
|
||||||
|
case ASUBQ:
|
||||||
|
case ASUBW:
|
||||||
|
case AORB:
|
||||||
|
case AORL:
|
||||||
|
case AORQ:
|
||||||
|
case AORW:
|
||||||
|
case AXORB:
|
||||||
|
case AXORL:
|
||||||
|
case AXORQ:
|
||||||
|
case AXORW:
|
||||||
|
case AMOVB:
|
||||||
|
case AMOVW:
|
||||||
|
|
||||||
|
case AADDSD:
|
||||||
|
case AADDSS:
|
||||||
|
case ACMPSD:
|
||||||
|
case ACMPSS:
|
||||||
|
case ADIVSD:
|
||||||
|
case ADIVSS:
|
||||||
|
case AMAXSD:
|
||||||
|
case AMAXSS:
|
||||||
|
case AMINSD:
|
||||||
|
case AMINSS:
|
||||||
|
case AMULSD:
|
||||||
|
case AMULSS:
|
||||||
|
case ARCPSS:
|
||||||
|
case ARSQRTSS:
|
||||||
|
case ASQRTSD:
|
||||||
|
case ASQRTSS:
|
||||||
|
case ASUBSD:
|
||||||
|
case ASUBSS:
|
||||||
|
case AXORPD:
|
||||||
|
if(copyas(&p->to, v))
|
||||||
|
return 2;
|
||||||
|
goto caseread;
|
||||||
|
|
||||||
|
case ACMPL: /* read only */
|
||||||
|
case ACMPW:
|
||||||
|
case ACMPB:
|
||||||
|
case ACMPQ:
|
||||||
|
|
||||||
|
case ACOMISD:
|
||||||
|
case ACOMISS:
|
||||||
|
case AUCOMISD:
|
||||||
|
case AUCOMISS:
|
||||||
|
caseread:
|
||||||
|
if(s != A) {
|
||||||
|
if(copysub(&p->from, v, s, 1))
|
||||||
|
return 1;
|
||||||
|
return copysub(&p->to, v, s, 1);
|
||||||
|
}
|
||||||
|
if(copyau(&p->from, v))
|
||||||
|
return 1;
|
||||||
|
if(copyau(&p->to, v))
|
||||||
|
return 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case AJGE: /* no reference */
|
||||||
|
case AJNE:
|
||||||
|
case AJLE:
|
||||||
|
case AJEQ:
|
||||||
|
case AJHI:
|
||||||
|
case AJLS:
|
||||||
|
case AJMI:
|
||||||
|
case AJPL:
|
||||||
|
case AJGT:
|
||||||
|
case AJLT:
|
||||||
|
case AJCC:
|
||||||
|
case AJCS:
|
||||||
|
|
||||||
|
case AADJSP:
|
||||||
|
case AWAIT:
|
||||||
|
case ACLD:
|
||||||
|
break;
|
||||||
|
|
||||||
|
case AIMULL:
|
||||||
|
case AIMULQ:
|
||||||
|
case AIMULW:
|
||||||
|
if(p->to.type != D_NONE) {
|
||||||
|
if(copyas(&p->to, v))
|
||||||
|
return 2;
|
||||||
|
goto caseread;
|
||||||
|
}
|
||||||
|
|
||||||
|
case ADIVB:
|
||||||
|
case ADIVL:
|
||||||
|
case ADIVQ:
|
||||||
|
case ADIVW:
|
||||||
|
case AIDIVB:
|
||||||
|
case AIDIVL:
|
||||||
|
case AIDIVQ:
|
||||||
|
case AIDIVW:
|
||||||
|
case AIMULB:
|
||||||
|
case AMULB:
|
||||||
|
case AMULL:
|
||||||
|
case AMULQ:
|
||||||
|
case AMULW:
|
||||||
|
|
||||||
|
case ACWD:
|
||||||
|
case ACDQ:
|
||||||
|
case ACQO:
|
||||||
|
if(v->type == D_AX || v->type == D_DX)
|
||||||
|
return 2;
|
||||||
|
goto caseread;
|
||||||
|
|
||||||
|
case AMOVSL:
|
||||||
|
case AMOVSQ:
|
||||||
|
case AREP:
|
||||||
|
case AREPN:
|
||||||
|
if(v->type == D_CX || v->type == D_DI || v->type == D_SI)
|
||||||
|
return 2;
|
||||||
|
goto caseread;
|
||||||
|
|
||||||
|
case AJMP: /* funny */
|
||||||
|
if(s != A) {
|
||||||
|
if(copysub(&p->to, v, s, 1))
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if(copyau(&p->to, v))
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
case ARET: /* funny */
|
||||||
|
if(v->type == REGRET || v->type == FREGRET)
|
||||||
|
return 2;
|
||||||
|
if(s != A)
|
||||||
|
return 1;
|
||||||
|
return 3;
|
||||||
|
|
||||||
|
case ACALL: /* funny */
|
||||||
|
if(REGEXT && v->type <= REGEXT && v->type > exregoffset)
|
||||||
|
return 2;
|
||||||
|
if(REGARG && v->type == REGARG)
|
||||||
|
return 2;
|
||||||
|
|
||||||
|
if(s != A) {
|
||||||
|
if(copysub(&p->to, v, s, 1))
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if(copyau(&p->to, v))
|
||||||
|
return 4;
|
||||||
|
return 3;
|
||||||
|
|
||||||
|
case ATEXT: /* funny */
|
||||||
|
if(REGARG && v->type == REGARG)
|
||||||
|
return 3;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* direct reference,
|
||||||
|
* could be set/use depending on
|
||||||
|
* semantics
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
copyas(Adr *a, Adr *v)
|
||||||
|
{
|
||||||
|
if(a->type != v->type)
|
||||||
|
return 0;
|
||||||
|
if(regtyp(v))
|
||||||
|
return 1;
|
||||||
|
if(v->type == D_AUTO || v->type == D_PARAM)
|
||||||
|
if(v->offset == a->offset)
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* either direct or indirect
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
copyau(Adr *a, Adr *v)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(copyas(a, v))
|
||||||
|
return 1;
|
||||||
|
if(regtyp(v)) {
|
||||||
|
if(a->type-D_INDIR == v->type)
|
||||||
|
return 1;
|
||||||
|
if(a->index == v->type)
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* substitute s for v in a
|
||||||
|
* return failure to substitute
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
copysub(Adr *a, Adr *v, Adr *s, int f)
|
||||||
|
{
|
||||||
|
int t;
|
||||||
|
|
||||||
|
if(copyas(a, v)) {
|
||||||
|
t = s->type;
|
||||||
|
if(t >= D_AX && t <= D_R15 || t >= D_X0 && t <= D_X0+15) {
|
||||||
|
if(f)
|
||||||
|
a->type = t;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if(regtyp(v)) {
|
||||||
|
t = v->type;
|
||||||
|
if(a->type == t+D_INDIR) {
|
||||||
|
if((s->type == D_BP || s->type == D_R13) && a->index != D_NONE)
|
||||||
|
return 1; /* can't use BP-base with index */
|
||||||
|
if(f)
|
||||||
|
a->type = s->type+D_INDIR;
|
||||||
|
// return 0;
|
||||||
|
}
|
||||||
|
if(a->index == t) {
|
||||||
|
if(f)
|
||||||
|
a->index = s->type;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue