ref: 7d32c5733f318b04aefa28e3738bebcad8323b6a
dir: /cc1/cc1.h/
#ifndef CC1_H #define CC1_H struct user_opt { unsigned char implicit; unsigned char mixdcls; unsigned char npromote; unsigned char useless; unsigned char charsign; unsigned char pcompare; }; extern struct user_opt options; extern void error(const char *fmt, ...); extern void warn(signed char flag, const char *fmt, ...); /* definitions of types */ #define CTX_OUTER 0 #define CTX_FUNC 1 enum { NS_IDEN = 0, NS_TAG, NS_LABEL, NR_NAMESPACES }; typedef struct ctype Type; typedef struct symbol Symbol; struct funpars; typedef struct field { char *name; Type *type; int id; struct field *next; } Field; struct ctype { uint8_t op; /* type builder operator */ char letter; /* letter of the type */ bool defined : 1; /* type defined (is not a forward reference) */ bool sign : 1; /* sign type */ struct ctype *type; /* base type */ struct ctype *next; /* next element in the hash */ union { unsigned char rank; /* convertion rank */ short nelem; /* number of elements in arrays */ struct funpar *pars; /* function parameters */ Field *fields; /* aggregate fields */ } u; }; struct funpar { Type *type; struct funpar *next; }; /* definition of symbols */ struct symbol { char *name; Type *type; short id; uint8_t ctx; uint8_t token; struct { bool isglobal : 1; bool isstatic : 1; bool isauto : 1; bool isregister : 1; bool isdefined : 1; } s; union { int i; char *s; struct symbol *sym; uint8_t token; } u; struct symbol *next; struct symbol *hash; }; extern void freesyms(uint8_t ns); extern Type *qualifier(Type *tp, uint8_t qlf), *ctype(int8_t type, int8_t sign, int8_t size), *mktype(Type *tp, uint8_t op, uint16_t nelem); extern Symbol *lookup(char *s, unsigned char ns), *install(char *s, unsigned char ns); typedef struct caselist Caselist; extern void compound(Symbol *lbreak, Symbol *lcont, Caselist *lswitch); extern Type *aggregate(Type *(*fun)(void)); extern void context(Symbol *lbreak, Symbol *lcont, Caselist *lswitch); extern Type *typename(void); extern Type *voidtype, *pvoidtype, *booltype, *uchartype, *chartype, *uinttype, *inttype, *ushortype, *shortype, *longtype, *ulongtype, *ullongtype, *llongtype, *floattype, *doubletype, *ldoubletype; #define ISQUAL(t) (isqual((t)->op)) #define UNQUAL(t) (ISQUAL(t) ? (t)->type : (t)) #define BTYPE(t) (UNQUAL(t)->op) #define isqual(op) ((op) & TQUALIFIER) #define isconst(op) (((op) & (TQUALIFIER|CONST)) == \ (TQUALIFIER|CONST)) enum { FTN = 1, ENUM, TYPENAME, VOID, FLOAT, INT, BOOL, STRUCT, UNION, PTR, ARY, CHAR, DOUBLE, SHORT, LONG, COMPLEX, UNSIGNED, SIGNED }; #define CONST (1<<0) #define VOLATILE (1<<1) #define RESTRICT (1<<2) #define TYPEDEF 1 #define EXTERN 2 #define STATIC 3 #define AUTO 4 #define REGISTER 5 #define accept(t) ((yytoken == (t)) ? next() : 0) #define ahead() yyntoken enum tokens { TQUALIFIER = 128, TYPE, IDEN, SCLASS, CONSTANT, SIZEOF, INDIR, INC, DEC, SHL, SHR, LE, GE, EQ, NE, AND, OR, MUL_EQ, DIV_EQ, MOD_EQ, ADD_EQ, SUB_EQ, AND_EQ, XOR_EQ, OR_EQ, SHL_EQ, SHR_EQ, ELLIPSIS, STRING, CASE, DEFAULT, IF, ELSE, SWITCH, WHILE, DO, FOR, GOTO, CONTINUE, BREAK, RETURN, EOFTOK, NOTOK }; union yystype { Symbol *sym; uint8_t token; }; extern union yystype yylval; extern char yytext[]; extern uint8_t yytoken, yyntoken; extern uint8_t next(void); extern void expect(uint8_t tok); typedef struct node { void (*code)(struct node *); Type *type; Type *utype; uint8_t typeop; struct { bool lvalue : 1; bool symbol: 1; bool constant : 1; } b; union unode { Symbol *sym; Type *type; char op; Field *field; } u; struct node *childs[]; } Node; enum { OCAST = 1, OPTR, OADD, OARY, OSIZE, OMUL, OSUB, OINC, ODEC, ODIV, OMOD, OSHL, OSHR, OBAND, OBXOR, OBOR, OASSIGN, OA_MUL, OA_DIV, OA_MOD, OA_ADD, OA_SUB, OA_SHL, OA_SHR, OA_AND, OA_XOR, OA_OR, OADDR,ONEG, OCPL, OEXC, OCOMMA, /* * Complementary relational operators only differ in less * significant bit */ OEQ = 0x40, ONE, OLT, OGE, OLE, OGT, OAND, OOR }; extern void emitdcl(Symbol *), emitsframe(Symbol *), emiteframe(void), emitsym(Node *), emitunary(Node *), emitbin(Node *), emitexp(Node *), emitprint(Node *), emitlabel(Symbol *), emitjump(Symbol *, Node *), emitbloop(void), emiteloop(void), emitswitch(short, Node *), emitcase(Symbol *, Node *), emitret(Type *tp), emitfun(Symbol *sym), emitdefault(Symbol *); extern Node *node(void (*code)(Node *), Type *tp, union unode u, uint8_t nchilds), *unarycode(char op, Type *tp, Node *child), *bincode(char op, Type *tp, Node *np1, Node *np2), *castcode(Node *child, Type *tp), *sizeofcode(Type *tp), *ternarycode(Node *cond, Node *ifyes, Node *ifno), *symcode(Symbol *sym), *fieldcode(Node *child, struct field *fp); #define NEGATE(n, v) ((n)->u.op ^= (v)) /* TODO: remove some of these ugly macros */ #define ISNODEBIN(n) ((n)->code == emitbin) #define ISNODECMP(n) (ISNODEBIN(n) && (n)->u.op & 0x40) extern Node *expr(void); extern void extdecl(void), decl(void); #endif