Return to prim CVS log | Up to [gforth] / gforth |
version 1.10, 1998/07/28 12:29:37 | version 1.11, 1998/10/07 18:29:38 |
---|---|
Line 1980 f>l r -- gforth f_to_l | Line 1980 f>l r -- gforth f_to_l |
lp -= sizeof(Float); | lp -= sizeof(Float); |
*(Float *)lp = r; | *(Float *)lp = r; |
fpick u -- r gforth | |
r = fp[u+1]; /* +1, because update of fp happens before this fragment */ | |
: | |
floats fp@ + f@ ; | |
\+[THEN] [THEN] \ has? glocals | \+[THEN] [THEN] \ has? glocals |
\+has? OS [IF] | \+has? OS [IF] |