Mercurial > hg > CbC > old > device
diff conv/c.c @ 79:82d0e30f61dd
*** empty log message ***
author | kono |
---|---|
date | Mon, 03 Mar 2003 04:56:51 +0900 |
parents | 2b8ba655e572 |
children | 25654dc29ecc |
line wrap: on
line diff
--- a/conv/c.c Sun Mar 02 23:46:10 2003 +0900 +++ b/conv/c.c Mon Mar 03 04:56:51 2003 +0900 @@ -77,10 +77,12 @@ } void -code_(NMTBL *n,int args){ +code_(NMTBL *n){ + int args; + args=n->dsp; fprintf(vout,"code %s(",n->nm); while(args) { - n=(NMTBL *)car(args); + n=(NMTBL *)caddr(args); type_print(n->ty,n,vout); args=cadr(args); if(args) fprintf(vout,","); @@ -193,16 +195,17 @@ } void -function_(NMTBL *n,int args,int cont){ +function_(NMTBL *n,int cont){ + int args; type_print1(n->ty,0,vout,cont); fprintf(vout,"%s(",n->nm); - args=reverse0(args); + args=n->dsp; while(args) { - n=(NMTBL *)car(args); + n=(NMTBL *)caddr(args); type_print(n->ty,n,vout); args=cadr(args); if(args) { - if(car(args)==(int)&str_ret) break; + if(caddr(args)==(int)&str_ret) break; fprintf(vout,","); } }