gforth/comp-image.fs - diff

Return to comp-image.fs CVS log

Up to [gforth] / gforth

version 1.1, 1996/12/23 15:07:44	version 1.2, 1997/02/01 14:59:28
Line 37 s" address-unit-bits" environment? drop	Line 37 s" address-unit-bits" environment? drop
\ compares image1 and image2 (of size cells) and sets reloc-bits.	\ compares image1 and image2 (of size cells) and sets reloc-bits.
\ offset is the difference for relocated addresses	\ offset is the difference for relocated addresses
image1 @ image2 @ over - { base offset }	image1 @ image2 @ over - { base offset }
	offset 0= abort" images have the same base"
." offset=" offset . cr	." offset=" offset . cr
size 0	size 0
u+do	u+do