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.22 and 1.23

version 1.22, 1999/12/03 18:49:51	version 1.23, 2000/08/09 20:04:07
Line 35	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 without	\G Reserve @i{n} address units of data space without
\G initialization; @i{n} is a signed number. In ANS Forth you can	\G initialization. @i{n} is a signed number, passing a negative
\G only deallocate memory from the current contiguous region in	\G @i{n} releases memory. In ANS Forth you can only deallocate
\G this way. In Gforth you can deallocate anything in this way	\G memory from the current contiguous region in this way. In
\G but named words. The system does not check this restriction.	\G Gforth you can deallocate anything in this way but named words.
	\G 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 77	Line 78
LOOP ;	LOOP ;

: maxalign ( -- ) \ gforth	: maxalign ( -- ) \ gforth
	\G Align data-space pointer for all alignment requirements.
here dup maxaligned swap	here dup maxaligned swap
?DO	?DO
bl c,	bl c,
Line 84	Line 86

\ the code field is aligned if its body is maxaligned	\ the code field is aligned if its body is maxaligned
' maxalign Alias cfalign ( -- ) \ gforth	' maxalign Alias cfalign ( -- ) \ gforth
	\G Align data-space pointer for code field (i.e., such that the
	\G corresponding body is maxaligned).

' , alias A, ( addr -- ) \ gforth	' , alias A, ( addr -- ) \ gforth

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

Removed from v.1.22
changed lines
	Added in v.1.23