gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.29, 2008/02/12 16:44:58	version 1.30, 2008/02/12 20:28:51
Line 372 create gen-par-types	Line 372 create gen-par-types
." ," gen-par-n ." ," gen-par-n ." )" ;	." ," gen-par-n ." ," gen-par-n ." )" ;

: gen-wrapped-r ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )	: gen-wrapped-r ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
2dup gen-par-r 2>r ." =" gen-wrapped-void 2r> ;	2dup gen-par-r 2>r ." =" gen-wrapped-call 2r> ;

: gen-wrapped-func ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )	: gen-wrapped-func ( pars c-name fp-change1 sp-change1 -- fp-change sp-change )
gen-wrapped-a ;	gen-wrapped-a ;