[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.40 and 1.41

version 1.40, Mon Nov 8 22:01:10 1999 UTC version 1.41, Sun Nov 14 10:22:27 1999 UTC
Line 348 
Line 348 
     \ iteration, we may get an xt, on the second a code address (or      \ iteration, we may get an xt, on the second a code address (or
     \ some code), which is typically not in the dictionary.      \ some code), which is typically not in the dictionary.
     2 0 do      2 0 do
           dup dup aligned <> if \ protect @ against unaligned accesses
               drop false unloop exit
           then
         dup @ dup          dup @ dup
         if ( addr addr1 )          if ( addr addr1 )
             dup rot forthstart within              dup rot forthstart within

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help