Commit af2d0391 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

remove unused definitions and field

parent b96a0b25
...@@ -10,10 +10,6 @@ ...@@ -10,10 +10,6 @@
#include "system.h" #include "system.h"
#endif #endif
#define NoError 0
#define ErrKind1 1
#define ErrKind2 2
#define MINIMUM(a,b) (((a)<(b)) ? (a) : (b)) #define MINIMUM(a,b) (((a)<(b)) ? (a) : (b))
#define MAXIMUM(a,b) (((a)>(b)) ? (a) : (b)) #define MAXIMUM(a,b) (((a)>(b)) ? (a) : (b))
...@@ -42,11 +38,9 @@ extern void *CompAlloc (SizeT size); ...@@ -42,11 +38,9 @@ extern void *CompAlloc (SizeT size);
extern void InitStorage (void); extern void InitStorage (void);
extern void CompFree (void); extern void CompFree (void);
extern Bool ArgParser (int argc, char *argv[]);
extern void FatalCompError (char *mod, char *proc, char *mess); extern void FatalCompError (char *mod, char *proc, char *mess);
extern void InitSettings (void); extern void InitSettings (void);
extern void ExitOnInterrupt (void);
extern void InitCompiler (void); extern void InitCompiler (void);
extern void ExitCompiler (void); extern void ExitCompiler (void);
......
...@@ -538,7 +538,6 @@ STRUCT (symbol_def,SymbDef){ ...@@ -538,7 +538,6 @@ STRUCT (symbol_def,SymbDef){
struct constructor_list * typeinfo_constructor; /* for CONSTRUCTOR */ struct constructor_list * typeinfo_constructor; /* for CONSTRUCTOR */
struct symbol_def *typeinfo_dictionary_field; /* for IMPRULE if SDEF_INSTANCE_RULE_WITH_FIELD_P */ struct symbol_def *typeinfo_dictionary_field; /* for IMPRULE if SDEF_INSTANCE_RULE_WITH_FIELD_P */
struct symbol_def *typeinfo_instance_rule; /* for IMPRULE if SDEF_RULE_INSTANCE_RULE_P */ struct symbol_def *typeinfo_instance_rule; /* for IMPRULE if SDEF_RULE_INSTANCE_RULE_P */
char * typeinfo_instructions; /* for DEFRULE or SYSRULE if SDEF_DEFRULE_INSTRUCTIONS */
Instructions typeinfo_abc_code; /* for DEFRULE or SYSRULE if SDEF_DEFRULE_ABC_CODE */ Instructions typeinfo_abc_code; /* for DEFRULE or SYSRULE if SDEF_DEFRULE_ABC_CODE */
} sdef_typeinfo; } sdef_typeinfo;
...@@ -617,7 +616,6 @@ STRUCT (symbol_def,SymbDef){ ...@@ -617,7 +616,6 @@ STRUCT (symbol_def,SymbDef){
#define sdef_dictionary_field sdef_typeinfo.typeinfo_dictionary_field #define sdef_dictionary_field sdef_typeinfo.typeinfo_dictionary_field
#define sdef_instance_rule sdef_typeinfo.typeinfo_instance_rule #define sdef_instance_rule sdef_typeinfo.typeinfo_instance_rule
#define sdef_instructions sdef_typeinfo.typeinfo_instructions
#define sdef_abc_code sdef_typeinfo.typeinfo_abc_code #define sdef_abc_code sdef_typeinfo.typeinfo_abc_code
#if IMPORT_OBJ_AND_LIB #if IMPORT_OBJ_AND_LIB
......
...@@ -36,14 +36,6 @@ ...@@ -36,14 +36,6 @@
#include "types.t" #include "types.t"
#ifdef GEN_SUPPORT_H
# include "gensupport.h"
#else
#define MAXPATHLEN 1024
extern char *PATHLIST;
extern File FOpen (char *fname, char *mode); extern File FOpen (char *fname, char *mode);
extern int FDelete (char *fname); extern int FDelete (char *fname);
extern int FClose (File f); extern int FClose (File f);
...@@ -70,5 +62,3 @@ extern void *Alloc (unsigned long count, SizeT size); ...@@ -70,5 +62,3 @@ extern void *Alloc (unsigned long count, SizeT size);
extern void Free (void *p); extern void Free (void *p);
#define ReSize(A) (((A)+3) & ~3) #define ReSize(A) (((A)+3) & ~3)
#endif
...@@ -23,16 +23,7 @@ typedef unsigned Bool; ...@@ -23,16 +23,7 @@ typedef unsigned Bool;
False = 0, True, MightBeTrue False = 0, True, MightBeTrue
}; };
typedef enum
{abcFile = 1, iclFile, dclFile, applFile, assFile, sunAssFile,
obj00File, obj20File, obj81File,
otherFile, hsFile
} FileKind;
#define FileNameMax 256 #define FileNameMax 256
#define SeekSet
#define SeekCur
#define SeekEnd
#ifdef _WINDOWS_ #ifdef _WINDOWS_
# include <stdarg.h> # include <stdarg.h>
......
...@@ -2,14 +2,6 @@ ...@@ -2,14 +2,6 @@
extern int MACVAR; extern int MACVAR;
#define CheckVersion if (MACVAR != VERSION) DoFatalError ("Wrong version number") #define CheckVersion if (MACVAR != VERSION) DoFatalError ("Wrong version number")
typedef short TwoBytesInt;
typedef int FourBytesInt;
typedef unsigned short TwoBytesUnsigned;
typedef unsigned int FourBytesUnsigned;
typedef double EightBytesReal;
typedef float FourBytesReal;
#define SizeT unsigned long #define SizeT unsigned long
#define SizeOf(A) ((SizeT) sizeof (A)) #define SizeOf(A) ((SizeT) sizeof (A))
...@@ -41,5 +33,4 @@ extern FILE *std_out_file_p,*std_error_file_p; ...@@ -41,5 +33,4 @@ extern FILE *std_out_file_p,*std_error_file_p;
# define StdError stderr # define StdError stderr
#endif #endif
#define FGetC(f) fgetc(f)
#define FPutC(c,f) fputc(c,f) #define FPutC(c,f) fputc(c,f)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment