[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.70 and 1.71

version 1.70, Mon Jan 29 11:47:00 2001 UTC version 1.71, Tue Jan 30 14:40:07 2001 UTC
Line 274 
Line 274 
                           [ELSE] 0 1 cells 1- times c, [THEN]                            [ELSE] 0 1 cells 1- times c, [THEN]
 $1fffffff constant lcount-mask  $1fffffff constant lcount-mask
 1 bits/char 3 - lshift 1 -  1 bits/char 3 - lshift 1 -
 -1 cells allot  bigendian [IF]   c, $FF 1 cells 1- times  -1 cells allot  bigendian [IF]   c, -1 1 cells 1- times
                           [ELSE] $FF 1 cells 1- times c, [THEN]                            [ELSE] -1 1 cells 1- times c, [THEN]
   
 \ higher level parts of find  \ higher level parts of find
   
Line 386 
Line 386 
     $25 cell do ( cfa )      $25 cell do ( cfa )
         dup i - dup @ [ alias-mask lcount-mask or ] literal          dup i - dup @ [ alias-mask lcount-mask or ] literal
         [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or          [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or
         -1 cells allot bigendian [IF]   c, $FF 1 cells 1- times          -1 cells allot bigendian [IF]   c, -1 1 cells 1- times
         [ELSE] $FF 1 cells 1- times c, [THEN] ]          [ELSE] -1 1 cells 1- times c, [THEN] ]
         and ( cfa len|alias )          and ( cfa len|alias )
         swap + cell + cfaligned over alias-mask + =          swap + cell + cfaligned over alias-mask + =
         if ( cfa )          if ( cfa )
Line 406 
Line 406 
     $25 cell do ( cfa )      $25 cell do ( cfa )
         dup i - dup @ [ alias-mask lcount-mask or ] literal          dup i - dup @ [ alias-mask lcount-mask or ] literal
         [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or          [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or
         -1 cells allot bigendian [IF]   c, $FF 1 cells 1- times          -1 cells allot bigendian [IF]   c, -1 1 cells 1- times
         [ELSE] $FF 1 cells 1- times c, [THEN] ]          [ELSE] -1 1 cells 1- times c, [THEN] ]
         and ( cfa len|alias )          and ( cfa len|alias )
         swap + cell + cfaligned over alias-mask + =          swap + cell + cfaligned over alias-mask + =
         if ( cfa ) i - cell - unloop exit          if ( cfa ) i - cell - unloop exit

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help