| /* !! 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) |
| flushing)."" |
flushing)."" |
| finish_code(); |
finish_code(); |
| |
|
| forget-dyncode ( a_code -- f ) gforth-internal forget_dyncode |
forget-dyncode ( c_code -- f ) gforth-internal forget_dyncode |
| f = forget_dyncode(a_code); |
f = forget_dyncode(c_code); |
| |
|
| decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
| ""a_prim is the code address of the primitive that has been |
""a_prim is the code address of the primitive that has been |
