gforth/ans-report.fs - diff

Return to ans-report.fs CVS log

Up to [gforth] / gforth

version 1.7, 2002/03/22 18:40:00	version 1.11, 2003/03/22 10:04:06
Line 1	Line 1
\ report words used from the various wordsets	\ report words used from the various wordsets

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

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

Line 42	Line 42
vocabulary ans-report-words ans-report-words definitions	vocabulary ans-report-words ans-report-words definitions

: wordset ( "name" -- )	: wordset ( "name" -- )
lastxt >body	latestxt >body
create	create
0 , \ link to next wordset	0 , \ link to next wordset
0 0 2, \ array of nfas	0 0 2, \ array of nfas
( lastlinkp ) last @ swap ! \ set link ptr of last wordset	( lastlinkp ) latest swap ! \ set link ptr of last wordset
;	;

wordlist constant wordsets wordsets set-current	wordlist constant wordsets wordsets set-current
Line 137 ans-report-words definitions	Line 137 ans-report-words definitions
\ dodefer: over code-address!	\ dodefer: over code-address!
\ >body ! ;	\ >body ! ;
dup @ docol: <> -12 and throw \ for colon defs only	dup @ docol: <> -12 and throw \ for colon defs only
>body ['] branch compile-prim over !	>body ['] branch xt>threaded over !
cell+ >r >body r@ - r> ! ;	cell+ >r >body r> ! ;

forth definitions	forth definitions
ans-report-words	ans-report-words