gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.13, 1996/08/26 10:07:22	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 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	\ INCLUDE 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 61 INCLUDE look.fs	Line 61 INCLUDE look.fs
\ the above words could be factored with create-does>, but this would	\ the above words could be factored with create-does>, but this would
\ probably make this file incompatible with cross.	\ probably make this file incompatible with cross.

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

\ None nestable IDs:	\ None nestable IDs: