gforth/kernal.fs - diff

Return to kernal.fs CVS log

Up to [gforth] / gforth

version 1.44, 1995/10/26 22:48:40	version 1.45, 1995/10/29 21:35:13
Line 84 DOES> ( n -- ) + c@ ;	Line 84 DOES> ( n -- ) + c@ ;
: 2, ( w1 w2 -- ) \ gforth	: 2, ( w1 w2 -- ) \ gforth
here 2 cells allot 2! ;	here 2 cells allot 2! ;

: aligned ( addr -- addr' ) \ core	\ : aligned ( addr -- addr' ) \ core
[ cell 1- ] Literal + [ -1 cells ] Literal and ;	\ [ cell 1- ] Literal + [ -1 cells ] Literal and ;
: align ( -- ) \ core	: align ( -- ) \ core
here dup aligned swap ?DO bl c, LOOP ;	here dup aligned swap ?DO bl c, LOOP ;

: faligned ( addr -- f-addr ) \ float	\ : faligned ( addr -- f-addr ) \ float
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;	\ [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;

: falign ( -- ) \ float	: falign ( -- ) \ float
here dup faligned swap	here dup faligned swap