[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.204 and 1.205

version 1.204, Sun Dec 31 13:39:13 2006 UTC version 1.205, Fri Jan 5 13:36:06 2007 UTC
Line 1028 
Line 1028 
   
 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+ ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.204  
changed lines
  Added in v.1.205
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help