ref: 5b42385090b777a97827b76840e814f57a859cb8
dir: /cc1/cc1.h/
#define INPUTSIZ LINESIZ
#define GLOBALCTX 0
#define PARAMCTX 1
#define NR_USWITCHES 20
/*
* Definition of enumerations
*/
enum {
NOALLOC,
ALLOC
};
enum typeprops {
TDEFINED = 1 << 0, /* type defined */
TSIGNED = 1 << 1, /* signedness of the type */
TINTEGER = 1 << 2, /* the type is INT of enum */
TARITH = 1 << 3, /* the type is INT, ENUM or FLOAT */
TAGGREG = 1 << 4, /* the type is struct or union */
TK_R = 1 << 5, /* this is a K&R-function */
TELLIPSIS= 1 << 6, /* this function has an ellipsis par */
TFUNDEF = 1 << 7, /* function definition */
};
enum inputtype {
IMACRO = 1 << 0, /* macro expansion type */
IFILE = 1 << 1, /* input file type */
ISTDIN = 1 << 2, /* stdin type */
IEOF = 1 << 3, /* EOF mark */
ITYPE = IMACRO | IFILE | ISTDIN,
};
/* data type letters */
enum ns {
L_INT8 = 'C',
L_INT16 = 'I',
L_INT32 = 'W',
L_INT64 = 'Q',
L_UINT8 = 'K',
L_UINT16 = 'N',
L_UINT32 = 'Z',
L_UINT64 = 'O',
L_BOOL = 'B',
L_FLOAT = 'J',
L_DOUBLE = 'D',
L_LDOUBLE = 'H',
L_ELLIPSIS = 'E',
L_VOID = '0',
L_POINTER = 'P',
L_FUNCTION = 'F',
L_ARRAY = 'V',
L_UNION = 'U',
L_STRUCT = 'S',
L_VA_ARG = '1',
};
/* recovery points */
enum {
END_DECL,
END_LDECL,
END_COMP,
END_COND
};
/* type constructors */
enum typeop {
FTN = 1,
PTR,
ARY,
KRFTN
};
/* namespaces */
enum namespaces {
NS_DUMMY,
NS_IDEN,
NS_TAG,
NS_LABEL,
NS_CPP,
NS_KEYWORD,
NS_CPPCLAUSES,
NS_STRUCTS
};
/* symbol flags */
enum {
SAUTO = 1 << 0,
SREGISTER = 1 << 1,
SDECLARED = 1 << 2,
SFIELD = 1 << 3,
SEXTERN = 1 << 4,
SUSED = 1 << 5,
SCONSTANT = 1 << 6,
SGLOBAL = 1 << 7,
SPRIVATE = 1 << 8,
SLOCAL = 1 << 9,
SEMITTED = 1 << 10,
SDEFINED = 1 << 11,
SSTRING = 1 << 12,
STYPEDEF = 1 << 13,
SINITLST = 1 << 14,
SHASINIT = 1 << 15
};
/* node flags */
enum {
NLVAL = 1 << 0,
NCONST = 1 << 1,
NEFFECT = 1 << 2
};
/* lexer mode, compiler or preprocessor directive */
enum {
CCMODE,
CPPMODE
};
/* input tokens */
enum tokens {
CONST = 1 << 0, /* type qualifier tokens are used as flags */
RESTRICT = 1 << 1,
VOLATILE = 1 << 2,
INLINE = 1 << 3,
TQUALIFIER = 1 << 7, /* this value is picked outside of ASCII range */
TYPE,
IDEN,
SCLASS,
CONSTANT,
STRING,
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,
CASE,
DEFAULT,
IF,
ELSE,
SWITCH,
WHILE,
DO,
FOR,
GOTO,
VOID,
FLOAT,
INT,
BOOL,
VA_LIST,
STRUCT,
UNION,
CHAR,
DOUBLE,
SHORT,
LONG,
LLONG,
COMPLEX,
TYPEDEF,
EXTERN,
STATIC,
AUTO,
REGISTER,
ENUM,
TYPEIDEN,
UNSIGNED,
SIGNED,
CONTINUE,
BREAK,
RETURN,
DEFINE,
INCLUDE,
LINE,
PRAGMA,
ERROR,
IFDEF,
ELIF,
IFNDEF,
UNDEF,
ENDIF,
BUILTIN,
EOFTOK
};
/* operations */
enum op {
OADD,
OMUL,
OSUB,
OINC,
ODEC,
ODIV,
OMOD,
OSHL,
OSHR,
OBAND,
OBXOR,
OBOR,
OSNEG,
ONEG,
OCPL,
OAND,
OOR,
OEQ,
ONE,
OLT,
OGE,
OLE,
OGT,
OASSIGN,
OA_MUL,
OA_DIV,
OA_MOD,
OA_ADD,
OA_SUB,
OA_SHL,
OA_SHR,
OA_AND,
OA_XOR,
OA_OR,
OADDR,
OCOMMA,
OCAST,
OPTR,
OSYM,
OASK,
OCOLON,
OFIELD,
OLABEL,
ODEFAULT,
OCASE,
OJUMP,
OBRANCH,
OEXPR,
OEFUN,
OELOOP,
OBLOOP,
OFUN,
OPAR,
OCALL,
OCALLE,
ORET,
ODECL,
OBSWITCH,
OESWITCH,
OINIT,
OBUILTIN,
OTYP,
};
/*
* Definition of structures
*/
typedef struct type Type;
typedef struct symbol Symbol;
typedef struct swtch Switch;
typedef struct node Node;
typedef struct input Input;
struct limits {
union {
TUINT i;
TFLOAT f;
} max;
union {
TUINT i;
TFLOAT f;
} min;
};
struct builtin {
char *str;
Node *(*fun)(Symbol *);
};
struct keyword {
char *str;
unsigned char token, value;
};
struct type {
unsigned char op; /* type builder operator */
unsigned char ns; /* namespace for struct members */
short id; /* type id, used in dcls */
char letter; /* letter of the type */
unsigned char prop; /* type properties */
unsigned char align; /* align of the type */
unsigned long size; /* sizeof the type */
Type *type; /* base type */
Symbol *tag; /* symbol of the strug tag */
union {
Type **pars; /* Function type parameters */
Symbol **fields; /* fields of aggregate type */
} p;
union {
unsigned char rank; /* convertion rank */
TINT elem; /* number of type parameters */
} n;
Type *next; /* local list pointer */
Type *h_next; /* hash collision list */
};
struct symbol {
unsigned char ctx;
unsigned char hide;
char ns;
unsigned short id;
unsigned short flags;
char *name;
Type *type;
unsigned char token;
union {
TINT i;
TUINT u;
TFLOAT f;
char *s;
unsigned char token;
Node **init;
Symbol **pars;
Node *(*fun)(Symbol *);
} u;
struct symbol *next;
struct symbol *hash;
};
struct node {
unsigned char op;
unsigned char flags;
Type *type;
Symbol *sym;
struct node *left, *right;
};
struct swtch {
short nr;
char hasdef;
};
struct yystype {
Symbol *sym;
unsigned char token;
};
#ifdef stdin
struct input {
char flags;
unsigned lineno;
char *filenam;
FILE *fp;
Symbol *hide;
char *line, *begin, *p;
struct input *next;
};
#endif
/* error.c */
extern void error(char *fmt, ...);
extern void warn(char *fmt, ...);
extern void unexpected(void);
extern void errorp(char *fmt, ...);
extern void cpperror(char *fmt, ...);
extern Type *deftype(Type *tp);
/* types.c */
extern int eqtype(Type *tp1, Type *tp2, int eqflag);
extern Type *ctype(int type, int sign, int size);
extern Type *mktype(Type *tp, int op, TINT nelem, Type *data[]);
extern Type *duptype(Type *base);
extern struct limits *getlimits(Type *tp);
extern void typesize(Type *tp);
extern void flushtypes(void);
/* symbol.c */
extern void dumpstab(Symbol **tbl, char *msg);
extern Symbol *lookup(int ns, char *name, int alloc);
extern Symbol *nextsym(Symbol *sym, int ns);
extern Symbol *install(int ns, Symbol *sym);
extern Symbol *newsym(int ns, char *name);
extern void pushctx(void), popctx(void);
extern void killsym(Symbol *sym);
extern Symbol *newlabel(void);
extern void keywords(struct keyword *key, int ns);
extern void builtins(struct builtin *builts);
extern Symbol *newstring(char *s, size_t len);
extern unsigned newid(void);
/* stmt.c */
extern void compound(Symbol *lbreak, Symbol *lcont, Switch *sw);
/* decl.c */
extern Type *typename(void);
extern void decl(void);
/* lex.c */
extern int ahead(void);
extern int next(void);
extern void expect(int tok);
extern void discard(void);
extern void addinput(char *fname, Symbol *hide, char *buffer);
extern void delinput(void);
extern void setsafe(int type);
extern void ilex(void);
extern void setloc(char *fname, unsigned line);
#define accept(t) ((yytoken == (t)) ? next() : 0)
/* code.c */
extern void prtree(Node *np);
extern void emit(int, void *);
extern Node *node(int op, Type *tp, Node *left, Node *rigth);
extern Node *varnode(Symbol *sym);
extern Node *constnode(Symbol *sym);
extern Node *sizeofnode(Type *tp);
extern void freetree(Node *np);
extern void icode(void);
#define BTYPE(np) ((np)->type->op)
/* fold.c */
extern Node *simplify(Node *np);
extern TUINT ones(int nbytes);
/* expr.c */
extern Node *decay(Node *), *negate(Node *np), *assign(void);
extern Node *convert(Node *np, Type *tp1, int iscast);
extern Node *constexpr(void), *condexpr(int neg), *expr(void);
extern int isnodecmp(int op);
extern int negop(int op);
extern int cmpnode(Node *np, TUINT val);
/* init.c */
extern void initializer(Symbol *sym, Type *tp);
extern Node *initlist(Type *tp);
/* cpp.c */
extern void icpp(void);
extern int cpp(void);
extern int expand(char *begin, Symbol *sym);
extern void incdir(char *dir);
extern void outcpp(void);
extern void defdefine(char *macro, char *val, char *source);
extern void undefmacro(char *s);
extern void ppragmaln(void);
/* builtin.c */
extern void ibuilts(void);
/* arch.c */
extern void iarch(void);
extern int valid_va_list(Type *tp);
/*
* Definition of global variables
*/
extern struct yystype yylval;
extern char yytext[];
extern int yytoken;
extern unsigned short yylen;
extern int disexpand;
extern unsigned cppctx;
extern Input *input;
extern int lexmode, namespace;
extern int onlycpp, onlyheader;
extern unsigned curctx;
extern Symbol *curfun, *zero, *one;
extern char *infile;
extern unsigned lineno;
extern char filenam[];
extern Type *voidtype, *pvoidtype, *booltype,
*uchartype, *chartype, *schartype,
*uinttype, *inttype,
*sizettype, *pdifftype,
*ushortype, *shortype,
*longtype, *ulongtype,
*ullongtype, *llongtype,
*floattype, *doubletype, *ldoubletype,
*ellipsistype, *va_list_type, *va_type;