Diff for /gforth/arch/4stack/relocate-new.fs between versions 1.1 and 1.2

version 1.1, 1997/05/29 19:42:45 version 1.2, 1999/12/30 20:43:25
Line 11  Variable imagesize Line 11  Variable imagesize
     BEGIN      BEGIN
         8 +          8 +
         magic 8 r@ read-file throw 8 = WHILE          magic 8 r@ read-file throw 8 = WHILE
         magic 8 s" Gforth14" compare 0= UNTIL          magic 8 s" Gforth2" compare 0= UNTIL
     ELSE  true abort" Magic not found!"  THEN rdrop ;      ELSE  true abort" Magic not found!"  THEN rdrop ;
   
 Create bits $80 c, $40 c, $20 c, $10 c, $08 c, $04 c, $02 c, $01 c,  Create bits $80 c, $40 c, $20 c, $10 c, $08 c, $04 c, $02 c, $01 c,

Removed from v.1.1  
changed lines
  Added in v.1.2


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