[gforth] / gforth / Attic / forth.h  

gforth: gforth/Attic/forth.h

Diff for /gforth/Attic/forth.h between version 1.4 and 1.5

version 1.4, Sat May 7 14:55:51 1994 UTC version 1.5, Wed May 18 17:29:53 1994 UTC
Line 21 
Line 21 
 /* Forth data types */  /* Forth data types */
 typedef int Bool;  typedef int Bool;
 #define FLAG(b) (-(b))  #define FLAG(b) (-(b))
   #define FILEIO(error)   (FLAG(error) & -37)
   #define FILEEXIST(error)        (FLAG(error) & -38)
   
 #define F_TRUE (FLAG(0==0))  #define F_TRUE (FLAG(0==0))
 #define F_FALSE (FLAG(0!=0))  #define F_FALSE (FLAG(0!=0))
Line 62 
Line 64 
 #endif  #endif
   
 #ifdef DEBUG  #ifdef DEBUG
 #       define  NAME(string)    printf("%08x: %s\n",(int)ip,string);  #       define  NAME(string)    printf("%08x: "string"\n",(int)ip);
 #else  #else
 #       define  NAME(string)  #       define  NAME(string)
 #endif  #endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help