Diff for /gforth/kernel/int.fs between versions 1.44 and 1.45

version 1.44, 1999/12/12 12:49:52 version 1.45, 2000/03/19 23:04:13
Line 365  const Create ???  0 , 3 c, char ? c, cha Line 365  const Create ???  0 , 3 c, char ? c, cha
     drop true ;      drop true ;
   
 : >head ( cfa -- nt ) \ gforth  to-head  : >head ( cfa -- nt ) \ gforth  to-head
     $21 cell do ( cfa )      $25 cell do ( cfa )
         dup i - count $9F and + cfaligned over alias-mask + =          dup i - count $9F and + cfaligned over alias-mask + =
         if ( cfa )          if ( cfa )
             dup i - cell - dup head?              dup i - cell - dup head?
Line 380  const Create ???  0 , 3 c, char ? c, cha Line 380  const Create ???  0 , 3 c, char ? c, cha
 [ELSE]  [ELSE]
   
 : >head ( cfa -- nt ) \ gforth  to-head  : >head ( cfa -- nt ) \ gforth  to-head
     $21 cell do ( cfa )      $25 cell do ( cfa )
         dup i - count $9F and + cfaligned over alias-mask + =          dup i - count $9F and + cfaligned over alias-mask + =
         if ( cfa ) i - cell - unloop exit          if ( cfa ) i - cell - unloop exit
         then          then

Removed from v.1.44  
changed lines
  Added in v.1.45


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