![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to support.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to support.c CVS log | Up to [gforth] / gforth / engine |
| version 1.18, 2006/12/31 13:39:17 | version 1.19, 2007/01/05 13:36:07 |
|---|---|
| Line 528 UDCell umdiv (UDCell u, UCell v) | Line 528 UDCell umdiv (UDCell u, UCell v) |
| #if UDIV_NEEDS_NORMALIZATION | #if UDIV_NEEDS_NORMALIZATION |
| lz = nlz(v); | lz = nlz(v); |
| v <<= lz; | v <<= lz; |
| u <<= lz; | u = UDLSHIFT(u,lz); |
| vm_ud2twoCell(u,u0,u1); | vm_ud2twoCell(u,u0,u1); |
| #endif | #endif |
| udiv_qrnnd(q,r,u1,u0,v); | udiv_qrnnd(q,r,u1,u0,v); |