Diff for /gforth/engine/forth.h between versions 1.38 and 1.39

version 1.38, 2003/01/02 09:38:22 version 1.39, 2003/01/02 14:32:57
Line 84  typedef struct { Line 84  typedef struct {
   UCell lo;    UCell lo;
 } UDCell;  } UDCell;
   
 #define OFF2UD(o) ({UDCell _ud; _ud.hi=(o)>>CELL_BITS; _ud.lo=(Cell)(o); _ud;})  #if SMALL_OFF_T
   #define OFF2UD(o) ({UDCell _ud; _ud.hi=0; _ud.lo=(Cell)(o); _ud;})
   #define UD2OFF(ud) ((ud).lo)
   #else /* !SMALL_OFF_T */
   #define OFF2UD(o) ({UDCell _ud; off_t _o=(o); _ud.hi=_o>>CELL_BITS; _ud.lo=(Cell)_o; _ud;})
 #define UD2OFF(ud) ({UDCell _ud=(ud); (((off_t)_ud.hi)<<CELL_BITS)+_ud.lo;})  #define UD2OFF(ud) ({UDCell _ud=(ud); (((off_t)_ud.hi)<<CELL_BITS)+_ud.lo;})
   #endif /* !SMALL_OFF_T */
 #define DZERO           ((DCell){0,0})  #define DZERO           ((DCell){0,0})
   
 #else /* ! defined(BUGGY_LONG_LONG) */  #else /* ! defined(BUGGY_LONG_LONG) */

Removed from v.1.38  
changed lines
  Added in v.1.39


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