gforth/comp-i.fs - diff

Return to comp-i.fs CVS log

Up to [gforth] / gforth

version 1.6, 2001/01/19 21:07:05	version 1.7, 2001/01/28 16:54:55
Line 28 s" address-unit-bits" environment? drop	Line 28 s" address-unit-bits" environment? drop
: th ( addr1 n -- addr2 )	: th ( addr1 n -- addr2 )
cells + ;	cells + ;

	: bset ( bmask c-addr -- )
	tuck c@ or swap c! ;

: set-bit { u addr -- }	: set-bit { u addr -- }
\ set bit u in bit-vector addr	\ set bit u in bit-vector addr
u bits/au /mod	u bits/au /mod
>r 1 bits/au 1- rot - lshift	>r 1 bits/au 1- rot - lshift
r> addr + cset ;	r> addr + bset ;

: compare-images { image1 image2 reloc-bits size file-id -- }	: compare-images { image1 image2 reloc-bits size file-id -- }
\G compares image1 and image2 (of size cells) and sets reloc-bits.	\G compares image1 and image2 (of size cells) and sets reloc-bits.