[BACK]Return to primitives CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/primitives between versions 1.2 and 1.3

version 1.2, 1994/04/20 17:12:06 version 1.3, 1994/05/03 15:24:14
Line 464  f_addr = fp; Line 464  f_addr = fp;
 fp!     f_addr --       new     fp_store  fp!     f_addr --       new     fp_store
 fp = f_addr;  fp = f_addr;
   
 exit    --              core  ;s      --              core    exit
 /* use ;s as alias */  /* use ;s as alias */
 ip = (Xt *)(*rp++);  ip = (Xt *)(*rp++);
   
Line 875  r2 = cos(r1); Line 875  r2 = cos(r1);
 fexp            r1 -- r2        float-ext  fexp            r1 -- r2        float-ext
 r2 = exp(r1);  r2 = exp(r1);
   
   fexpm1          r1 -- r2        float-ext
   r2 =
   #ifdef expm1
           expm1(r1);
   #else
           exp(r1)-1;
   #endif
   
 fln             r1 -- r2        float-ext  fln             r1 -- r2        float-ext
 r2 = log(r1);  r2 = log(r1);
   
   flnp1           r1 -- r2        float-ext
   r2 =
   #ifdef log1p
           log1p(r1);
   #else
           log(r1+1);
   #endif
   
 flog            r1 -- r2        float-ext  flog            r1 -- r2        float-ext
 r2 = log10(r1);  r2 = log10(r1);
   
 fsin            r1 -- r2 r3     float-ext  fsin            r1 -- r2        float-ext
   r2 = sin(r1);
   
   fsincos         r1 -- r2 r3     float-ext
 r2 = sin(r1);  r2 = sin(r1);
 r3 = cos(r1);  r3 = cos(r1);
   
Removed from v.1.2  
changed lines
  Added in v.1.3

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