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.2, 1998/03/21 21:36:56
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