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

version 1.1, 1997/05/29 19:42:45 version 1.6, 2007/12/31 19:02:24
Line 1 Line 1
 \ relocate 4stack binary  \ relocate 4stack binary
   
   \ Copyright (C) 2000,2007 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation, either version 3
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ You should have received a copy of the GNU General Public License
   \ along with this program. If not, see http://www.gnu.org/licenses/.
   
 Create magic 8 allot  Create magic 8 allot
 Variable image  Variable image
 Variable relinfo  Variable relinfo
Line 11  Variable imagesize Line 28  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.6


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