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

Diff for /gforth/Attic/primitives between versions 1.18 and 1.19

version 1.18, 1994/09/12 19:00:35 version 1.19, 1994/09/26 20:31:15
Line 441  ud = (UDCell)u1 * (UDCell)u2; Line 441  ud = (UDCell)u1 * (UDCell)u2;
 um/mod  ud u1 -- u2 u3          core    u_m_slash_mod  um/mod  ud u1 -- u2 u3          core    u_m_slash_mod
 u3 = ud/u1;  u3 = ud/u1;
 u2 = ud%u1;  u2 = ud%u1;
   :
     dup IF  0 (um/mod)  THEN  nip ; 
   : (um/mod)  ( ud ud--ud u)
     2dup >r >r  dup 0< 
     IF    2drop 0 
     ELSE  2dup d+  (um/mod)  2*  THEN 
     -rot  r> r> 2over 2over  du<
     IF    2drop rot 
     ELSE  dnegate  d+  rot 1+  THEN ; 
   
 m+      d1 n -- d2              double          m_plus  m+      d1 n -- d2              double          m_plus
 d2 = d1+n;  d2 = d1+n;
Removed from v.1.18  
changed lines
  Added in v.1.19

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