1984-11-27 22:11:59 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
#include <signal.h>
|
|
|
|
|
|
|
|
|
|
/* Author: M.L. Kersten
|
|
|
|
|
** Here all the global objects are defined.
|
|
|
|
|
*/
|
|
|
|
|
#include "symbols.h"
|
|
|
|
|
#include "graph.h"
|
|
|
|
|
#include "y.tab.h"
|
|
|
|
|
|
1984-11-27 23:13:28 +00:00
|
|
|
#ifndef NORCSID
|
|
|
|
|
# define RCS_BEM "$Header$"
|
|
|
|
|
#endif
|
|
|
|
|
|
1984-11-27 22:11:59 +00:00
|
|
|
#define POINTERSIZE 4
|
|
|
|
|
#define MAXINT 32768
|
|
|
|
|
#define MININT -32767
|
|
|
|
|
#define EMINTSIZE "EM_WSIZE"
|
|
|
|
|
#define EMPTRSIZE "EM_PSIZE"
|
|
|
|
|
#define EMFLTSIZE "EM_DSIZE"
|
|
|
|
|
|
|
|
|
|
#define MAXPIECES 100
|
|
|
|
|
#define MAXFILENAME 200
|
|
|
|
|
|
|
|
|
|
#define CHANNEL 0
|
|
|
|
|
#define THRESHOLD 40 /* for splitting blocks */
|
|
|
|
|
|
|
|
|
|
extern char *program; /* name of source program */
|
|
|
|
|
extern char *inpfile; /* input tko compiler */
|
|
|
|
|
extern char *outfile; /* output from compiler */
|
|
|
|
|
|
|
|
|
|
extern char datfname[MAXFILENAME]; /* data statements file */
|
|
|
|
|
extern char tmpfname[MAXFILENAME]; /* temporary statements file */
|
|
|
|
|
|
|
|
|
|
extern FILE *emfile; /* EM output file */
|
|
|
|
|
extern FILE *datfile; /* data file */
|
|
|
|
|
extern FILE *tmpfile; /* compiler temporary */
|
|
|
|
|
extern FILE *yyin; /* Compiler input */
|
|
|
|
|
|
|
|
|
|
extern int endofinput;
|
|
|
|
|
extern int wflag;
|
|
|
|
|
extern int hflag;
|
|
|
|
|
extern int traceflag;
|
|
|
|
|
extern int yydebug;
|
|
|
|
|
extern int yylineno;
|
|
|
|
|
extern int listing;
|
|
|
|
|
extern int nolins;
|
|
|
|
|
extern int threshold;
|
|
|
|
|
extern int debug;
|
|
|
|
|
extern int tronoff;
|
|
|
|
|
|
|
|
|
|
extern int emlinecount; /* counts lines on tmpfile */
|
|
|
|
|
extern int dataused;
|
|
|
|
|
extern int typetable[10]; /* parameters to standard functions */
|
|
|
|
|
|
|
|
|
|
extern Linerecord *currline;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
extern char *itoa();
|
|
|
|
|
extern char *datalabel();
|
|
|
|
|
extern char *instrlabel();
|
|
|
|
|
extern char *typesize();
|
1985-01-17 14:10:27 +00:00
|
|
|
extern char *typestring();
|
|
|
|
|
extern void sprintf();
|
