--- gforth/comp-i.fs 2010/09/05 18:04:17 1.22 +++ gforth/comp-i.fs 2012/07/23 14:46:31 1.25 @@ -1,6 +1,6 @@ \ Compare nonrelocatable images and produce a relocatable image -\ Copyright (C) 1996,1997,1998,2002,2003,2004,2007 Free Software Foundation, Inc. +\ Copyright (C) 1996,1997,1998,2002,2003,2004,2007,2010 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -62,7 +62,7 @@ s" address-unit-bits" environment? drop doffset 0= abort" images have the same dictionary base address" ." data offset=" doffset . cr ." code" image1 image2 cell 26 cells image-data { cbase coffset } - ." xt" image1 image2 11 cells 22 cells image-data { xbase xoffset } + ." xt" image1 image2 13 cells 22 cells image-data { xbase xoffset } size 0 u+do image1 i th @ image2 i th @ { cell1 cell2 }