Mercurial > hg > CbC > old > device
comparison mc-macro.c @ 527:6b0fd56848e6 inline-asm
inline continue....
asm, lvar free
author | kono |
---|---|
date | Wed, 28 Dec 2005 21:21:57 +0900 |
parents | e58848f6ebc1 |
children | 0f24e1dba811 |
comparison
equal
deleted
inserted
replaced
526:9ff5cd7afe2f | 527:6b0fd56848e6 |
---|---|
17 static void macro_define0(); | 17 static void macro_define0(); |
18 static int macro_args(char **pchptr); | 18 static int macro_args(char **pchptr); |
19 static int macro_function(int macrop,char **pchptr,NMTBL *nptr,int history); | 19 static int macro_function(int macrop,char **pchptr,NMTBL *nptr,int history); |
20 static void local_define(char *macro,char *value); | 20 static void local_define(char *macro,char *value); |
21 static int macro_eval(int macrop,char *body0,int history); | 21 static int macro_eval(int macrop,char *body0,int history); |
22 static char * mappend(int lists,char **result); | 22 extern char * mappend(int lists,char **result); |
23 static int macro_processing(); | 23 static int macro_processing(); |
24 | 24 |
25 static void | 25 static void |
26 gen_source(char *s) | 26 gen_source(char *s) |
27 { | 27 { |
786 /* | 786 /* |
787 cancat list2("string",next) into cheap. | 787 cancat list2("string",next) into cheap. |
788 result overwrited by next cheap allocation | 788 result overwrited by next cheap allocation |
789 */ | 789 */ |
790 | 790 |
791 static char * | 791 extern char * |
792 mappend(int lists,char **result) | 792 mappend(int lists,char **result) |
793 { | 793 { |
794 char *p; | 794 char *p; |
795 *result = cheap->ptr; | 795 *result = cheap->ptr; |
796 for(;lists;lists = cadr(lists)) { | 796 for(;lists;lists = cadr(lists)) { |