Return to prim CVS log | Up to [gforth] / gforth |
version 1.204, 2006/12/31 13:39:13 | version 1.205, 2007/01/05 13:36:06 |
---|---|
Line 1028 d2 = -d1; | Line 1028 d2 = -d1; |
d2* ( d1 -- d2 ) double d_two_star | d2* ( d1 -- d2 ) double d_two_star |
""Shift left by 1; also works on unsigned numbers"" | ""Shift left by 1; also works on unsigned numbers"" |
#ifdef BUGGY_LL_SHIFT | d2 = DLSHIFT(d1,1); |
DLO_IS(d2, DLO(d1)<<1); | |
DHI_IS(d2, (DHI(d1)<<1) | (DLO(d1)>>(CELL_BITS-1))); | |
#else | |
d2 = 2*d1; | |
#endif | |
: | : |
2dup d+ ; | 2dup d+ ; |