version 1.12, 2003/03/09 15:16:46
|
version 1.13, 2003/08/04 20:32:34
|
Line 49 s" address-unit-bits" environment? drop
|
Line 49 s" address-unit-bits" environment? drop
|
endif |
endif |
base offset ; |
base offset ; |
|
|
Create tag-offsets |
|
include kernel/groups.fs |
|
tag-offsets $20 cells + here tuck - dup allot erase |
|
|
|
: >tag ( index -- tag ) |
: >tag ( index -- tag ) |
dup dodoes-tag 2 + > IF dodoes-tag 2 + - |
dup dodoes-tag 2 + > IF |
$21 1 DO dup tag-offsets I cells + @ < IF |
$21 1 DO dup tag-offsets I cells + @ < IF |
tag-offsets I 1- cells + @ - I 9 lshift + negate |
tag-offsets I 1- cells + @ - I 1- 9 lshift + negate |
UNLOOP EXIT THEN LOOP |
UNLOOP EXIT THEN LOOP |
dodoes-tag 2 + + |
|
THEN -2 swap - ; |
THEN -2 swap - ; |
|
|
: compare-images { image1 image2 reloc-bits size file-id -- } |
: compare-images { image1 image2 reloc-bits size file-id -- } |