add LCC - a better C-Compiler for WEGA
This commit is contained in:
Oliver Lehmann
parent
bbe5971c16
commit
e357050a05
|
|
@ -0,0 +1,211 @@
|
|||
# include "macdefs.h"
|
||||
# include "manifest.h"
|
||||
|
||||
/* storage classes */
|
||||
# define SNULL 0
|
||||
# define AUTO 1
|
||||
# define EXTERN 2
|
||||
# define STATIC 3
|
||||
# define REGISTER 4
|
||||
# define EXTDEF 5
|
||||
# define LABEL 6
|
||||
# define ULABEL 7
|
||||
# define MOS 8
|
||||
# define PARAM 9
|
||||
# define STNAME 10
|
||||
# define MOU 11
|
||||
# define UNAME 12
|
||||
# define TYPEDEF 13
|
||||
# define FORTRAN 14
|
||||
# define ENAME 15
|
||||
# define MOE 16
|
||||
# define UFORTRAN 17
|
||||
# define USTATIC 18
|
||||
/* field size is ORed in */
|
||||
# define FIELD 0100
|
||||
# define FLDSIZ 077
|
||||
# ifndef NODBG
|
||||
extern char *scnames();
|
||||
# endif
|
||||
|
||||
/* location counters */
|
||||
# define PROG 0
|
||||
# define ADATA 1
|
||||
# define DATA 2
|
||||
# define ISTRNG 3
|
||||
# define STRNG 4
|
||||
|
||||
/* symbol table flags */
|
||||
# define SMOS 01
|
||||
# define SHIDDEN 02
|
||||
# define SHIDES 04
|
||||
# define SSET 010
|
||||
# define SREF 020
|
||||
# define SNONUNIQ 040
|
||||
# define STAG 0100
|
||||
|
||||
|
||||
struct symtab {
|
||||
char * sname;
|
||||
TWORD stype; /* type word */
|
||||
|
||||
char sclass; /* storage class */
|
||||
char slevel; /* scope level */
|
||||
char sflags; /* flags for set, use, hidden, mos, etc. */
|
||||
OFFSZ offset; /* offset or value */
|
||||
short dimoff; /* offset into the dimension table */
|
||||
short sizoff; /* offset into the size table */
|
||||
short suse; /* line number of last use of the variable */
|
||||
struct symtab *scopelink; /* chain of symbols at same level */
|
||||
};
|
||||
|
||||
|
||||
struct sw {
|
||||
CONSZ sval;
|
||||
int slab;
|
||||
};
|
||||
|
||||
extern struct sw swtab[];
|
||||
extern struct sw *swp;
|
||||
extern int swx;
|
||||
|
||||
extern int ftnno;
|
||||
extern int blevel;
|
||||
extern int instruct, stwart;
|
||||
|
||||
extern int lineno, nerrors;
|
||||
typedef union {
|
||||
int intval;
|
||||
NODE * nodep;
|
||||
} YYSTYPE;
|
||||
extern YYSTYPE yylval;
|
||||
|
||||
extern CONSZ lastcon;
|
||||
extern CONSZ ccast();
|
||||
extern double dcon;
|
||||
|
||||
extern char ftitle[];
|
||||
extern struct symtab stab[];
|
||||
extern int curftn;
|
||||
extern int strftn;
|
||||
extern TWORD ftntype;
|
||||
extern char *locnames[];
|
||||
extern int curloc;
|
||||
extern int curclass;
|
||||
extern int curdim;
|
||||
extern OFFSZ dimtab[];
|
||||
extern long paramstk[];
|
||||
extern int paramno;
|
||||
extern int argstk[];
|
||||
extern OFFSZ argsoff[];
|
||||
extern TWORD argty[];
|
||||
extern int argno;
|
||||
extern OFFSZ autooff, argoff, strucoff;
|
||||
extern int regvar;
|
||||
extern int nextrvar;
|
||||
extern int brkflag;
|
||||
extern char yytext[];
|
||||
|
||||
extern int strflg;
|
||||
|
||||
extern OFFSZ inoff;
|
||||
|
||||
extern int reached;
|
||||
|
||||
/* tunnel to buildtree for name id's */
|
||||
|
||||
extern int idname;
|
||||
|
||||
extern NODE node[];
|
||||
extern NODE *lastfree;
|
||||
|
||||
extern int cflag, hflag, pflag;
|
||||
|
||||
/* various labels */
|
||||
extern int brklab;
|
||||
extern int contlab;
|
||||
extern int flostat;
|
||||
extern int retlab;
|
||||
extern int retstat;
|
||||
extern int asavbc[], *psavbc;
|
||||
|
||||
/* flags used in structures/unions */
|
||||
|
||||
# define SEENAME 01
|
||||
# define INSTRUCT 02
|
||||
# define INUNION 04
|
||||
# define FUNNYNAME 010
|
||||
# define TAGNAME 020
|
||||
|
||||
/* flags used in the (elementary) flow analysis ... */
|
||||
|
||||
# define FBRK 02
|
||||
# define FCONT 04
|
||||
# define FDEF 010
|
||||
# define FLOOP 020
|
||||
|
||||
/* flags used for return status */
|
||||
|
||||
# define RETVAL 1
|
||||
# define NRETVAL 2
|
||||
|
||||
/* used to mark a constant with no name field */
|
||||
|
||||
# define NONAME 040000
|
||||
|
||||
/* mark an offset which is undefined */
|
||||
|
||||
# define NOOFFSET (-10201)
|
||||
|
||||
/* declarations of various functions */
|
||||
|
||||
extern NODE
|
||||
*aadjust(),
|
||||
*bcon(),
|
||||
*bdty(),
|
||||
*block(),
|
||||
*bpsize(),
|
||||
*buildtree(),
|
||||
*clocal(),
|
||||
*conval(),
|
||||
*convert(),
|
||||
*dclstruct(),
|
||||
*doszof(),
|
||||
*getstr(),
|
||||
*makety(),
|
||||
*mkty(),
|
||||
*oconvert(),
|
||||
*offcon(),
|
||||
*optim(),
|
||||
*pconvert(),
|
||||
*ptmatch(),
|
||||
*pvconvert(),
|
||||
*rstruct(),
|
||||
*sconvert(),
|
||||
*strargs(),
|
||||
*stref(),
|
||||
*talloc(),
|
||||
*tymatch(),
|
||||
*tymerge(),
|
||||
*unconvert(),
|
||||
*xicolon();
|
||||
|
||||
OFFSZ tsize(),
|
||||
psize();
|
||||
|
||||
TWORD types(),
|
||||
ctype();
|
||||
|
||||
char *exname(), *exdcon();
|
||||
|
||||
# define checkst(x)
|
||||
|
||||
# ifdef SDB
|
||||
# include "sdb.h"
|
||||
# endif
|
||||
|
||||
/* type that is equivalent to pointers in size */
|
||||
# ifndef PTRTYPE
|
||||
# define PTRTYPE INT
|
||||
# endif
|
||||
extern char datanm[]; /* for data-segment names */
|
||||
Loading…
Reference in New Issue