Diff for /gforth/engine/forth.h between versions 1.103 and 1.104

version 1.103, 2008/10/15 15:27:33 version 1.104, 2008/10/19 15:09:24
Line 170  typedef struct { Line 170  typedef struct {
 #define D2UD(d)         ({DCell _d1=(d); (UDCell){_d1.hi,_d1.lo};})  #define D2UD(d)         ({DCell _d1=(d); (UDCell){_d1.hi,_d1.lo};})
   
 /* shifts by less than CELL_BITS */  /* shifts by less than CELL_BITS */
 #define DLSHIFT(d,u)  ({DCell _d=(d); UCell _u=(u); \  #define DLSHIFT(d,u) ({DCell _d=(d); UCell _u=(u); \
                        (DCell){(_d.hi<<_u)|(_d.lo>>(CELL_BITS-_u)),_d.lo<<_u};})                         ((_u==0) ? \
                           _d : \
                           (DCell){(_d.hi<<_u)|(_d.lo>>(CELL_BITS-_u)), \
                                    _d.lo<<_u});})
   
 #define UDLSHIFT(ud,u) D2UD(DLSHIFT(UD2D(ud),u))  #define UDLSHIFT(ud,u) D2UD(DLSHIFT(UD2D(ud),u))
   
 #if SMALL_OFF_T  #if SMALL_OFF_T

Removed from v.1.103  
changed lines
  Added in v.1.104


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