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,",");
 	}
     }