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.19, 2000/05/27 09:41:28
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 22	Line 22
\ If you want check values then exclude comments,	\ If you want check values then exclude comments,
\ but keep in mind that this can't be cross-compiled	\ but keep in mind that this can't be cross-compiled

\ INCLUDE look.fs	require look.fs

\ Wordinfo is a tool that checks a nfa	\ Wordinfo is a tool that checks a nfa
\ and finds out what wordtype we have	\ and finds out what wordtype we have
Line 63	Line 63

[IFDEF] forthstart	[IFDEF] forthstart
: xtprim? ( xt -- flag )	: xtprim? ( xt -- flag )
forthstart u< ;	in-dictionary? 0= ; \ !! 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? ;