-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathGenObject.cpp
252 lines (232 loc) · 11.5 KB
/
GenObject.cpp
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
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
#include "def.h"
#include <fstream>
#define YYSTYPE int //此行是为了包含parser.tab.hpp不引起错误而加,可以在后面使用相关常量
#include "parser.tab.hpp"
string LoadFromMem(string Reg1, Opn opn, string Reg2)
{
string load;
if(!(Reg2 != "$sp" || (Reg2 == "$sp" && opn.isGolbal==0)))
Reg2 = "$gp";
load = " lw " + Reg1 + ", " + to_string(opn.Offset) + "(" + Reg2 + ")";
return load;
}
string LoadFromMem(string Reg1, Opn opn1, Opn opn2, string Reg2)
{
string load;
if(!(Reg2 != "$sp" || (Reg2 == "$sp" && opn1.isGolbal==0)))
Reg2 = "$gp";
load = " lw $t4, " + to_string(opn2.Offset) + "(" + "$sp" + ")\n" +
" add " + Reg2 + ", " + Reg2 + ", " + "$t4\n" +
" lw " + Reg1 + ", " + to_string(opn1.Offset) + "(" + Reg2 + ")\n" +
" sub " + Reg2 + ", " + Reg2 + ", $t4";
return load;
}
string StoreToMem (string Reg1, Opn opn, string Reg2)
{
string store;
if(!(Reg2 != "$sp" || (Reg2 == "$sp" && opn.isGolbal==0)))
Reg2 = "$gp";
store = " sw " + Reg1 + ", " + to_string(opn.Offset) + "(" + Reg2 + ")";
return store;
}
string StoreToMem (string Reg1, Opn opn1, Opn opn2, string Reg2)
{
string store;
if(!(Reg2 != "$sp" || (Reg2 == "$sp" && opn1.isGolbal==0)))
Reg2 = "$gp";
store = " lw $t4, " + to_string(opn2.Offset) + "(" + "$sp" + ")\n" +
" add " + Reg2 + ", " + Reg2 + ", " + "$t4\n" +
" sw " + Reg1 + ", " + to_string(opn1.Offset) + "(" + Reg2 + ")\n" +
" sub " + Reg2 + ", " + Reg2 + ", $t4";
return store;
}
void GenObject(list <IRCode> IRCodes)
{
fstream ObjectFile;
ObjectFile.open("ObjectFile.s",ios::out);
/*预先给出read和write的目标代码*/
ObjectFile<<".data\n";
ObjectFile<<"_Prompt: .asciiz \"Enter an integer: \"\n";
ObjectFile<<"_ret: .asciiz \"\\n\"\n";
ObjectFile<<".globl main\n";
ObjectFile<<".text\n\n";
ObjectFile<<"read:\n";
ObjectFile<<" li $v0,4\n";
ObjectFile<<" la $a0,_Prompt\n";
ObjectFile<<" syscall\n";
ObjectFile<<" li $v0,5\n";
ObjectFile<<" syscall\n";
ObjectFile<<" jr $ra\n\n";
ObjectFile<<"write:\n";
ObjectFile<<" li $v0,1\n";
ObjectFile<<" syscall\n";
ObjectFile<<" li $v0,4\n";
ObjectFile<<" la $a0,_ret\n";
ObjectFile<<" syscall\n";
ObjectFile<<" move $v0,$0\n";
ObjectFile<<" jr $ra\n";
for(list <IRCode>::iterator it=IRCodes.begin();it!=IRCodes.end();it++)
{
switch (it->Op)
{
case ASSIGN:
if (it->Opn1.Name==string("_CONST")) //这里只考虑了整常数
ObjectFile<< " li $t1, "<<it->Opn1.constINT<<endl;
else //这里只考虑了简单变量，数组则需要扩充
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< StoreToMem("$t1", it->Result, "$sp") << endl;
break;
case ARRLOAD:
ObjectFile<< LoadFromMem("$t1", it->Opn1, it->Opn2, "$sp") << endl;
ObjectFile<< StoreToMem("$t1", it->Result ,"$sp") <<endl;
break;
case ARRASSIGN:
ObjectFile<< LoadFromMem("$t1", it->Opn2, "$sp") << endl;
ObjectFile<< StoreToMem("$t1", it->Result, it->Opn1, "$sp") <<endl;
break;
case PLUS:
case MINUS:
case STAR:
case DIV:
case MOD:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< LoadFromMem("$t2", it->Opn2, "$sp") << endl;
if (it->Op==PLUS) ObjectFile<< " add $t3,$t1,$t2"<<endl;
else if (it->Op==MINUS) ObjectFile<< " sub $t3,$t1,$t2"<<endl;
else if (it->Op==STAR) ObjectFile<< " mul $t3,$t1,$t2"<<endl;
else if (it->Op==DIV) {
ObjectFile<< " div $t1, $t2"<<endl;
ObjectFile<< " mflo $t3"<<endl;
}
else {
ObjectFile<< " div $t1, $t2"<<endl;
ObjectFile<< " mfhi $t3"<<endl;
}
ObjectFile<< StoreToMem("$t3", it->Result, "$sp") << endl;
break;
case AND:
case OR:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< " sne $t1, $t1, $zero"<<endl;
ObjectFile<< LoadFromMem("$t2", it->Opn2, "$sp") << endl;
ObjectFile<< " sne $t2, $t2, $zero"<<endl;
if (it->Op==AND) ObjectFile<< " and $t3,$t1,$t2"<<endl;
else if (it->Op==OR) ObjectFile<< " or $t3,$t1,$t2"<<endl;
ObjectFile<< StoreToMem("$t3", it->Result, "$sp") << endl;
break;
case NOT:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< " sne $t1, $t1, $zero"<<endl;
ObjectFile<< " seq $t1, $t1, $zero"<<endl;
ObjectFile<< StoreToMem("$t1", it->Result, "$sp") << endl;
break;
case DPLUS:
case DMINUS:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
if (it->Op==DPLUS) ObjectFile<< " addi $t3,$t1,1"<<endl;
else if (it->Op==DMINUS) ObjectFile<< " addi $t3,$t1,-1"<<endl;
ObjectFile<< StoreToMem("$t3", it->Opn1, "$sp") << endl;
ObjectFile<< StoreToMem("$t3", it->Result, "$sp") << endl;
break;
case PLUSD:
case MINUSD:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< StoreToMem("$t1", it->Result, "$sp") << endl;
if (it->Op==PLUSD) ObjectFile<< " addi $t3,$t1,1"<<endl;
else if (it->Op==MINUSD) ObjectFile<< " addi $t3,$t1,-1"<<endl;
ObjectFile<< StoreToMem("$t3", it->Opn1, "$sp") << endl;
break;
case UMINUS:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< " li $t2,-1"<<endl;
ObjectFile<< " mul $t3,$t1,$t2"<<endl;
ObjectFile<< StoreToMem("$t3", it->Result, "$sp") << endl;
break;
case ARRDPLUS:
case ARRDMINUS:
ObjectFile<< LoadFromMem("$t1", it->Opn1, it->Opn2, "$sp") << endl;
if (it->Op==ARRDPLUS) ObjectFile<< " addi $t3,$t1,1"<<endl;
else if (it->Op==ARRDMINUS) ObjectFile<< " addi $t3,$t1,-1"<<endl;
ObjectFile<< StoreToMem("$t3", it->Opn1, it->Opn2, "$sp") << endl;
ObjectFile<< StoreToMem("$t3", it->Result, "$sp") << endl;
break;
case ARRPLUSD:
case ARRMINUSD:
ObjectFile<< LoadFromMem("$t1", it->Opn1, it->Opn2, "$sp") << endl;
ObjectFile<< StoreToMem("$t1", it->Result, "$sp") << endl;
if (it->Op==ARRPLUSD) ObjectFile<< " addi $t3,$t1,1"<<endl;
else if (it->Op==ARRMINUSD) ObjectFile<< " addi $t3,$t1,-1"<<endl;
ObjectFile<< StoreToMem("$t3", it->Opn1, it->Opn2, "$sp") << endl;
break;
case RETURN:
ObjectFile<< LoadFromMem("$v0", it->Result, "$sp") << endl;
ObjectFile<< " jr $ra"<<endl;
break;
case FUNCTION:
ObjectFile<< "\n"<<it->Result.Name<<":\n";
if (it->Result.Name==string("main")) //特殊处理main
ObjectFile<< " addi $sp, $sp, -"<<it->Result.Offset<<endl;
break;
case PARAM: break; //直接跳到后面一条
case ARG: break; //直接跳到后面一条,直到函数调用，回头提取实参值，传送到形参单元。
case LABEL: ObjectFile<<it->Result.Name<<":"<<endl; break;
case GOTO: ObjectFile<< " j "<<it->Result.Name<<endl; break;
case END:
ObjectFile<<" li $v0,10\n syscall"<<endl;
break;
case JLE:
case JLT:
case JGE:
case JGT:
case JEQ:
case JNE:
ObjectFile<< LoadFromMem("$t1", it->Opn1, "$sp") << endl;
ObjectFile<< LoadFromMem("$t2", it->Opn2, "$sp") << endl;
if (it->Op==JLE) ObjectFile<< " ble $t1,$t2,"<<it->Result.Name<<endl;
else if (it->Op==JLT) ObjectFile<< " blt $t1,$t2,"<<it->Result.Name<<endl;
else if (it->Op==JGE) ObjectFile<< " bge $t1,$t2,"<<it->Result.Name<<endl;
else if (it->Op==JGT) ObjectFile<< " bgt $t1,$t2,"<<it->Result.Name<<endl;
else if (it->Op==JEQ) ObjectFile<< " beq $t1,$t2,"<<it->Result.Name<<endl;
else ObjectFile<< " bne $t1,$t2,"<<it->Result.Name<<endl;
break;
case CALL: case CALL0:
list <IRCode>::iterator it0=it; it0--; //it0指向前面可能的ARG
if (it->Opn1.Name==string("read"))//特殊处理read
{
ObjectFile<< " addi $sp, $sp, -4\n";
ObjectFile<< " sw $ra,0($sp)\n"; //保留返回地址
ObjectFile<< " jal read\n"; //保留返回地址
ObjectFile<< " lw $ra,0($sp)\n"; //恢复返回地址
ObjectFile<< " addi $sp, $sp, 4\n";
ObjectFile<< StoreToMem("$v0", it->Result, "$sp") << endl;
break;
}
if (it->Opn1.Name==string("write"))//特殊处理write
{
ObjectFile<< LoadFromMem("$a0", it0->Result, "$sp") << endl; //前面ARG的偏移量
ObjectFile<< " addi $sp, $sp, -4\n";
ObjectFile<< " sw $ra,0($sp)\n";
ObjectFile<< " jal write\n";
ObjectFile<< " lw $ra,0($sp)\n";
ObjectFile<< " addi $sp, $sp, 4\n";
break;
}
ObjectFile<< " move $t0,$sp"<<endl; //保存当前函数的sp到$t0中，为了取实参表达式的值
ObjectFile<< " addi $sp, $sp, -"<<static_cast <FuncSymbol *>(it->Opn1.SymPtr)->ARSize<<endl; //开活动记录空间
ObjectFile<< " sw $ra,0($sp)"<<endl; //保留返回地址
while (it0->Op==ARG) //依次取参数值传递到形参单元中
{
//将原栈帧的偏移it0->Result.Offset数据取出，送到新栈帧的it0->Opn1.Offset
ObjectFile<< LoadFromMem("$t1", it0->Result, "$t0") << endl;
ObjectFile<< StoreToMem("$t1", it0->Opn1, "$sp") << endl;
it0--;
}
ObjectFile<<" jal "<<it->Opn1.Name<<endl; //跳转到被调用函数
ObjectFile<<" lw $ra,0($sp)"<<endl; //恢复返回地址
ObjectFile<<" addi $sp,$sp,"<<((FuncSymbol *)(it->Opn1.SymPtr))->ARSize<<endl; //释放活动记录空间
ObjectFile<< StoreToMem("$v0", it->Result, "$sp") << endl; //取返回值,如void函数，不需要取值
break;
}
}
ObjectFile.close();
}