gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.9, 1999/02/03 00:10:23	version 1.10, 1999/02/03 23:32:23
Line 35 HEX	Line 35 HEX

\ !! this is machine-dependent, but works on all but the strangest machines	\ !! this is machine-dependent, but works on all but the strangest machines

: maxaligned ( addr -- f-addr ) \ float	: maxaligned ( addr -- f-addr ) \ gforth
[ /maxalign 1 - ] Literal + [ 0 /maxalign - ] Literal and ;	[ /maxalign 1 - ] Literal + [ 0 /maxalign - ] Literal and ;
\ !! machine-dependent and won't work if "0 >body" <> "0 >body maxaligned"	\ !! machine-dependent and won't work if "0 >body" <> "0 >body maxaligned"
' maxaligned Alias cfaligned ( addr1 -- addr2 ) \ gforth	' maxaligned Alias cfaligned ( addr1 -- addr2 ) \ gforth