gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.3, 2006/12/27 13:01:20	version 1.4, 2006/12/27 18:52:17
Line 141 create count-stacks-types	Line 141 create count-stacks-types
." (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 create gen-wrapped-types	Line 215 create gen-wrapped-types
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 s" Library not found" exception constant	Line 252 s" Library not found" exception constant

\ 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));"

Removed from v.1.3
changed lines
	Added in v.1.4