[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.186 and 1.187

version 1.186, Sat Jan 28 17:55:31 2006 UTC version 1.187, Sun Jan 29 18:34:33 2006 UTC
Line 873 
Line 873 
 n2 = n1>>1;  n2 = n1>>1;
 :  :
  dup MINI and IF 1 ELSE 0 THEN   dup MINI and IF 1 ELSE 0 THEN
  [ bits/byte cell * 1- ] literal   [ bits/char cell * 1- ] literal
  0 DO 2* swap dup 2* >r MINI and   0 DO 2* swap dup 2* >r MINI and
      IF 1 ELSE 0 THEN or r> swap       IF 1 ELSE 0 THEN or r> swap
  LOOP nip ;   LOOP nip ;


Generate output suitable for use with a patch program
Legend:
Removed from v.1.186  
changed lines
  Added in v.1.187

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help