[gforth] / gforth / wordinfo.fs  

gforth: gforth/wordinfo.fs

Diff for /gforth/wordinfo.fs between version 1.14 and 1.15

version 1.14, Sun Jul 6 14:29:34 1997 UTC version 1.15, Wed May 13 16:47:24 1998 UTC
Line 63 
Line 63 
   
 [IFDEF] forthstart  [IFDEF] forthstart
 : xtprim? ( xt -- flag )  : xtprim? ( xt -- flag )
         forthstart u< ;      forthstart dictionary-end 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? ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help