[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

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

version 1.44, Sun Dec 12 12:49:52 1999 UTC version 1.45, Sun Mar 19 23:04:13 2000 UTC
Line 365 
Line 365 
     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 
Line 380 
 [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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help