Diff for /gforth/prim between versions 1.104 and 1.105

version 1.104, 2002/12/13 15:49:53 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 2776  finish-code ( -- ) gforth finish_code Line 2769  finish-code ( -- ) gforth finish_code
 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

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


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