version 1.103, 2002/12/03 10:47:49
|
version 1.105, 2002/12/15 17:38:51
|
Line 1808 floor ( r1 -- r2 ) float
|
Line 1808 floor ( r1 -- r2 ) float
|
/* !! unclear wording */ |
/* !! unclear wording */ |
r2 = floor(r1); |
r2 = floor(r1); |
|
|
(fround) ( r1 -- r2 ) gforth paren_f_round |
fround ( r1 -- r2 ) gforth f_round |
""Round to the nearest integral value. Primitive variant (unused)"" |
""Round to the nearest integral value."" |
/* !! eliminate this as primitive? */ |
|
/* !! unclear wording */ |
|
#ifdef HAVE_RINT |
|
r2 = rint(r1); |
r2 = rint(r1); |
#else |
|
r2 = floor(r1+0.5); |
|
/* !! This is not quite true to the rounding rules given in the standard */ |
|
#endif |
|
|
|
fmax ( r1 r2 -- r3 ) float f_max |
fmax ( r1 r2 -- r3 ) float f_max |
if (r1<r2) |
if (r1<r2) |
Line 2750 SUPER_CONTINUE;
|
Line 2743 SUPER_CONTINUE;
|
cell+ |
cell+ |
THEN >r ; |
THEN >r ; |
|
|
|
\ set-next-code and call2 do not appear in images and can be |
|
\ renumbered arbitrarily |
|
|
set-next-code ( #w -- ) gforth set_next_code |
set-next-code ( #w -- ) gforth set_next_code |
#ifdef NO_IP |
#ifdef NO_IP |
next_code = (Label)w; |
next_code = (Label)w; |
Line 2773 finish-code ( -- ) gforth finish_code
|
Line 2769 finish-code ( -- ) gforth finish_code
|
flushing)."" |
flushing)."" |
finish_code(); |
finish_code(); |
|
|
|
forget-dyncode ( c_code -- f ) gforth-internal forget_dyncode |
|
f = forget_dyncode(c_code); |
|
|
|
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
|
""a_prim is the code address of the primitive that has been |
|
compile_prim1ed to a_code"" |
|
a_prim = decompile_code(a_code); |
|
|
\+ |
\+ |
|
|
include(peeprules.vmg) |
include(peeprules.vmg) |