gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.44, 1995/10/26 22:48:41	version 1.45, 1995/10/29 21:35:13
Line 1360 dfloats n1 -- n2 float-ext d_floats	Line 1360 dfloats n1 -- n2 float-ext d_floats
n2 = n1*sizeof(DFloat);	n2 = n1*sizeof(DFloat);

aligned c_addr -- a_addr core	aligned c_addr -- a_addr core
a_addr = (Cell *)((((Cell)c_addr)+(sizeof(Cell)-1))&~sizeof(Cell));	a_addr = (Cell *)((((Cell)c_addr)+(sizeof(Cell)-1))&(-sizeof(Cell)));
	:
	[ cell 1- ] Literal + [ -1 cells ] Literal and ;

faligned c_addr -- f_addr float f_aligned	faligned c_addr -- f_addr float f_aligned
f_addr = (Float *)((((Cell)c_addr)+(sizeof(Float)-1))&~sizeof(Float));	f_addr = (Float *)((((Cell)c_addr)+(sizeof(Float)-1))&(-sizeof(Float)));
	:
	[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;

sfaligned c_addr -- sf_addr float-ext s_f_aligned	sfaligned c_addr -- sf_addr float-ext s_f_aligned
sf_addr = (SFloat *)((((Cell)c_addr)+(sizeof(SFloat)-1))&~sizeof(SFloat));	sf_addr = (SFloat *)((((Cell)c_addr)+(sizeof(SFloat)-1))&(-sizeof(SFloat)));
	:
	[ 1 sfloats 1- ] Literal + [ -1 sfloats ] Literal and ;

dfaligned c_addr -- df_addr float-ext d_f_aligned	dfaligned c_addr -- df_addr float-ext d_f_aligned
df_addr = (DFloat *)((((Cell)c_addr)+(sizeof(DFloat)-1))&~sizeof(DFloat));	df_addr = (DFloat *)((((Cell)c_addr)+(sizeof(DFloat)-1))&(-sizeof(DFloat)));
	:
	[ 1 dfloats 1- ] Literal + [ -1 dfloats ] Literal and ;

\ The following words access machine/OS/installation-dependent	\ The following words access machine/OS/installation-dependent
\ Gforth internals	\ Gforth internals