gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.53, 2008/08/09 20:44:03	version 1.54, 2008/09/18 02:42:24
Line 431 create gen-wrapped-types	Line 431 create gen-wrapped-types
dup { descriptor }	dup { descriptor }
count { ret } count 2dup { d: pars } chars + count { d: c-name }	count { ret } count 2dup { d: pars } chars + count { d: c-name }
." void " lib-modulename 2@ type ." _LTX_" descriptor wrapper-function-name 2dup type drop free throw	." void " lib-modulename 2@ type ." _LTX_" descriptor wrapper-function-name 2dup type drop free throw
.\" (void)\n"	.\" (GFORTH_ARGS)\n"
.\" {\n Cell MAYBE_UNUSED sp = gforth_SP;\n Float MAYBE_UNUSED 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