[gforth] / gforth / libcc.fs  

gforth: gforth/libcc.fs

Diff for /gforth/libcc.fs between version 1.3 and 1.4

version 1.3, Wed Dec 27 13:01:20 2006 UTC version 1.4, Wed Dec 27 18:52:17 2006 UTC
Line 141 
Line 141 
     ." (void *)(" gen-par-n ." )" ;      ." (void *)(" gen-par-n ." )" ;
   
 : gen-par-d ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 )  : gen-par-d ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 )
     ." gforthd2ll(" gen-par-n ." ," gen-par-n ." )" ;      ." gforth_d2ll(" gen-par-n ." ," gen-par-n ." )" ;
   
 : gen-par-r ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 )  : gen-par-r ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 )
     swap 1- tuck ." fp[" .nb ." ]" ;      swap 1- tuck ." fp[" .nb ." ]" ;
Line 215 
Line 215 
         i chars over + c@ type-letter emit          i chars over + c@ type-letter emit
     loop      loop
     ." _" ret type-letter emit .\" (void)\n"      ." _" ret type-letter emit .\" (void)\n"
     .\" {\n  Cell *sp = gforth_SP;\n  Float *fp = gforth_FP;\n  "      .\" {\n  Cell MAYBE_UNUSED *sp = gforth_SP;\n  Float MAYBE_UNUSED *fp = gforth_FP;\n  "
     pars c-name 2over count-stacks ret gen-wrapped-stmt .\" ;\n"      pars c-name 2over count-stacks ret gen-wrapped-stmt .\" ;\n"
     ?dup-if      ?dup-if
         ."   gforth_SP = sp+" .nb .\" ;\n"          ."   gforth_SP = sp+" .nb .\" ;\n"
Line 252 
Line 252 
   
 \ test  \ test
   
 cr .( #include "engine/forth.h")  cr .( #include "engine/libcc.h")
 cr .( #include <unistd.h>)  cr .( #include <unistd.h>)
 cr ." typedef void (* func)(int);  cr ." typedef void (* func)(int);
 cr ." int test1(int,char*,long,double,void (*)(int));"  cr ." int test1(int,char*,long,double,void (*)(int));"

Generate output suitable for use with a patch program
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help