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

Diff for /gforth/engine/forth.h between versions 1.6 and 1.7

version 1.6, 1997/09/01 23:08:41 version 1.7, 1998/10/25 23:15:48
Line 33 Line 33
 #  include <libc.h>  #  include <libc.h>
 #endif /* NeXT */  #endif /* NeXT */
   
 #if defined(DOUBLY_INDIRECT)  
 typedef void **Label;  
 #else /* !defined(DOUBLY_INDIRECT) */  
 typedef void *Label;  
 #endif /* !defined(DOUBLY_INDIRECT) */  
   
 /* symbol indexed constants */  /* symbol indexed constants */
   
 #define DOCOL   0  #define DOCOL   0
Line 57  typedef void *Label; Line 51  typedef void *Label;
   
 /* Forth data types */  /* Forth data types */
 /* Cell and UCell must be the same size as a pointer */  /* Cell and UCell must be the same size as a pointer */
 typedef CELL_TYPE Cell;  
 typedef unsigned CELL_TYPE UCell;  
 #define CELL_BITS       (sizeof(Cell) * CHAR_BIT)  #define CELL_BITS       (sizeof(Cell) * CHAR_BIT)
 typedef Cell Bool;  
 #define FLAG(b) (-(b))  #define FLAG(b) (-(b))
 #define FILEIO(error)   (FLAG(error) & -37)  #define FILEIO(error)   (FLAG(error) & -37)
 #define FILEEXIST(error)        (FLAG(error) & -38)  #define FILEEXIST(error)        (FLAG(error) & -38)
Line 68  typedef Cell Bool; Line 59  typedef Cell Bool;
 #define F_TRUE (FLAG(0==0))  #define F_TRUE (FLAG(0==0))
 #define F_FALSE (FLAG(0!=0))  #define F_FALSE (FLAG(0!=0))
   
 typedef unsigned char Char;  
 typedef double Float;  
 typedef char *Address;  
   
 #ifdef BUGGY_LONG_LONG  #ifdef BUGGY_LONG_LONG
 typedef struct {  typedef struct {
   Cell hi;    Cell hi;
Line 224  UDCell umdiv (UDCell u, UCell v); Line 211  UDCell umdiv (UDCell u, UCell v);
 DCell smdiv (DCell num, Cell denom);  DCell smdiv (DCell num, Cell denom);
 DCell fmdiv (DCell num, Cell denom);  DCell fmdiv (DCell num, Cell denom);
   
 int memcasecmp(const char *s1, const char *s2, long n);  Cell memcasecmp(const Char *s1, const Char *s2, Cell n);
   
 extern int offset_image;  extern int offset_image;
 extern int die_on_signal;  extern int die_on_signal;
Removed from v.1.6  
changed lines
  Added in v.1.7

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