Mercurial > hg > CbC > old > device
diff mc-inline.c @ 504:48e4f6e6178c
*** empty log message ***
author | kono |
---|---|
date | Fri, 23 Dec 2005 20:14:15 +0900 |
parents | 3c95c69aa80e |
children | 5d4112735c5c |
line wrap: on
line diff
--- a/mc-inline.c Fri Dec 23 19:44:26 2005 +0900 +++ b/mc-inline.c Fri Dec 23 20:14:15 2005 +0900 @@ -20,6 +20,7 @@ st_decl(int e1){ // NMTBL *n = (NMTBL *)caddr(e1); // int stmode = cadddr(e1); + g_expr_u(cadr(e1)); } extern void @@ -45,6 +46,7 @@ fwddef(l1); } // conv->if_endif_(); + g_expr_u(cadr(e1)); } @@ -68,6 +70,7 @@ fwddef(blabel); clabel=scontinue; blabel=sbreak; + g_expr_u(cadr(e1)); } @@ -97,6 +100,7 @@ fwddef(blabel); clabel=scontinue; blabel=sbreak; + g_expr_u(cadr(e1)); } @@ -141,6 +145,7 @@ fwddef(blabel); clabel=scontinue; blabel=sbreak; + g_expr_u(cadr(e1)); } @@ -179,12 +184,14 @@ fwddef(blabel); blabel=sbreak; cslist = slist; + g_expr_u(cadr(e1)); } extern void st_comp(int e1){ g_expr_u(caddr(e1)); + g_expr_u(cadr(e1)); } @@ -194,6 +201,7 @@ // conv->break_(); if (control) gen_jmp(blabel); + g_expr_u(cadr(e1)); } @@ -202,6 +210,7 @@ checkret(); // conv->continue_(); if (control) gen_jmp(clabel); + g_expr_u(cadr(e1)); } @@ -252,6 +261,7 @@ cmpdimm(car(c),csvalue1,cslabel=fwdlabel(),1); if (l) fwddef(l); #endif + g_expr_u(cadr(e1)); } @@ -262,6 +272,7 @@ if (dlabel) error(STERR); // double default: dlabel = backdef(); // conv->case_(0,1); + g_expr_u(cadr(e1)); } @@ -274,6 +285,7 @@ // conv->return_(); // conv->return_end_(); retpending = 1; + g_expr_u(cadr(e1)); return; } // conv->return_(); @@ -301,6 +313,7 @@ } // conv->return_end_(); retpending = 1; + g_expr_u(cadr(e1)); } @@ -314,6 +327,7 @@ e1 = caddr(e); if (car(e1)==RINDIRECT) { gen_indirect_goto(cadr(e1)); + g_expr_u(cadr(e1)); return; } else if (car(e1)==FLABEL) { nlist = (NMTBL *)cadr(e1); @@ -330,6 +344,7 @@ control=0; // conv->sm_(); // conv->goto_label_(nptr0); + g_expr_u(cadr(e1)); return; } else { /* CbC continuation */ @@ -348,6 +363,7 @@ gexpr(list3(CODE,e1,env),0); control=0; // conv->sm_(); + g_expr_u(cadr(e1)); return; } } @@ -358,6 +374,7 @@ st_asm(int e1){ checkret(); g_expr_u(list3(ASM,caddr(e1),cadddr(e1))); + g_expr_u(cadr(e1)); } #endif @@ -380,11 +397,13 @@ nptr->dsp = backdef(); } // conv->label_(); + g_expr_u(cadr(e1)); } extern void st_comment(int e1){ gen_comment((char *)caddr(e1)); + g_expr_u(cadr(e1)); } /*