Mercurial > repo
view interps/c-intercal/oilout0e.c @ 5674:91d4a5b788c9
<tswett> echo \'[11,11,11,15,15,23,12],[5,5,5,3,53,45,16,26,00,20,15,16,22,25,45,91,32,11,15,27,06,01,11,01,47,22,30,13,43,21,11,13,29,61,65,17,19,12,28,17,11,01,23,20,16,20,81,18,32,25,58,22.,1985,10.301350435,1555466973690094680980000956080767,13720946704494913791885940266665466978579582015128512190078...\' > wisdom/code
author | HackBot |
---|---|
date | Wed, 24 Jun 2015 14:47:46 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
/* Automatically generated output, edit source and recompile to change */ #include "oil.h" int optimize_pass1_e(node *np) { int opted=0; unsigned long c,c1,c2,c3,c4,c5,c6,c7,c8,c9; unsigned long x,x1,x2,x3,x4,x5,x6,x7,x8,x9,r; int tempw; node *tp; checknodeactbits(np); if(np->opcode==C_PLUS && (np->lval->opcode==MESH || np->lval->opcode==MESH32) && np->lval->constant==1LU && np->rval->opcode==C_LOGICALNOT) do { x1=np->rval->rval->constant; c1=np->rval->rval->optdata; x=x1; c=c1; if(!(c==1)) break; OPTING(not21); tp=newnode(); MAYBENEWNODE(tp); tp->opcode=C_MINUS; tp->width=32; MAYBENEWNODE(tp->lval); tp->lval->opcode=MESH32; tp->lval->width=32; tp->lval->constant=(2LU); tp->rval=np->rval->rval; np->rval->rval=0; nodefree(np->lval); nodefree(np->rval); tempw=np->width; *np=*tp; np->width=tempw; free(tp); } while(0); checknodeactbits(np); if(np->opcode==C_PLUS && np->lval->opcode==C_LOGICALNOT && (np->rval->opcode==MESH || np->rval->opcode==MESH32) && np->rval->constant==1LU) do { x1=np->lval->rval->constant; c1=np->lval->rval->optdata; x=x1; c=c1; if(!(c==1)) break; OPTING(not21); tp=newnode(); MAYBENEWNODE(tp); tp->opcode=C_MINUS; tp->width=32; MAYBENEWNODE(tp->lval); tp->lval->opcode=MESH32; tp->lval->width=32; tp->lval->constant=(2LU); tp->rval=np->lval->rval; np->lval->rval=0; nodefree(np->lval); nodefree(np->rval); tempw=np->width; *np=*tp; np->width=tempw; free(tp); } while(0); checknodeactbits(np); if(np->opcode==MINGLE && (np->lval->opcode==MESH || np->lval->opcode==MESH32) && np->lval->constant==0LU) do { x1=np->rval->constant; c1=np->rval->optdata; x=x1; c=c1; if(!(c==1)) break; OPTING(nullmingle); tp=newnode(); tp=np->rval; np->rval=0; nodefree(np->lval); nodefree(np->rval); tempw=np->width; *np=*tp; np->width=tempw; free(tp); } while(0); checknodeactbits(np); if(np->opcode==C_LOGICALNOT && np->rval->opcode==C_LOGICALNOT) do { x1=np->rval->rval->constant; c1=np->rval->rval->optdata; x=x1; c=c1; if(!(c==1)) break; OPTING(redundantdoublenot); tp=newnode(); tp=np->rval->rval; np->rval->rval=0; nodefree(np->lval); nodefree(np->rval); tempw=np->width; *np=*tp; np->width=tempw; free(tp); } while(0); c=c1=c2=c3=c4=c5=c6=c7=c8=c9=0; x=x1=x2=x3=x4=x5=x6=x7=x8=x9=r=0; if(c+c1+c2+c3+c4+c5+c6+c7+c8+c9+r+ x+x1+x2+x3+x4+x5+x6+x7+x8+x9) raise(SIGSEGV); return opted; }