[BACK]Return to forth.h CVS log [TXT] [DIR] Up to [gforth] / gforth / engine

Diff for /gforth/engine/forth.h between versions 1.35 and 1.36

version 1.35, 2002/12/19 20:43:26 version 1.36, 2002/12/24 23:40:30
Line 19 Line 19
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 */  */
   
   /* turn on all POSIX, SUSv3, and GNU features if available */
 #define _GNU_SOURCE  #define _GNU_SOURCE
   #define _POSIX_SOURCE
   #define _POSIX_C_SOURCE 199506L
   #define _XOPEN_SOURCE 600
   
   /* turn on large file support with 64-bit off_t where available */
   #define _LARGEFILE_SOURCE
   #define _FILE_OFFSET_BITS 64
   
 #include "config.h"  #include "config.h"
 #include <stdio.h>  #include <stdio.h>
Line 86  typedef struct { Line 94  typedef struct {
   UCell lo;    UCell lo;
 } UDCell;  } UDCell;
   
 #define LONG2UD(l)      ({UDCell _ud; _ud.hi=0; _ud.lo=(Cell)(l); _ud;})  #define OFF2UD(o) ({UDCell _ud; _ud.hi=(o)>>CELL_BITS; _ud.lo=(Cell)(o); _ud;})
 #define UD2LONG(ud)     ((long)(ud.lo))  #define UD2OFF(ud) ({UDCell _ud=(ud); (((off_t)_ud.hi)<<CELL_BITS)+_ud.lo;})
 #define DZERO           ((DCell){0,0})  #define DZERO           ((DCell){0,0})
   
 #else /* ! defined(BUGGY_LONG_LONG) */  #else /* ! defined(BUGGY_LONG_LONG) */
Line 96  typedef struct { Line 104  typedef struct {
 typedef DOUBLE_CELL_TYPE DCell;  typedef DOUBLE_CELL_TYPE DCell;
 typedef unsigned DOUBLE_CELL_TYPE UDCell;  typedef unsigned DOUBLE_CELL_TYPE UDCell;
   
 #define LONG2UD(l)      ((UDCell)(l))  #define OFF2UD(o)       ((UDCell)(o))
 #define UD2LONG(ud)     ((long)(ud))  #define UD2OFF(ud)      ((off_t)(ud))
 #define DZERO           ((DCell)0)  #define DZERO           ((DCell)0)
   
 #endif /* ! defined(BUGGY_LONG_LONG) */  #endif /* ! defined(BUGGY_LONG_LONG) */
Removed from v.1.35  
changed lines
  Added in v.1.36

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