gforth/kernal.fs - diff

Return to kernal.fs CVS log

Up to [gforth] / gforth

version 1.43, 1995/10/16 18:33:11	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
Line 1661 Variable argc	Line 1661 Variable argc

: process-path ( addr1 u1 -- addr2 u2 )	: process-path ( addr1 u1 -- addr2 u2 )
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings	\ addr1 u1 is a path string, addr2 u2 is an array of dir strings
here >r	align here >r
BEGIN	BEGIN
over >r [char] : scan	over >r [char] : scan
over r> tuck - ( rest-str this-str )	over r> tuck - ( rest-str this-str )