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

remove unused definitions and field

parent b96a0b25
......@@ -10,10 +10,6 @@
#include "system.h"
#endif
#define NoError 0
#define ErrKind1 1
#define ErrKind2 2
#define MINIMUM(a,b) (((a)<(b)) ? (a) : (b))
#define MAXIMUM(a,b) (((a)>(b)) ? (a) : (b))
......@@ -42,11 +38,9 @@ extern void *CompAlloc (SizeT size);
extern void InitStorage (void);
extern void CompFree (void);
extern Bool ArgParser (int argc, char *argv[]);
extern void FatalCompError (char *mod, char *proc, char *mess);
extern void InitSettings (void);
extern void ExitOnInterrupt (void);
extern void InitCompiler (void);
extern void ExitCompiler (void);
......
......@@ -538,7 +538,6 @@ STRUCT (symbol_def,SymbDef){
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_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 */
} sdef_typeinfo;
......@@ -617,7 +616,6 @@ STRUCT (symbol_def,SymbDef){
#define sdef_dictionary_field sdef_typeinfo.typeinfo_dictionary_field
#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
#if IMPORT_OBJ_AND_LIB
......
......@@ -36,14 +36,6 @@
#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 int FDelete (char *fname);
extern int FClose (File f);
......@@ -70,5 +62,3 @@ extern void *Alloc (unsigned long count, SizeT size);
extern void Free (void *p);
#define ReSize(A) (((A)+3) & ~3)
#endif
......@@ -23,16 +23,7 @@ typedef unsigned Bool;
False = 0, True, MightBeTrue
};
typedef enum
{abcFile = 1, iclFile, dclFile, applFile, assFile, sunAssFile,
obj00File, obj20File, obj81File,
otherFile, hsFile
} FileKind;
#define FileNameMax 256
#define SeekSet
#define SeekCur
#define SeekEnd
#ifdef _WINDOWS_
# include <stdarg.h>
......
......@@ -2,14 +2,6 @@
extern int MACVAR;
#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 SizeOf(A) ((SizeT) sizeof (A))
......@@ -41,5 +33,4 @@ extern FILE *std_out_file_p,*std_error_file_p;
# define StdError stderr
#endif
#define FGetC(f) fgetc(f)
#define FPutC(c,f) fputc(c,f)
Markdown is supported
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