gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.36, 2001/03/28 09:06:57	version 1.38, 2002/01/04 20:31:54
Line 271 VARIABLE C-Pass	Line 271 VARIABLE C-Pass
THEN ;	THEN ;

: c-call	: c-call
Display? IF dup @ body> .word bl cemit THEN cell+ ;	Display? IF ." call " dup @ body> .word bl cemit THEN cell+ ;

: .name-without ( addr -- addr )	: .name-without ( addr -- addr )
\ prints a name without () e.g. (+LOOP) or (s")	\ prints a name without () e.g. (+LOOP) or (s")
Line 444 VARIABLE C-Pass	Line 444 VARIABLE C-Pass

CREATE C-Table	CREATE C-Table
' lit A, ' c-lit A,	' lit A, ' c-lit A,
' call A, ' c-call A,	[IFDEF] call ' call A, ' c-call A, [THEN]
' (s") A, ' c-c" A,	' (s") A, ' c-c" A,
' (.") A, ' c-c" A,	' (.") A, ' c-c" A,
' "lit A, ' c-c" A,	' "lit A, ' c-c" A,