1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
#ifndef SEMANTICS_H
#define SEMANTICS_H
#include <stdint.h>
#include "const.h"
typedef struct CNode CNode;
typedef struct CTable *CTable_t;
typedef struct CType CType;
typedef CType *CType_t;
typedef struct CVar CVar;
typedef CVar *CVar_t;
typedef struct CSymbol CSymbol;
typedef CSymbol *CSymbol_t;
typedef struct CDef CDef;
typedef CDef *CDef_t;
typedef struct CTList CTList;
typedef CTList *CTList_t;
struct CTList {
CType_t type;
CTList_t next;
};
typedef struct CVList CVList;
typedef CVList *CVList_t;
struct CVList {
CVar_t var;
CVList_t next;
};
typedef struct CSList CSList;
typedef CSList *CSList_t;
struct CSList {
char *str;
int id;
int start;
CSList_t prev, next;
};
typedef struct CBList *CBList_t;
typedef struct COList *COList_t;
typedef struct CVList *CVList_t;
struct CVar {
char *name;
CVar_t next; /* next in the linked list */
CType_t type;
int start;
CNode *ast;
CNode *initr;
CBList_t defsite;
int loc;
int reload;
/* the following fields are used for renaming */
int cnt;
int weight;
COList_t stack;
};
CVar_t cvar_create(char *name, CType_t type, CNode *ast);
void cvar_print(CVar_t cv);
struct CType {
enum {
CINT,
CCHAR,
CVOID,
CSTRUCT,
CUNION,
CARR,
CPTR,
CFUNC
} type;
char *name;
union {
struct {
CTable_t fields; /* for a struct or union */
CVar_t flist;
} st;
CType_t ref; /* for a pointer */
struct {
CType_t elem;
int len;
} arr; /* for an array */
struct {
CVar_t params;
CVar_t local;
CType_t ret;
CNode *body;
int local_size;
int frame_size;
} func; /* for a function */
} rec;
int size; /* memory footprint */
CNode *ast;
};
CType_t ctype_create(char *name, int type, CNode *ast);
void ctype_debug_print(CType_t ct);
typedef unsigned int (*Hashfunc_t) (const char *);
typedef const char *(*Printfunc_t) (void *);
typedef struct CTNode CTNode;
struct CTNode {
const char *key;
void *val;
CTNode *next;
int lvl;
};
typedef struct CTable {
CTNode *head[MAX_TABLE_SIZE];
Hashfunc_t hfunc;
Printfunc_t pfunc;
} CTable;
CTable_t ctable_create(Hashfunc_t hfunc, Printfunc_t pfunc);
void ctable_destroy(CTable_t ct);
void *ctable_lookup(CTable_t ct, const char *key);
int ctable_insert(CTable_t ct, const char *key, void *val, int lvl);
void ctable_clip(CTable_t ct, const char *key, int max_lvl);
void ctable_debug_print(CTable_t ct);
typedef struct CSElem CSElem;
struct CSElem {
CSymbol_t sym;
CSElem *next;
};
typedef struct CSNode CSNode;
struct CSNode {
CSElem *symlist;
CSNode *next;
};
typedef struct CScope CScope;
typedef CScope *CScope_t;
struct CScope {
int lvl;
CType_t func;
int inside_loop;
CSNode *top;
CTable_t ids; /* ordinary identifiers */
CTable_t tags; /* union & struct tags */
/* CTable_t ext_link; external linkage */
};
typedef struct ExpType {
CType_t type;
int lval;
} ExpType;
struct CSymbol {
enum {
CTYPE,
CVAR,
CDEF
} kind;
union {
CType_t type;
CVar_t var;
CDef_t def;
} rec;
};
const char *csymbol_print(void *csym);
const char *csym_getname(CSymbol_t csym);
struct CDef {
const char *name;
CType_t type;
CNode *ast;
};
CDef_t cdef_create(const char *name, CType_t type, CNode *ast);
CScope_t cscope_create(void);
CSymbol_t cscope_lookup(CScope_t cs, const char *name, int nspace);
int cscope_push_var(CScope_t cs, CVar_t var, int nspace);
int cscope_push_def(CScope_t cs, CDef_t def, int nspace);
int cscope_push_type(CScope_t cs, CType_t type, int nspace);
void cscope_enter(CScope_t cs);
void cscope_exit(CScope_t cs);
void cscope_debug_print(CScope_t cs);
unsigned int bkdr_hash(const char *str);
const char *ctable_cvar_print(void *var);
void semantics_check(CNode *ast, int quiet);
enum DefState{
FORCE_ID,
IN_TYPEDEF,
NONE
};
typedef struct CPNode CPNode;
typedef struct CPSet {
struct CPNode {
uintptr_t key;
CPNode *next;
} *head[MAX_TABLE_SIZE];
} CPSet;
typedef CPSet *CPSet_t;
CPSet_t cpset_create(void);
int cpset_insert(CPSet_t cps, uintptr_t key);
int cpset_belongs(CPSet_t cps, uintptr_t key);
void cpset_erase(CPSet_t cps, uintptr_t key);
void cpset_destroy(CPSet_t cps);
int is_identifier(const char *name);
void push(char *name);
void cibic_init(void);
void block_enter(void);
void block_exit(void);
void def_enter(enum DefState kind);
void def_exit(void);
int calc_size(CType_t type);
int align_shift(int x);
extern int scnt;
extern CTList_t funcs;
extern CVList_t gvars;
extern CSList_t cstrs;
#endif
|