gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.45, 2005/10/02 11:30:32	version 1.49, 2006/01/28 18:46:15
Line 1	Line 1
\ miscelleneous words	\ miscelleneous words

\ Copyright (C) 1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 159 AUser CSP	Line 159 AUser CSP
2dup find-name dup if ( c-addr u nt )	2dup find-name dup if ( c-addr u nt )
nip nip name>comp	nip nip name>comp
2dup [comp'] [[ d= if	2dup [comp'] [[ d= if
2drop ['] compiler1 is parser1	2drop ['] compiler1 is parser1 ['] noop
else	else
['] postpone,	['] postpone,
endif	endif
Line 333 interpret/compile: what's ( interpretati	Line 333 interpret/compile: what's ( interpretati
emit	emit
loop ;	loop ;

	\ w and l stuff

	environment-wordlist >order

	16 address-unit-bits / 1 max constant /w ( -- u ) \ gforth
	\G address units for a 16-bit value

	32 address-unit-bits / 1 max constant /l ( -- u ) \ gforth
	\G address units for a 32-bit value

	previous

	[ifdef] uw@
	\ Open firmware names
	' uw@ alias w@ ( addr -- u )
	' ul@ alias l@ ( addr -- u )
	\ ' sw@ alias <w@ ( addr -- n )
	[then]