Mercurial > hg > CbC > old > device

comparison conv/c.c @ 597:756ba7c78e4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
converter fix.
author kono
date Mon, 23 Jan 2006 14:09:31 +0900
parents 25f431685d80
children e055df7c1082
comparison
equal deleted inserted replaced
596:94d3a8c1b3e8 597:756ba7c78e4c
1 #define EXTERN /**/ 1 #define EXTERN /**/
2 2
3 #include <stdio.h> 3 #include <stdio.h>
4 #include "mc.h" 4 #include "mc.h"
5 #include "mc-parse.h" 5 #include "mc-parse.h"
6 #include "mc-codegen.h"
6 7
7 #include "conv/conv.h" 8 #include "conv/conv.h"
8 #include "conv/convdef.h" 9 #include "conv/convdef.h"
9 #include "conv/c.h" 10 #include "conv/c.h"
10 11
82 n=(NMTBL *)caddr(args); 83 n=(NMTBL *)caddr(args);
83 type_print(n->ty,n,vout); 84 type_print(n->ty,n,vout);
84 args=cadr(args); 85 args=cadr(args);
85 if(args) fprintf(vout,","); 86 if(args) fprintf(vout,",");
86 } 87 }
87 fprintf(vout,")\n{"); 88 fprintf(vout,")");
88 } 89 }
89 90
90 void 91 void
91 code_end_(){ 92 code_end_(){
92 fprintf(vout,"}"); 93 fprintf(vout,"}");
197 type_print1(cadr(n->ty),0,vout,cont); 198 type_print1(cadr(n->ty),0,vout,cont);
198 fprintf(vout,"%s(",n->nm); 199 fprintf(vout,"%s(",n->nm);
199 args=n->dsp; 200 args=n->dsp;
200 while(args) { 201 while(args) {
201 n=(NMTBL *)caddr(args); 202 n=(NMTBL *)caddr(args);
203 if (n==&str_ret) { args=cadr(args); continue; }
202 type_print(n->ty,n,vout); 204 type_print(n->ty,n,vout);
203 args=cadr(args); 205 args=cadr(args);
204 if(args) { 206 if(args) {
205 /* if(caddr(args)==(int)&str_ret) break; */ 207 /* if(caddr(args)==(int)&str_ret) break; */
206 fprintf(vout,","); 208 fprintf(vout,",");