Return to prim CVS log | Up to [gforth] / gforth |
version 1.203, 2006/10/30 16:20:41 | version 1.205, 2007/01/05 13:36:06 |
---|---|
Line 1 | Line 1 |
\ Gforth primitives | \ Gforth primitives |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
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+ ; |