d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

simplified a bit to make the resulting optimizer smaller; Added a

Browse source 
constant w2 that can be used in the patterns instead of 2*w
This commit is contained in:
ceriel 1989-02-02 11:41:31 +00:00
parent 9359e081db
commit f3c29355f6
9 changed files with 307 additions and 114 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
modules/src/em_opt/Makefile
View file

@ -5,7 +5,7 @@ COMPARE = $(EMHOME)/modules/compare
LINT = lint LINT = lint
BINDIR = $(EMHOME)/lib BINDIR = $(EMHOME)/lib
LIBOPT = libemopt.a LIBOPT = libemopt.a
LIBCEOPT = libemoptCE.a LIBCEOPT = libCEopt.a
# set HOWMUCH to head -20 to limit number of patterns used # set HOWMUCH to head -20 to limit number of patterns used
#HOWMUCH = head -20 #HOWMUCH = head -20
@ -78,6 +78,8 @@ NOPTLIB = $(EMHOME)/modules/lib/libread_emk.a\
$(EMHOME)/modules/lib/libemk.a\ $(EMHOME)/modules/lib/libemk.a\
$(EMHOME)/modules/lib/liballoc.a\ $(EMHOME)/modules/lib/liballoc.a\
$(EMHOME)/modules/lib/malloc.o\ $(EMHOME)/modules/lib/malloc.o\
$(EMHOME)/modules/lib/libprint.a\
$(EMHOME)/modules/lib/libstring.a\
$(EMHOME)/modules/lib/libsystem.a\ $(EMHOME)/modules/lib/libsystem.a\
$(EMHOME)/lib/em_data.a $(EMHOME)/lib/em_data.a
@ -89,7 +91,9 @@ OLINT = main.c mkstrct.c nopt.c aux.c dfa.c trans.c
OLINTLIB = $(EMHOME)/modules/lib/llib-lread_emkV.ln\ OLINTLIB = $(EMHOME)/modules/lib/llib-lread_emkV.ln\
$(EMHOME)/modules/lib/llib-lemk.ln\ $(EMHOME)/modules/lib/llib-lemk.ln\
$(EMHOME)/modules/lib/llib-lsystem.ln\ $(EMHOME)/modules/lib/llib-lsystem.ln\
$(EMHOME)/modules/lib/llib-lalloc.ln $(EMHOME)/modules/lib/llib-lalloc.ln\
$(EMHOME)/modules/lib/llib-lprint.ln\
$(EMHOME)/modules/lib/llib-lstring.ln
lintnopt: dfadummy $(OLINT) lintnopt: dfadummy $(OLINT)
$(LINT) $(LINTFLAGS) $(OLINT) $(OLINTLIB) $(LINT) $(LINTFLAGS) $(OLINT) $(OLINTLIB)
@ -101,14 +105,14 @@ $(LIBOPT): dfadummy $(NOFILES) mkstrct.o pseudo.d incalls.d
ar rc $(LIBOPT) O_*.o $(NOFILES) mkstrct.o ar rc $(LIBOPT) O_*.o $(NOFILES) mkstrct.o
-sh -c 'ranlib $(LIBOPT)' -sh -c 'ranlib $(LIBOPT)'
libCEopt.a: $(LIBCEOPT):
make clean make clean
make PREFLAGS='$(INCLDIR) -DPRIVATE=static -DCODE_EXPANDER' $(LIBOPT) make PREFLAGS='$(INCLDIR) -DPRIVATE=static -DCODE_EXPANDER' $(LIBOPT)
mv $(LIBOPT) libCEopt.a mv $(LIBOPT) $(LIBCEOPT)
make clean make clean
dfadummy: patterns parser dfadummy: patterns parser
-/lib/cpp patterns | $(HOWMUCH) >/tmp/patts -$(EMHOME)/lib/cpp patterns | $(HOWMUCH) >/tmp/patts
parser </tmp/patts parser </tmp/patts
-rm /tmp/patts -rm /tmp/patts
touch dfadummy touch dfadummy

177
modules/src/em_opt/mkstrct.c
View file

@ -93,3 +93,180 @@ EM_mkdefilb(p,opcode,deflb)
p->em_ilb = deflb; p->em_ilb = deflb;
} }
EM_Nop(opcode)
int opcode;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_opcode = opcode;
p->em_argtype = 0;
}
EM_Nnarg(opcode)
int opcode;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_opcode = opcode;
p->em_argtype = 0;
p->em_cst = 0;
}
EM_Nilb(opcode,lab)
int opcode;
label lab;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_argtype = ilb_ptyp;
p->em_opcode = opcode;
p->em_ilb = lab;
}
EM_Nnof(opcode,lab,off)
int opcode;
label lab;
arith off;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_argtype = nof_ptyp;
p->em_opcode = opcode;
p->em_dlb = lab;
p->em_off = off;
}
EM_Nsof(opcode,name,off)
int opcode;
char *name;
arith off;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_argtype = sof_ptyp;
p->em_opcode = opcode;
p->em_dnam = OO_freestr(name);
p->em_off = off;
}
EM_Ncst(opcode,cst)
int opcode;
arith cst;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_argtype = cst_ptyp;
p->em_opcode = opcode;
p->em_cst = cst;
}
EM_Npro(opcode,pnam)
int opcode;
char *pnam;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_MNEM;
p->em_argtype = pro_ptyp;
p->em_opcode = opcode;
p->em_pnam = OO_freestr(pnam);
}
EM_Ndefilb(opcode,deflb)
int opcode;
label deflb;
{
register p_instr p = GETNXTPATT();
p->em_type = EM_DEFILB;
p->em_opcode = opcode;
p->em_argtype = 0;
p->em_ilb = deflb;
}
EM_Rop(opcode)
int opcode;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_opcode = opcode;
p->em_argtype = 0;
}
EM_Rnarg(opcode)
int opcode;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_opcode = opcode;
p->em_argtype = 0;
p->em_cst = 0;
}
EM_Rilb(opcode,lab)
int opcode;
label lab;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_argtype = ilb_ptyp;
p->em_opcode = opcode;
p->em_ilb = lab;
}
EM_Rnof(opcode,lab,off)
int opcode;
label lab;
arith off;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_argtype = nof_ptyp;
p->em_opcode = opcode;
p->em_dlb = lab;
p->em_off = off;
}
EM_Rsof(opcode,name,off)
int opcode;
char *name;
arith off;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_argtype = sof_ptyp;
p->em_opcode = opcode;
p->em_dnam = OO_freestr(name);
p->em_off = off;
}
EM_Rcst(opcode,cst)
int opcode;
arith cst;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_argtype = cst_ptyp;
p->em_opcode = opcode;
p->em_cst = cst;
}
EM_Rpro(opcode,pnam)
int opcode;
char *pnam;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_MNEM;
p->em_argtype = pro_ptyp;
p->em_opcode = opcode;
p->em_pnam = OO_freestr(pnam);
}
EM_Rdefilb(opcode,deflb)
int opcode;
label deflb;
{
register p_instr p = GETNXTREPL();
p->em_type = EM_DEFILB;
p->em_opcode = opcode;
p->em_argtype = 0;
p->em_ilb = deflb;
}

2
modules/src/em_opt/nopt.c
View file

@ -29,6 +29,7 @@ static char *nextstr;
static char *laststr; static char *laststr;
arith OO_WSIZE; /* wordlength */ arith OO_WSIZE; /* wordlength */
arith OO_DWSIZE; /* 2*wordlength */
arith OO_PSIZE; /* pointer length */ arith OO_PSIZE; /* pointer length */
#ifdef STATS #ifdef STATS
@ -51,6 +52,7 @@ O_init(wsize,psize)
allocmem(); allocmem();
C_init(wsize,psize); C_init(wsize,psize);
OO_WSIZE = wsize; OO_WSIZE = wsize;
OO_DWSIZE = 2*wsize;
OO_PSIZE = psize; OO_PSIZE = psize;
} }

1
modules/src/em_opt/nopt.h
View file

@ -46,6 +46,7 @@ p_instr OO_halfflush();
extern int OO_state; extern int OO_state;
extern arith OO_WSIZE; /* wordlength */ extern arith OO_WSIZE; /* wordlength */
extern arith OO_DWSIZE; /* 2*wordlength */
extern arith OO_PSIZE; /* pointer length */ extern arith OO_PSIZE; /* pointer length */
#ifdef STATS #ifdef STATS
extern int OO_wrstats; /* statistics output */ extern int OO_wrstats; /* statistics output */

18
modules/src/em_opt/outcalls.c
View file

@ -14,7 +14,7 @@ outputincalls()
case NOARG: case NOARG:
fprintf(ofile,"%s\t|\t|\n",s); fprintf(ofile,"%s\t|\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkop(GETNXTPATT(),op_%s);\n",s); fprintf(ofile,"\tEM_Nop(op_%s);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -25,7 +25,7 @@ outputincalls()
case CSTOPT: case CSTOPT:
fprintf(ofile,"%s_narg\t|\t|\n",s); fprintf(ofile,"%s_narg\t|\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mknarg(GETNXTPATT(),op_%s);\n",s); fprintf(ofile,"\tEM_Nnarg(op_%s);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -36,7 +36,7 @@ outputincalls()
case CST: case CST:
fprintf(ofile,"%s\t| arith:n\t|\n",s); fprintf(ofile,"%s\t| arith:n\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkcst(GETNXTPATT(),op_%s,n);\n",s); fprintf(ofile,"\tEM_Ncst(op_%s,n);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -47,7 +47,7 @@ outputincalls()
case DEFILB: case DEFILB:
fprintf(ofile,"df_ilb\t| label:l\t|\n"); fprintf(ofile,"df_ilb\t| label:l\t|\n");
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkdefilb(GETNXTPATT(),op_%s,l);\n",s); fprintf(ofile,"\tEM_Ndefilb(op_%s,l);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -58,7 +58,7 @@ outputincalls()
case PNAM: case PNAM:
fprintf(ofile,"%s\t| char *:s\t|\n",s); fprintf(ofile,"%s\t| char *:s\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkpro(GETNXTPATT(),op_%s,s);\n",s); fprintf(ofile,"\tEM_Npro(op_%s,s);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -69,7 +69,7 @@ outputincalls()
case LAB: case LAB:
fprintf(ofile,"%s\t| label:l\t|\n",s); fprintf(ofile,"%s\t| label:l\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkilb(GETNXTPATT(),op_%s,l);\n",s); fprintf(ofile,"\tEM_Nilb(op_%s,l);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -80,7 +80,7 @@ outputincalls()
case EXT: case EXT:
fprintf(ofile,"%s\t| arith:n\t|\n",s); fprintf(ofile,"%s\t| arith:n\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mkcst(GETNXTPATT(),op_%s,n);\n",s); fprintf(ofile,"\tEM_Ncst(op_%s,n);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -89,7 +89,7 @@ outputincalls()
} }
fprintf(ofile,"%s_dnam\t| char *:s arith:n\t|\n",s); fprintf(ofile,"%s_dnam\t| char *:s arith:n\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mksof(GETNXTPATT(),op_%s,s,n);\n",s); fprintf(ofile,"\tEM_Nsof(op_%s,s,n);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {
@ -98,7 +98,7 @@ outputincalls()
} }
fprintf(ofile,"%s_dlb\t| label:l arith:n\t|\n",s); fprintf(ofile,"%s_dlb\t| label:l arith:n\t|\n",s);
if(op->id_used) { if(op->id_used) {
fprintf(ofile,"\tEM_mknof(GETNXTPATT(),op_%s,l,n);\n",s); fprintf(ofile,"\tEM_Nnof(op_%s,l,n);\n",s);
fprintf(ofile,"\tOO_dfa(op_%s);\n",s); fprintf(ofile,"\tOO_dfa(op_%s);\n",s);
} }
else { else {

24
modules/src/em_opt/outputdfa.c
View file

@ -241,7 +241,7 @@ sametest(s1,s2,e1,e2)
int s1,s2; int s1,s2;
struct exp_node *e1,*e2; struct exp_node *e1,*e2;
{ {
/* retrun 1 if tests are identical */ /* return 1 if tests are identical */
if(e1) { if(e1) {
if(!e2) return 0; if(!e2) return 0;
if(e1->node_type!=e2->node_type) return 0; if(e1->node_type!=e2->node_type) return 0;
@ -287,13 +287,15 @@ sametest(s1,s2,e1,e2)
if (e1->leaf_val != e2->leaf_val) return 0; if (e1->leaf_val != e2->leaf_val) return 0;
return (patterns[s1].m_elems[e1->leaf_val-1]-> return (patterns[s1].m_elems[e1->leaf_val-1]->
op_code->id_argfmt op_code->id_argfmt
== patterns[s1].m_elems[e2->leaf_val-1]-> == patterns[s2].m_elems[e2->leaf_val-1]->
op_code->id_argfmt); op_code->id_argfmt);
case PSIZE: case PSIZE:
case WSIZE: case WSIZE:
case DWSIZE:
return 1; return 1;
} }
/*NOTREACHED*/
} }
else return (e2==0); else return (e2==0);
} }
@ -431,42 +433,42 @@ outrepl(state,repl)
char *mnem = ri->op_code->id_text; char *mnem = ri->op_code->id_text;
switch(ri->op_code->id_argfmt) { switch(ri->op_code->id_argfmt) {
case NOARG: case NOARG:
fprintf(ofile,"\t\tEM_mkop(GETNXTREPL(),op_%s);\n",mnem); fprintf(ofile,"\t\tEM_Rop(op_%s);\n",mnem);
break; break;
case CST: case CST:
fprintf(ofile,"\t\tEM_mkcst(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tEM_Rcst(op_%s,",mnem);
fprintf(ofile,"(arith)"); fprintf(ofile,"(arith)");
outexp(ri->arg,state); outexp(ri->arg,state);
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
case CSTOPT: case CSTOPT:
if(ri->arg) { if(ri->arg) {
fprintf(ofile,"\t\tEM_mkcst(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tEM_Rcst(op_%s,",mnem);
fprintf(ofile,"(arith)"); fprintf(ofile,"(arith)");
outexp(ri->arg,state); outexp(ri->arg,state);
} }
else { else {
fprintf(ofile,"\t\tEM_mknarg(GETNXTREPL(),op_%s);\n",mnem); fprintf(ofile,"\t\tEM_Rnarg(op_%s);\n",mnem);
} }
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
case LAB: case LAB:
fprintf(ofile,"\t\tEM_mkilb(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tEM_Rilb(op_%s,",mnem);
outexp(ri->arg,state); outexp(ri->arg,state);
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
case DEFILB: case DEFILB:
fprintf(ofile,"\t\tEM_mkdefilb(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tEM_Rdefilb(op_%s,",mnem);
outexp(ri->arg,state); outexp(ri->arg,state);
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
case PNAM: case PNAM:
fprintf(ofile,"\t\tEM_mkpro(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tEM_Rpro(op_%s,",mnem);
outexp(ri->arg,state); outexp(ri->arg,state);
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
case EXT: case EXT:
fprintf(ofile,"\t\tOO_mkext(GETNXTREPL(),op_%s,",mnem); fprintf(ofile,"\t\tOO_mkext(GETNXTREPL(), op_%s,",mnem);
outexp(ri->arg,state); outexp(ri->arg,state);
fprintf(ofile,");\n"); fprintf(ofile,");\n");
break; break;
@ -573,6 +575,8 @@ outexp(e,state)
fprintf(ofile,"OO_PSIZE"); break; fprintf(ofile,"OO_PSIZE"); break;
case WSIZE: case WSIZE:
fprintf(ofile,"OO_WSIZE"); break; fprintf(ofile,"OO_WSIZE"); break;
case DWSIZE:
fprintf(ofile,"OO_DWSIZE"); break;
case INT: case INT:
fprintf(ofile,"%d",e->leaf_val); break; fprintf(ofile,"%d",e->leaf_val); break;
} }

6
modules/src/em_opt/parser.g
View file

@ -4,7 +4,7 @@
op1 op2 ... : action op1 op2 ... : action
and build a program to recognize then */ and build a program to recognize then */
%token SFIT, UFIT, ROTATE, PSIZE, WSIZE, DEFINED, UNDEFINED, SAMESIGN; %token SFIT, UFIT, ROTATE, PSIZE, WSIZE, DWSIZE, DEFINED, UNDEFINED, SAMESIGN;
%token SAMEEXT, SAMENAM, OFFSET, LOGAND, LOGOR, BITAND, BITOR, XOR; %token SAMEEXT, SAMENAM, OFFSET, LOGAND, LOGOR, BITAND, BITOR, XOR;
%token MINUS, PLUS, TIMES, DIV, MOD, EQ, NE, LT, LE, GT, GE, NOT, COMP; %token MINUS, PLUS, TIMES, DIV, MOD, EQ, NE, LT, LE, GT, GE, NOT, COMP;
%token LSHIFT, RSHIFT, COMMA, OPCODE, INT, UPLUS, UMINUS, PATARG; %token LSHIFT, RSHIFT, COMMA, OPCODE, INT, UPLUS, UMINUS, PATARG;
@ -266,6 +266,10 @@ exp(int level; struct exp_node **result;)
{ {
*result = mkleaf(WSIZE,0); *result = mkleaf(WSIZE,0);
} }
| DWSIZE
{
*result = mkleaf(DWSIZE,0);
}
| INT | INT
{ {
*result = mkleaf(INT,lastintval); *result = mkleaf(INT,lastintval);

178
modules/src/em_opt/patterns
View file

@ -5,9 +5,9 @@ inc loc adi w : loc $2+1 adi w
inc loc sbi w : loc $2-1 sbi w inc loc sbi w : loc $2-1 sbi w
dec loc adi w : loc $2-1 adi w dec loc adi w : loc $2-1 adi w
dec loc sbi w : loc $2+1 sbi w dec loc sbi w : loc $2+1 sbi w
ldc adi 2*w ldc sbi 2*w : ldc $1-$3 adi 2*w ldc adi w2 ldc sbi w2 : ldc $1-$3 adi w2
loc adi w loc adi w : loc $1+$3 adi w loc adi w loc adi w : loc $1+$3 adi w
ldc adi 2*w ldc adi 2*w : ldc $1+$3 adi 2*w ldc adi w2 ldc adi w2 : ldc $1+$3 adi w2
loc adi w loc mli w : loc $3 mli w loc $1*$3 adi w loc adi w loc mli w : loc $3 mli w loc $1*$3 adi w
loc adi w loc 1 sli w : loc $3 sli w loc 2*$1 adi w loc adi w loc 1 sli w : loc $3 sli w loc 2*$1 adi w
adp 0 : adp 0 :
@ -15,11 +15,11 @@ adp adp : adp $1+$2
adp lof : lof $1+$2 adp lof : lof $1+$2
adp ldf : ldf $1+$2 adp ldf : ldf $1+$2
adp !=0 loi w : lof $1 adp !=0 loi w : lof $1
adp !=0 loi 2*w : ldf $1 adp !=0 loi w2 : ldf $1
adp stf : stf $1+$2 adp stf : stf $1+$2
adp sdf : sdf $1+$2 adp sdf : sdf $1+$2
adp !=0 sti w : stf $1 adp !=0 sti w : stf $1
adp !=0 sti 2*w : sdf $1 adp !=0 sti w2 : sdf $1
asp 0 : asp 0 :
asp asp : asp $1+$2 asp asp : asp $1+$2
blm 0 : asp 2*p blm 0 : asp 2*p
@ -34,22 +34,22 @@ cmu w zne : bne $2
dvi ngi $1 : ngi $1 dvi $1 dvi ngi $1 : ngi $1 dvi $1
lae adp : lae $1+$2 lae adp : lae $1+$2
lae blm w : loi w ste $1 lae blm w : loi w ste $1
lae blm 2*w : loi 2*w sde $1 lae blm w2 : loi w2 sde $1
lae ldf : lde $1+$2 lae ldf : lde $1+$2
lae lof : loe $1+$2 lae lof : loe $1+$2
lae loi w : loe $1 lae loi w : loe $1
lae loi 2*w : lde $1 lae loi w2 : lde $1
#ifdef INT #ifdef INT
lae loi loe $1-w ? $2%w==0: lae $3 loi $2+w lae loi loe $1-w ? $2%w==0: lae $3 loi $2+w
lae loi lde $1-2*w ? $2%w==0: lae $3 loi $2+2*w lae loi lde $1-w2 ? $2%w==0: lae $3 loi $2+w2
lae $3+$4 loi lae loi ? $2%w==0 && $4%w==0: lae $3 loi $2+$4 lae $3+$4 loi lae loi ? $2%w==0 && $4%w==0: lae $3 loi $2+$4
lae sti ste $1+$2 : lae $1 sti $2+w lae sti ste $1+$2 : lae $1 sti $2+w
lae sti sde $1+$2 : lae $1 sti $2+2*w lae sti sde $1+$2 : lae $1 sti $2+w2
lae sti loc ste $1-w : loc $3 lae $4 sti $2+w lae sti loc ste $1-w : loc $3 lae $4 sti $2+w
lae sti lol ste $1-w : lol $3 lae $4 sti $2+w lae sti lol ste $1-w : lol $3 lae $4 sti $2+w
#endif #endif
lae lae blm loe $1+$3 ste $2+$3 : lae $1 lae $2 blm $3+w lae lae blm loe $1+$3 ste $2+$3 : lae $1 lae $2 blm $3+w
lae lae blm lde $1+$3 sde $2+$3 : lae $1 lae $2 blm $3+2*w lae lae blm lde $1+$3 sde $2+$3 : lae $1 lae $2 blm $3+w2
lae lae blm lae $1+$3 lae $2+$3 blm : lae $1 lae $2 blm $3+$6 lae lae blm lae $1+$3 lae $2+$3 blm : lae $1 lae $2 blm $3+$6
lae lal blm lae $1+$3 lal $2+$3 blm ? samesign($2,$5): lae lal blm lae $1+$3 lal $2+$3 blm ? samesign($2,$5):
lae $1 lal $2 blm $3+$6 lae $1 lal $2 blm $3+$6
@ -61,10 +61,10 @@ lal lal sbs w ? samesign($1,$2): loc $1-$2
lae sdf : sde $1+$2 lae sdf : sde $1+$2
lae stf : ste $1+$2 lae stf : ste $1+$2
lae sti w : ste $1 lae sti w : ste $1
lae sti 2*w : sde $1 lae sti w2 : sde $1
lal adp ? samesign($1,$1+$2): lal $1+$2 lal adp ? samesign($1,$1+$2): lal $1+$2
lal blm w : loi w stl $1 lal blm w : loi w stl $1
lal blm 2*w : loi 2*w sdl $1 lal blm w2 : loi w2 sdl $1
#ifdef INT #ifdef INT
/*lal sti loc stl $1-w ? notreg($4) && samesign($1,$4): */ /*lal sti loc stl $1-w ? notreg($4) && samesign($1,$4): */
/* loc $3 lal $4 sti $2+w */ /* loc $3 lal $4 sti $2+w */
@ -74,29 +74,29 @@ lal blm 2*w : loi 2*w sdl $1
lal ldf ? samesign($1,$1+$2): ldl $1+$2 lal ldf ? samesign($1,$1+$2): ldl $1+$2
lal lof ? samesign($1,$1+$2): lol $1+$2 lal lof ? samesign($1,$1+$2): lol $1+$2
lal loi w : lol $1 lal loi w : lol $1
lal loi 2*w : ldl $1 lal loi w2 : ldl $1
#ifdef INT #ifdef INT
/*lal loi lol $1-w ? notreg($3) && samesign($1,$3) && $2%w==0: */ /*lal loi lol $1-w ? notreg($3) && samesign($1,$3) && $2%w==0: */
/* lal $3 loi $2+w */ /* lal $3 loi $2+w */
/*lal loi ldl $1-2*w ? notreg($3) && samesign($1,$3) && $2%w==0: */ /*lal loi ldl $1-w2 ? notreg($3) && samesign($1,$3) && $2%w==0: */
/* lal $3 loi $2+2*w */ /* lal $3 loi $2+w2 */
lal loi lal loi $1-$3 ? samesign($1,$3) && $2%w==0 && $4%w==0: lal loi lal loi $1-$3 ? samesign($1,$3) && $2%w==0 && $4%w==0:
lal $3 loi $2+$4 lal $3 loi $2+$4
/*lal sti stl $1+$2 ? notreg($3) && samesign($1,$3): lal $1 sti $2+w */ /*lal sti stl $1+$2 ? notreg($3) && samesign($1,$3): lal $1 sti $2+w */
/*lal sti sdl $1+$2 ? notreg($3) && samesign($1,$3): lal $1 sti $2+2*w*/ /*lal sti sdl $1+$2 ? notreg($3) && samesign($1,$3): lal $1 sti $2+w2*/
#endif #endif
lal sdf ? samesign($1,$1+$2): sdl $1+$2 lal sdf ? samesign($1,$1+$2): sdl $1+$2
lal stf ? samesign($1,$1+$2): stl $1+$2 lal stf ? samesign($1,$1+$2): stl $1+$2
lal sti w : stl $1 lal sti w : stl $1
lal sti 2*w : sdl $1 lal sti w2 : sdl $1
#ifdef INT #ifdef INT
lde lde $1-2*w : lae $2 loi 4*w lde lde $1-w2 : lae $2 loi 4*w
lde loe $1-w : lae $2 loi 3*w lde loe $1-w : lae $2 loi 3*w
#endif #endif
lde sde $1 : lde sde $1 :
lde sde lde $1+2*w sde $2+2*w : lae $1 lae $2 blm 4*w lde sde lde $1+w2 sde $2+w2 : lae $1 lae $2 blm 4*w
#ifdef INT #ifdef INT
/*ldl ldl $1-2*w ? notreg($1) && notreg($2) && samesign($1,$2):*/ /*ldl ldl $1-w2 ? notreg($1) && notreg($2) && samesign($1,$2):*/
/* lal $2 loi 4*w */ /* lal $2 loi 4*w */
/*ldl lol $1-w ? notreg($1) && notreg($2) && samesign($1,$2): */ /*ldl lol $1-w ? notreg($1) && notreg($2) && samesign($1,$2): */
/* lal $2 loi 3*w */ /* lal $2 loi 3*w */
@ -106,28 +106,28 @@ lxa loi lxa $1 sti $2 :
lxa lof lxa $1 stf $2 : lxa lof lxa $1 stf $2 :
lxa ldf lxa $1 sdf $2 : lxa ldf lxa $1 sdf $2 :
lxa >1 stf lxa $1 lof $2 : dup w lxa $1 stf $2 lxa >1 stf lxa $1 lof $2 : dup w lxa $1 stf $2
lxa >1 sdf lxa $1 ldf $2 : dup 2*w lxa $1 sdf $2 lxa >1 sdf lxa $1 ldf $2 : dup w2 lxa $1 sdf $2
lxl lof lxl $1 stf $2 : lxl lof lxl $1 stf $2 :
lxl ldf lxl $1 sdf $2 : lxl ldf lxl $1 sdf $2 :
lxl >1 stf lxl $1 lof $2 : dup w lxl $1 stf $2 lxl >1 stf lxl $1 lof $2 : dup w lxl $1 stf $2
lxl >1 sdf lxl $1 ldf $2 : dup 2*w lxl $1 sdf $2 lxl >1 sdf lxl $1 ldf $2 : dup w2 lxl $1 sdf $2
lxa >1 sti lxa $1 loi $2 ? $2%w==0: dup $2 lxa $1 sti $2 lxa >1 sti lxa $1 loi $2 ? $2%w==0: dup $2 lxa $1 sti $2
loc -1 adi w : dec loc -1 adi w : dec
loc dec ? sfit($1-1,8*w) : loc $1-1 loc dec ? sfit($1-1,8*w) : loc $1-1
loc -1 bgt : zge $2 loc -1 bgt : zge $2
loc -1 ble : zlt $2 loc -1 ble : zlt $2
loc -1 dvi w : ngi w loc -1 dvi w : ngi w
ldc -1 dvi 2*w : ngi 2*w ldc -1 dvi w2 : ngi w2
loc -1 loe adi w : loe $2 dec loc -1 loe adi w : loe $2 dec
loc -1 lol adi w : lol $2 dec loc -1 lol adi w : lol $2 dec
loc -1 mli w : ngi w loc -1 mli w : ngi w
ldc -1 mli 2*w : ngi 2*w ldc -1 mli w2 : ngi w2
loc -1 sbi w : inc loc -1 sbi w : inc
loc inc ? sfit($1+1,8*w) : loc $1+1 loc inc ? sfit($1+1,8*w) : loc $1+1
loc 0 adi w : loc 0 adi w :
ldc 0 adi 2*w : ldc 0 adi w2 :
loc 0 ads w : loc 0 ads w :
ldc 0 ads 2*w : ldc 0 ads w2 :
zer adi $1 : zer adi $1 :
loc 0 beq : zeq $2 loc 0 beq : zeq $2
loc 0 bge : zge $2 loc 0 bge : zge $2
@ -146,33 +146,33 @@ loc 0 cmu w tne : tne
loc 0 cmu w zeq : zeq $3 loc 0 cmu w zeq : zeq $3
loc 0 cmu w zne : zne $3 loc 0 cmu w zne : zne $3
loc 0 ior w : loc 0 ior w :
ldc 0 ior 2*w : ldc 0 ior w2 :
zer ior $1 : zer ior $1 :
loc 0 ste : zre $2 loc 0 ste : zre $2
loc 0 stl : zrl $2 loc 0 stl : zrl $2
loc 0 sbi w : loc 0 sbi w :
ldc 0 sbi 2*w : ldc 0 sbi w2 :
zer sbi $1 : zer sbi $1 :
loc 0 xor w : loc 0 xor w :
ldc 0 xor 2*w : ldc 0 xor w2 :
zer xor $1 : zer xor $1 :
loc 1 adi w : inc loc 1 adi w : inc
loc 1 bge : zgt $2 loc 1 bge : zgt $2
loc 1 blt : zle $2 loc 1 blt : zle $2
loc 1 dvi w : loc 1 dvi w :
ldc 1 dvi 2*w : ldc 1 dvi w2 :
loc 1 dvu w : loc 1 dvu w :
loc 1 dvu 2*w : loc 1 dvu w2 :
loc 1 loe adi w : loe $2 inc loc 1 loe adi w : loe $2 inc
loc 1 lol adi w : lol $2 inc loc 1 lol adi w : lol $2 inc
loc 0 mli w : asp w loc 0 loc 0 mli w : asp w loc 0
ldc 0 mli 2*w : asp 2*w ldc 0 ldc 0 mli w2 : asp w2 ldc 0
loc 0 mlu w : asp w loc 0 loc 0 mlu w : asp w loc 0
ldc 0 mlu 2*w : asp 2*w ldc 0 ldc 0 mlu w2 : asp w2 ldc 0
loc 1 mli w : loc 1 mli w :
ldc 1 mli 2*w : ldc 1 mli w2 :
loc 1 mlu w : loc 1 mlu w :
ldc 1 mlu 2*w : ldc 1 mlu w2 :
loc 1 sbi w : dec loc 1 sbi w : dec
loc loe mli w : loe $2 loc $1 mli w loc loe mli w : loe $2 loc $1 mli w
loc loe mlu w : loe $2 loc $1 mlu w loc loe mlu w : loe $2 loc $1 mlu w
@ -184,12 +184,12 @@ loc lol mlu w : lol $2 loc $1 mlu w
loc lol adi w loc : lol $2 loc $1 adi w loc $4 loc lol adi w loc : lol $2 loc $1 adi w loc $4
loc lol adi w inc : lol $2 loc $1 adi w dec loc lol adi w inc : lol $2 loc $1 adi w dec
loc lol adi w dec : lol $2 loc $1 adi w dec loc lol adi w dec : lol $2 loc $1 adi w dec
ldc lde mli 2*w : lde $2 ldc $1 mli 2*w ldc lde mli w2 : lde $2 ldc $1 mli w2
ldc lde mlu 2*w : lde $2 ldc $1 mlu 2*w ldc lde mlu w2 : lde $2 ldc $1 mlu w2
ldc lde adi 2*w : lde $2 ldc $1 adi 2*w ldc lde adi w2 : lde $2 ldc $1 adi w2
ldc ldl mli 2*w : ldl $2 ldc $1 mli 2*w ldc ldl mli w2 : ldl $2 ldc $1 mli w2
ldc ldl mlu 2*w : ldl $2 ldc $1 mlu 2*w ldc ldl mlu w2 : ldl $2 ldc $1 mlu w2
ldc ldl adi 2*w : ldl $2 ldc $1 adi 2*w ldc ldl adi w2 : ldl $2 ldc $1 adi w2
loc 2 mli w : loc 1 sli w loc 2 mli w : loc 1 sli w
loc 4 mli w : loc 2 sli w loc 4 mli w : loc 2 sli w
loc 8 mli w : loc 3 sli w loc 8 mli w : loc 3 sli w
@ -249,7 +249,7 @@ loc zrf undefined : zrf $1
loc los w : loi $1 loc los w : loi $1
loc sts w : sti $1 loc sts w : sti $1
loc ads w : adp $1 loc ads w : adp $1
ldc ads 2*w ? sfit($1,8*w): adp $1 ldc ads w2 ? sfit($1,8*w): adp $1
loc ass w : asp $1 loc ass w : asp $1
loc bls w : blm $1 loc bls w : blm $1
loc dus w : dup $1 loc dus w : dup $1
@ -295,12 +295,12 @@ loe loe $1 : loe $1 dup w
#endif #endif
loe ste $1 : loe ste $1 :
lol blm w ? p==w : loi w sil $1 lol blm w ? p==w : loi w sil $1
ldl blm w ? p==2*w : loi w sil $1 ldl blm w ? p==w2 : loi w sil $1
lol dec stl $1 : del $1 lol dec stl $1 : del $1
lol inc stl $1 : inl $1 lol inc stl $1 : inl $1
lol loc 0 mli w : loc 0 lol loc 0 mli w : loc 0
lol loi w ? w==p : lil $1 lol loi w ? w==p : lil $1
ldl loi w ? p==2*w : lil $1 ldl loi w ? p==w2 : lil $1
#ifdef INT #ifdef INT
/*lol lol $1-w ? notreg($1) && notreg($2) && samesign($1,$2): */ /*lol lol $1-w ? notreg($1) && notreg($2) && samesign($1,$2): */
/* ldl $2 */ /* ldl $2 */
@ -326,7 +326,7 @@ lol lol $1 : lol $1 dup w
#endif #endif
lol stl $1: lol stl $1:
lol sti w ? p==w : sil $1 lol sti w ? p==w : sil $1
ldl sti w ? p==2*w : sil $1 ldl sti w ? p==w2 : sil $1
mli ngi $1: ngi $1 mli $1 mli ngi $1: ngi $1 mli $1
ngi adi $1: sbi $1 ngi adi $1: sbi $1
ngf adf $1: sbf $1 ngf adf $1: sbf $1
@ -335,23 +335,23 @@ ngf sbf $1: adf $1
ngi ngi $1: ngi ngi $1:
ngf ngf $1: ngf ngf $1:
#ifdef INT #ifdef INT
sde sde $1+2*w : lae $1 sti 4*w sde sde $1+w2 : lae $1 sti 4*w
sde ste $1+2*w : lae $1 sti 3*w sde ste $1+w2 : lae $1 sti 3*w
sde loc ste $1-w : loc $2 lae $3 sti 3*w sde loc ste $1-w : loc $2 lae $3 sti 3*w
sde lol ste $1-w : lol $2 lae $3 sti 3*w sde lol ste $1-w : lol $2 lae $3 sti 3*w
sde lde $1 : dup 2*w sde $1 sde lde $1 : dup w2 sde $1
#endif #endif
sdf 0 : sti 2*w sdf 0 : sti w2
#ifdef INT #ifdef INT
/*sdl sdl $1+2*w ? notreg($1) && notreg($2) && samesign($1,$2): */ /*sdl sdl $1+w2 ? notreg($1) && notreg($2) && samesign($1,$2): */
/* lal $1 sti 4*w */ /* lal $1 sti 4*w */
/*sdl stl $1+2*w ? notreg($1) && notreg($2) && samesign($1,$2): */ /*sdl stl $1+w2 ? notreg($1) && notreg($2) && samesign($1,$2): */
/* lal $1 sti 3*w */ /* lal $1 sti 3*w */
/*sdl loc stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */ /*sdl loc stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */
/* loc $2 lal $3 sti 3*w */ /* loc $2 lal $3 sti 3*w */
/*sdl loe stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */ /*sdl loe stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */
/* loe $2 lal $3 sti 3*w */ /* loe $2 lal $3 sti 3*w */
sdl ldl $1 : dup 2*w sdl $1 sdl ldl $1 : dup w2 sdl $1
ste loe $1 : dup w ste $1 ste loe $1 : dup w ste $1
ste ste $1-w : sde $2 ste ste $1-w : sde $2
ste loc ste $1-w : loc $2 sde $3 ste loc ste $1-w : loc $2 sde $3
@ -359,7 +359,7 @@ ste lol ste $1-w : lol $2 sde $3
stl lol $1 : dup w stl $1 stl lol $1 : dup w stl $1
#endif #endif
stf 0 : sti w stf 0 : sti w
sdl ldl $1 ret 2*w : ret 2*w sdl ldl $1 ret w2 : ret w2
#ifdef INT #ifdef INT
/*stl stl $1+w ? notreg($1) && notreg($2) && samesign($1,$2): sdl $1 */ /*stl stl $1+w ? notreg($1) && notreg($2) && samesign($1,$2): sdl $1 */
/*stl loc stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */ /*stl loc stl $1-w ? notreg($1) && notreg($3) && samesign($1,$3): */
@ -370,9 +370,9 @@ sdl ldl $1 ret 2*w : ret 2*w
stl lol $1 ret w : ret w stl lol $1 ret w : ret w
lal sti lal $1 loi $2 ret $2 : ret $2 lal sti lal $1 loi $2 ret $2 : ret $2
loc sbi w loc sbi w : loc $1+$3 sbi w loc sbi w loc sbi w : loc $1+$3 sbi w
ldc sbi 2*w ldc sbi 2*w : ldc $1+$3 sbi 2*w ldc sbi w2 ldc sbi w2 : ldc $1+$3 sbi w2
loc sbi w loc adi w : loc $1-$3 sbi w loc sbi w loc adi w : loc $1-$3 sbi w
ldc sbi 2*w ldc adi 2*w : ldc $1-$3 sbi 2*w ldc sbi w2 ldc adi w2 : ldc $1-$3 sbi w2
loc sbi w loc mli w : loc $3 mli w loc $1*$3 sbi w loc sbi w loc mli w : loc $3 mli w loc $1*$3 sbi w
loc sbi w loc 1 sli w : loc $3 sli w loc 2*$1 sbi w loc sbi w loc 1 sli w : loc $3 sli w loc 2*$1 sbi w
teq teq : tne teq teq : tne
@ -427,9 +427,9 @@ loe $4 dec dup w ste : dee $1 loe $1
lol $4 inc dup w stl : inl $1 lol $1 lol $4 inc dup w stl : inl $1 lol $1
lol $4 dec dup w stl : del $1 lol $1 lol $4 dec dup w stl : del $1 lol $1
adp dup p ste adp -$1 ? p==w : dup p adp $1 ste $3 adp dup p ste adp -$1 ? p==w : dup p adp $1 ste $3
adp dup p sde adp -$1 ? p==2*w : dup p adp $1 sde $3 adp dup p sde adp -$1 ? p==w2 : dup p adp $1 sde $3
adp dup p stl adp -$1 ? p==w : dup p adp $1 stl $3 adp dup p stl adp -$1 ? p==w : dup p adp $1 stl $3
adp dup p sdl adp -$1 ? p==2*w : dup p adp $1 sdl $3 adp dup p sdl adp -$1 ? p==w2 : dup p adp $1 sdl $3
inc dup w ste dec : dup w inc ste $3 inc dup w ste dec : dup w inc ste $3
inc dup w stl dec : dup w inc stl $3 inc dup w stl dec : dup w inc stl $3
#endif #endif
@ -452,9 +452,9 @@ lin ret : ret $2
lin bra : bra $2 lin bra : bra $2
#ifdef INT #ifdef INT
dup p stl loi w ? p==w : stl $2 lil $2 dup p stl loi w ? p==w : stl $2 lil $2
dup p sdl loi w ? p==2*w : sdl $2 lil $2 dup p sdl loi w ? p==w2 : sdl $2 lil $2
dup p stl sti w ? p==w : stl $2 sil $2 dup p stl sti w ? p==w : stl $2 sil $2
dup p sdl sti w ? p==2*w : sdl $2 sil $2 dup p sdl sti w ? p==w2 : sdl $2 sil $2
#endif #endif
loc 0 cms w : tne loc 0 cms w : tne
zer w : loc 0 zer w : loc 0
@ -464,14 +464,14 @@ loc loc mli w ? sfit($1*$2,8*w) : loc $1*$2
loc loc !=0 dvi w : loc $1/$2 loc loc !=0 dvi w : loc $1/$2
loc loc and w : loc $1&$2 loc loc and w : loc $1&$2
loc loc ior w : loc $1|$2 loc loc ior w : loc $1|$2
loc 0 loc 0 ior 2*w : loc 0 loc 0 ior w2 :
loc loc xor w : loc $1^$2 loc loc xor w : loc $1^$2
loc 0 loc 0 xor 2*w : loc 0 loc 0 xor w2 :
loc loc rol w : loc rotate($1,$2) loc loc rol w : loc rotate($1,$2)
loc loc ror w : loc rotate($1,8*w-$2) loc loc ror w : loc rotate($1,8*w-$2)
loc ngi w ? sfit(-$1,8*w) : loc -$1 loc ngi w ? sfit(-$1,8*w) : loc -$1
loc com w : loc ~$1 loc com w : loc ~$1
ldc ngi 2*w : ldc -$1 ldc ngi w2 : ldc -$1
/*loc lae aar w ? $1>=rom(2,0) && $1 <= rom(2,0)+rom(2,1) : */ /*loc lae aar w ? $1>=rom(2,0) && $1 <= rom(2,0)+rom(2,1) : */
/* adp ($1-rom(2,0))*rom(2,2) */ /* adp ($1-rom(2,0))*rom(2,2) */
/*loc lae lar w ? $1>=rom(2,0) && $1 <= rom(2,0)+rom(2,1) : */ /*loc lae lar w ? $1>=rom(2,0) && $1 <= rom(2,0)+rom(2,1) : */
@ -515,15 +515,15 @@ lal loi >4*w lal sti $2 ? ( $3<=$1-$2 || $3>=$1+$2 ) :
lae loi >4*w lae sti $2 ? ($3<=$1-$2 || $3>=$1+$2) : lae loi >4*w lae sti $2 ? ($3<=$1-$2 || $3>=$1+$2) :
lae $1 lae $3 blm $2 lae $1 lae $3 blm $2
loc 0 loc w loc cif : zrf $3 loc 0 loc w loc cif : zrf $3
loc >=0 loc w loc 2*w ciu : ldc $1 loc >=0 loc w loc w2 ciu : ldc $1
loc loc w loc 2*w cii : ldc $1 loc loc w loc w2 cii : ldc $1
loi loc >=0 inn $1 ? $2<$1*8 : loi loc >=0 inn $1 ? $2<$1*8 :
lof ($2/(8*w))*w loc $2&(8*w-1) inn w lof ($2/(8*w))*w loc $2&(8*w-1) inn w
ldl loc >=0 inn 2*w ? $2<16*w : ldl loc >=0 inn w2 ? $2<16*w :
lol $1+($2/(8*w))*w loc $2&(8*w-1) inn w lol $1+($2/(8*w))*w loc $2&(8*w-1) inn w
lde loc >=0 inn 2*w ? $2<16*w : lde loc >=0 inn w2 ? $2<16*w :
loe $1+($2/(8*w))*w loc $2&(8*w-1) inn w loe $1+($2/(8*w))*w loc $2&(8*w-1) inn w
ldf loc >=0 inn 2*w ? $2<16*w : ldf loc >=0 inn w2 ? $2<16*w :
lof $1+($2/(8*w))*w loc $2&(8*w-1) inn w lof $1+($2/(8*w))*w loc $2&(8*w-1) inn w
loc inn ? $1<0 || $1>=8*$2 : asp $2 loc 0 loc inn ? $1<0 || $1>=8*$2 : asp $2 loc 0
lol loc adi w stl $1 : loc $2 lol $1 adi w stl $4 lol loc adi w stl $1 : loc $2 lol $1 adi w stl $4
@ -546,50 +546,50 @@ loe loe !=$1 and w ste $1 : loe $2 loe $1 and w ste $4
loe lol and w ste $1 : lol $2 loe $1 and w ste $4 loe lol and w ste $1 : lol $2 loe $1 and w ste $4
loi asp $1 : asp p loi asp $1 : asp p
lal loi 4*w loc loc loc loc ior 4*w ? ($3==0)+($4==0)+($5==0)+($6==0)>2 : lal loi 4*w loc loc loc loc ior 4*w ? ($3==0)+($4==0)+($5==0)+($6==0)>2 :
lol $1+3*w loc $3 ior w lol $1+2*w loc $4 ior w lol $1+w loc $5 ior w lol $1 loc $6 ior w lol $1+3*w loc $3 ior w lol $1+w2 loc $4 ior w lol $1+w loc $5 ior w lol $1 loc $6 ior w
loc dup 2 stl loc dup 2 stl : loc dup 2 stl loc dup 2 stl :
loc $1 stl $3 loc $4 stl $6 loc $1 loc $4 loc $1 stl $3 loc $4 stl $6 loc $1 loc $4
lol lol adp stl $2 sti != p ? p==w : lol $1 sti $5 lol $2 adp $3 stl $4 lol lol adp stl $2 sti != p ? p==w : lol $1 sti $5 lol $2 adp $3 stl $4
ldl ldl adp sdl $2 sti != p ? p==2*w : ldl $1 sti $5 ldl $2 adp $3 sdl $4 ldl ldl adp sdl $2 sti != p ? p==w2 : ldl $1 sti $5 ldl $2 adp $3 sdl $4
loe loe adp ste $2 sti !=p ? p==w : loe $1 sti $5 loe $2 adp $3 ste $4 loe loe adp ste $2 sti !=p ? p==w : loe $1 sti $5 loe $2 adp $3 ste $4
lde lde adp sde $2 sti !=p ? p==2*w : lde $1 sti $5 lde $2 adp $3 sde $4 lde lde adp sde $2 sti !=p ? p==w2 : lde $1 sti $5 lde $2 adp $3 sde $4
#ifndef INT #ifndef INT
dup w stl : stl $2 lol $2 dup w stl : stl $2 lol $2
dup w ste : ste $2 loe $2 dup w ste : ste $2 loe $2
dup w sil : sil $2 lil $2 dup w sil : sil $2 lil $2
dup w loe sti w ? p==w : loe $2 sti w loe $2 loi w dup w loe sti w ? p==w : loe $2 sti w loe $2 loi w
dup w lde sti w ? p==2*w : lde $2 sti w lde $2 loi w dup w lde sti w ? p==w2 : lde $2 sti w lde $2 loi w
dup w lol stf ? p==w : lol $2 stf $3 lol $2 lof $3 dup w lol stf ? p==w : lol $2 stf $3 lol $2 lof $3
dup w ldl stf ? p==2*w : ldl $2 stf $3 ldl $2 lof $3 dup w ldl stf ? p==w2 : ldl $2 stf $3 ldl $2 lof $3
dup w loe stf ? p==w : loe $2 stf $3 loe $2 lof $3 dup w loe stf ? p==w : loe $2 stf $3 loe $2 lof $3
dup w lde stf ? p==2*w : lde $2 stf $3 lde $2 lof $3 dup w lde stf ? p==w2 : lde $2 stf $3 lde $2 lof $3
dup 2*w sdl : sdl $2 ldl $2 dup w2 sdl : sdl $2 ldl $2
dup 2*w sde : sde $2 lde $2 dup w2 sde : sde $2 lde $2
dup 2*w lol sti 2*w ? p==w : lol $2 sti 2*w lol $2 loi 2*w dup w2 lol sti w2 ? p==w : lol $2 sti w2 lol $2 loi w2
dup 2*w ldl sti 2*w ? p==2*w : ldl $2 sti 2*w ldl $2 loi 2*w dup w2 ldl sti w2 ? p==w2 : ldl $2 sti w2 ldl $2 loi w2
dup 2*w loe sti 2*w ? p==w : loe $2 sti 2*w loe $2 loi 2*w dup w2 loe sti w2 ? p==w : loe $2 sti w2 loe $2 loi w2
dup 2*w lde sti 2*w ? p==2*w : lde $2 sti 2*w lde $2 loi 2*w dup w2 lde sti w2 ? p==w2 : lde $2 sti w2 lde $2 loi w2
dup 2*w lol sdf ? p==w : lol $2 sdf $3 lol $2 ldf $3 dup w2 lol sdf ? p==w : lol $2 sdf $3 lol $2 ldf $3
dup 2*w ldl sdf ? p==2*w : ldl $2 sdf $3 ldl $2 ldf $3 dup w2 ldl sdf ? p==w2 : ldl $2 sdf $3 ldl $2 ldf $3
dup 2*w loe sdf ? p==w : loe $2 sdf $3 loe $2 ldf $3 dup w2 loe sdf ? p==w : loe $2 sdf $3 loe $2 ldf $3
dup 2*w lde sdf ? p==2*w : lde $2 sdf $3 lde $2 ldf $3 dup w2 lde sdf ? p==w2 : lde $2 sdf $3 lde $2 ldf $3
lol dup w : lol $1 lol $1 lol dup w : lol $1 lol $1
loe dup w : loe $1 loe $1 loe dup w : loe $1 loe $1
lil dup w : lil $1 lil $1 lil dup w : lil $1 lil $1
loe loi w dup 2 ? p==w : loe $1 loi w loe $1 loi w loe loi w dup 2 ? p==w : loe $1 loi w loe $1 loi w
lde loi w dup 2 ? p==2*w : lde $1 loi w lde $1 loi w lde loi w dup 2 ? p==w2 : lde $1 loi w lde $1 loi w
ldl dup 2*w : ldl $1 ldl $1 ldl dup w2 : ldl $1 ldl $1
lde dup 2*w : lde $1 lde $1 lde dup w2 : lde $1 lde $1
#endif #endif
adp stl lol $2 adp -$1 ? p==w : dup p adp $1 stl $2 adp stl lol $2 adp -$1 ? p==w : dup p adp $1 stl $2
adp sdl ldl $2 adp -$1 ? p==2*w : dup p adp $1 sdl $2 adp sdl ldl $2 adp -$1 ? p==w2 : dup p adp $1 sdl $2
adp ste loe $2 adp -$1 ? p==w : dup p adp $1 ste $2 adp ste loe $2 adp -$1 ? p==w : dup p adp $1 ste $2
adp sde lde $2 adp -$1 ? p==2*w : dup p adp $1 sde $2 adp sde lde $2 adp -$1 ? p==w2 : dup p adp $1 sde $2
adp sil lil $2 adp -$1 ? p==w : dup p adp $1 sil $2 adp sil lil $2 adp -$1 ? p==w : dup p adp $1 sil $2
adp lol sti p lol $2 loi p adp -$1 ? p==w : dup p adp $1 lol $2 sti p adp lol sti p lol $2 loi p adp -$1 ? p==w : dup p adp $1 lol $2 sti p
adp ldl sti p ldl $2 loi p adp -$1 ? p==2*w : dup p adp $1 ldl $2 sti p adp ldl sti p ldl $2 loi p adp -$1 ? p==w2 : dup p adp $1 ldl $2 sti p
adp loe sti p loe $2 loi p adp -$1 ? p==w : dup p adp $1 loe $2 sti p adp loe sti p loe $2 loi p adp -$1 ? p==w : dup p adp $1 loe $2 sti p
adp lde sti p lde $2 loi p adp -$1 ? p==2*w : dup p adp $1 lde $2 sti p adp lde sti p lde $2 loi p adp -$1 ? p==w2 : dup p adp $1 lde $2 sti p
/* dead code patterns */ /* dead code patterns */
bra aar : bra $1 bra aar : bra $1
bra adf : bra $1 bra adf : bra $1

1
modules/src/em_opt/syntax.l
View file

@ -12,6 +12,7 @@ sfit return(SFIT);
ufit return(UFIT); ufit return(UFIT);
rotate return(ROTATE); rotate return(ROTATE);
p return(PSIZE); p return(PSIZE);
w2 return(DWSIZE);
w return(WSIZE); w return(WSIZE);
defined return(DEFINED); defined return(DEFINED);
undefined return(UNDEFINED); undefined return(UNDEFINED);