gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.35, 2001/03/17 21:36:41	version 1.38, 2002/01/04 20:31:54
Line 254 VARIABLE C-Pass	Line 254 VARIABLE C-Pass
THEN	THEN
cell+ ;	cell+ ;

: .word	: .word ( addr xt -- addr )
look 0= IF	look 0= IF
drop dup 1 cells - @ ." <" 0 .r ." >"	drop dup 1 cells - @ dup body> look
	IF
	nip dup ." <" name>string rot wordinfo .string ." >"
	ELSE
	drop ." <" 0 .r ." >"
	THEN
ELSE	ELSE
dup cell+ @ immediate-mask and	dup cell+ @ immediate-mask and
IF	IF
Line 266 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 439 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,