gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.50, 2006/12/31 13:39:13	version 1.52, 2007/12/31 17:34:58
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995,1997,2003,2004,2005,2006 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 51	Line 51
\G enough space to align it.	\G enough space to align it.
here dup dfaligned swap ?DO bl c, LOOP ;	here dup dfaligned swap ?DO bl c, LOOP ;

1 sfloats (Field) sfloat+ , ( sf-addr1 -- sf-addr2 ) \ float-ext s-float-plus	(Field) sfloat+ ( sf-addr1 -- sf-addr2 ) \ float-ext s-float-plus
\G @code{1 sfloats +}.	\G @code{1 sfloats +}.
	1 sfloats ,

1 dfloats (Field) dfloat+ , ( df-addr1 -- df-addr2 ) \ float-ext d-float-plus	(Field) dfloat+ ( df-addr1 -- df-addr2 ) \ float-ext d-float-plus
\G @code{1 dfloats +}.	\G @code{1 dfloats +}.
	1 dfloats ,

: f, ( f -- ) \ gforth	: f, ( f -- ) \ gforth
\G Reserve data space for one floating-point number and store	\G Reserve data space for one floating-point number and store
\G @i{f} in the space.	\G @i{f} in the space.