gforth/comp-i.fs - diff

Return to comp-i.fs CVS log

Up to [gforth] / gforth

version 1.1, 1997/05/21 20:39:19	version 1.3, 1998/12/08 22:02:36
Line 1	Line 1
\ Compare nonrelocatable images and produce a relocatable image	\ Compare nonrelocatable images and produce a relocatable image

\ Copyright (C) 1996-1997 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 47 s" address-unit-bits" environment? drop	Line 47 s" address-unit-bits" environment? drop
if	if
." images have the same code base address; producing only a data-relocatable image" cr	." images have the same code base address; producing only a data-relocatable image" cr
else	else
coffset abs 11 cells <> abort" images produced by different engines"	coffset abs 22 cells <> abort" images produced by different engines"
." code offset=" coffset . cr	." code offset=" coffset . cr
0 image1 cell+ ! 0 image2 cell+ !	0 image1 cell+ ! 0 image2 cell+ !
endif	endif