gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.34, 2001/01/28 17:39:33	version 1.36, 2001/03/28 09:06:57
Line 254 VARIABLE C-Pass	Line 254 VARIABLE C-Pass
THEN	THEN
cell+ ;	cell+ ;

	: .word ( addr xt -- addr )
	look 0= IF
	drop dup 1 cells - @ dup body> look
	IF
	nip dup ." <" name>string rot wordinfo .string ." >"
	ELSE
	drop ." <" 0 .r ." >"
	THEN
	ELSE
	dup cell+ @ immediate-mask and
	IF
	bl cemit ." POSTPONE "
	THEN
	dup name>string rot wordinfo .string
	THEN ;

	: c-call
	Display? IF 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")
dup 1 cells - @ look	dup 1 cells - @ look
Line 425 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,
' (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,
Line 493 c-extender !	Line 513 c-extender !
dup >r DoTable r> swap IF drop EXIT THEN	dup >r DoTable r> swap IF drop EXIT THEN
Display?	Display?
IF	IF
look 0= IF	.word bl cemit
drop dup 1 cells - @ ." <" 0 .r ." >"
ELSE
dup cell+ @ immediate-mask and
IF
bl cemit ." POSTPONE "
THEN
dup name>string rot wordinfo .string
THEN
bl cemit
ELSE	ELSE
drop	drop
THEN ;	THEN ;