gforth/comp-i.fs - diff

Return to comp-i.fs CVS log

Up to [gforth] / gforth

version 1.21, 2010/05/13 09:39:07	version 1.23, 2010/12/31 18:09:02
Line 1	Line 1
\ Compare nonrelocatable images and produce a relocatable image	\ 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.	\ This file is part of Gforth.

Line 24 s" address-unit-bits" environment? drop	Line 24 s" address-unit-bits" environment? drop
\ write a cell to the file	\ write a cell to the file
w cell file-id write-file ;	w cell file-id write-file ;

: th ( addr1 n -- addr2 )
cells + ;

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