gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/comp.fs between versions 1.16 and 1.17

version 1.16, 1999/05/10 13:58:05	version 1.17, 1999/05/16 17:13:25
Line 27	Line 27
[IFUNDEF] allot	[IFUNDEF] allot
[IFUNDEF] forthstart	[IFUNDEF] forthstart
: allot ( n -- ) \ core	: allot ( n -- ) \ core
\G Reserve or release @i{n} address units of data space; @i{n}
\G is a signed number. There are restrictions on releasing data
\G space.
dup unused u> -8 and throw	dup unused u> -8 and throw
dp +! ;	dp +! ;
[THEN]	[THEN]
Line 38	Line 35
\ we default to this version if we have nothing else 05May99jaw	\ we default to this version if we have nothing else 05May99jaw
[IFUNDEF] allot	[IFUNDEF] allot
: allot ( n -- ) \ core	: allot ( n -- ) \ core
\G Reserve or release @i{n} address units of data space; @i{n}	\G Reserve or release @i{n} address units of data space without
\G is a signed number. There are restrictions on releasing data	\G initialization; @i{n} is a signed number. In ANS Forth you can
\G space.	\G only deallocate memory from the current contiguous region in
	\G this way. In Gforth you can deallocate anything in this way
	\G but named words. The system does not check this restriction.
here +	here +
dup 1- usable-dictionary-end forthstart within -8 and throw	dup 1- usable-dictionary-end forthstart within -8 and throw
dp ! ;	dp ! ;
Line 349 DOES>	Line 348 DOES>
\ \ Create Variable User Constant 17mar93py	\ \ Create Variable User Constant 17mar93py

: Alias ( xt "name" -- ) \ gforth	: Alias ( xt "name" -- ) \ gforth
\ 29Apr1999nac The stack comment for this was cfa -- I changed it to xt because
\ they are the same thing in Gforth, and xt is a more appropriate thing to
\ document.
Header reveal	Header reveal
alias-mask lastflags creset	alias-mask lastflags creset
dup A, lastcfa ! ;	dup A, lastcfa ! ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.17