123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165 |
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /*
- * global data
- */
- #define RCS_EX "$Id$"
- extern int wordsize;
- extern int ptrsize;
- extern cons_t maxadr;
- extern cons_t maxint;
- extern cons_t maxdint;
- extern cons_t maxunsig;
- extern cons_t maxdunsig;
- /*
- * tables loaded from em_libraries
- */
- extern char em_flag[];
- /*
- The structure containing used for procedure environment stacking
- */
- extern stat_t pstate ;
- /*
- * pointers to not yet allocated storage
- */
- extern glob_t *mglobs;
- extern glob_t *xglobs;
- extern proc_t *mprocs;
- extern proc_t *xprocs;
- extern ptab_t *proctab;
- extern FILE *ifile;
- extern FILE *tfile;
- extern FILE *dfile;
- extern FILE *rtfile;
- extern FILE *rdfile;
- extern char string[];
- /*
- * some other pointers
- */
- extern glob_t *lastglosym;
- extern glob_t *curglosym;
- extern siz_t *oursize;
- extern relc_t *f_data;
- extern relc_t *l_data;
- extern relc_t *f_text;
- extern relc_t *l_text;
- /*
- * some indices
- */
- extern int strlngth;
- extern FOFFSET inpoff;
- extern FOFFSET libeof;
- /*
- * some other counters
- */
- extern int procnum;
- extern cons_t prog_size;
- extern int max_bytes;
- extern int pass;
- extern int line_num;
- extern int nerrors;
- extern cons_t textbytes;
- extern cons_t databytes;
- extern FOFFSET dataoff;
- extern FOFFSET textoff;
- extern FOFFSET lastoff;
- extern int datamode;
- extern int datablocks;
- extern relc_t *lastheader;
- extern cons_t holbase;
- extern cons_t holsize;
- extern int unresolved;
- extern int sourcelines;
- extern int intflags;
- /*
- * some flags
- */
- extern int archmode;
- extern int procflag;
- #ifdef DUMP
- extern int c_flag;
- extern char opcnt1[];
- extern char opcnt2[];
- extern char opcnt3[];
- #endif
- extern int d_flag;
- extern int r_flag;
- #ifdef JOHAN
- extern int jflag;
- #endif
- extern int wflag;
- extern int Uflag;
- extern int eof_seen;
- extern int mod_sizes;
- /*
- * miscellaneous
- */
- extern cons_t consiz;
- extern char *progname;
- extern char *curfile;
- extern char *eout;
- extern arch_t archhdr;
- extern siz_t sizes[];
- extern char linesize[];
- /*
- * from asstb.c
- */
- extern char *opindex[] ;
- extern char opchoice[] ;
- extern int maxinsl ;
- /*
- * types of value returning routines
- */
- #ifndef CPM
- extern int tmpfil();
- extern FILE *frewind();
- #endif
- extern int xgetc();
- extern unsigned get8();
- extern int get16();
- extern cons_t get32();
- extern cons_t xgeta();
- extern cons_t parval();
- extern cons_t valsize();
- extern cons_t xgetarb();
- extern char *findnop();
- extern char *findfit();
- extern glob_t *glolookup();
- extern glob_t *glo2lookup();
- extern glob_t *xglolookup();
- extern locl_t *loclookup();
- extern proc_t *prolookup();
- extern proc_t *enterproc();
- extern proc_t *searchproc();
- extern relc_t *text_reloc();
- extern relc_t *data_reloc();
- extern area_t getarea();
- /*
- * all used library routines
- */
- extern char *malloc();
- extern int open();
- extern int creat();
- extern int getpid();
- extern int unlink();
- extern int close();
- extern int strcmp();
- extern char *strcpy();
- #define void int
|