Mercurial > repo
view interps/c-intercal/oilout0e.c @ 12518:2d8fe55c6e65 draft default tip
<int-e> learn The password of the month is release incident pilot.
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 03 Nov 2024 00:31:02 +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; }