### Diff for /gforth/prim between versions 1.103 and 1.105

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)

 Removed from v.1.103 changed lines Added in v.1.105

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>