[BACK]Return to int.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/int.fs between versions 1.184 and 1.185

version 1.184, 2011/11/17 18:45:52 version 1.185, 2011/11/24 18:12:12
Line 446  const Create ???  0 , 3 , char ? c, char Line 446  const Create ???  0 , 3 , char ? c, char
 \ if we have a forthstart we can define head? with it  \ if we have a forthstart we can define head? with it
 \ otherwise leave out the head? check  \ otherwise leave out the head? check
   
 : head? ( addr -- f )  : one-head? ( addr -- f )
 \G heuristic check whether addr is a name token; may deliver false  \G heuristic check whether addr is a name token; may deliver false
 \G positives; addr must be a valid address  \G positives; addr must be a valid address
     dup dup aligned <>      dup dup aligned <>
Line 473  const Create ???  0 , 3 , char ? c, char Line 473  const Create ???  0 , 3 , char ? c, char
     dup @ tuck 2 cells - = swap      dup @ tuck 2 cells - = swap
     docol:  ['] lit-execute @ 1+ within or ;      docol:  ['] lit-execute @ 1+ within or ;
   
   : head? ( addr -- f )
   \G heuristic check whether addr is a name token; may deliver false
   \G positives; addr must be a valid address; returns 1 for
   \G particularly unsafe positives
       \ we follow the link fields and check for plausibility; two
       \ iterations should catch most false addresses: on the first
       \ iteration, we may get an xt, on the second a code address (or
       \ some code), which is typically not in the dictionary.
       \ we added a third iteration for working with code and ;code words.
       3 0 do
           dup one-head? 0= if
               drop false unloop exit
           endif
           dup @ dup 0= if
               2drop 1 unloop exit
           else
               dup rot forthstart within if
                   drop false unloop exit
               then
           then
       loop
       drop true ;
   
 : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim  : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     \ also heuristic      \ also heuristic
     dup forthstart - max-name-length @      dup forthstart - max-name-length @
Removed from v.1.184  
changed lines
  Added in v.1.185

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>