gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.14, 1997/07/06 14:29:34	version 1.17, 1998/12/08 22:02:53
Line 1	Line 1
\ WORDINFO.FS V1.0 17may93jaw	\ WORDINFO.FS V1.0 17may93jaw

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1998 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 63	Line 63

[IFDEF] forthstart	[IFDEF] forthstart
: xtprim? ( xt -- flag )	: xtprim? ( xt -- flag )
forthstart u< ;	dictionary-end forthstart within ; \ !! does not work for CODE words
[ELSE]	[ELSE]
: xtprim? ( xt -- flag )	: xtprim? ( xt -- flag )
dup >body swap >code-address = ;	dup >body swap >code-address = ; \ !! works only for indirect threaded code
	\ !! does not work for primitives
[THEN]	[THEN]
: prim? ( nfa -- flag )	: prim? ( nfa -- flag )
name>int xtprim? ;	name>int xtprim? ;