source: dev/trunk/abdev/BasicCompiler64/Compile_Object.cpp@ 260

Last change on this file since 260 was 255, checked in by dai_9181, 17 years ago
File size: 8.0 KB
Line 
1#include "stdafx.h"
2
3#include <Compiler.h>
4
5#include "../BasicCompiler_Common/common.h"
6#include "opcode.h"
7
8void _call_constructor( const CClass *pobj_c,const char *CreateParameter,int ObjectSize,BOOL bSomeObjects){
9 ////////////////////////////
10 // コンストラクタの呼び出し
11 ////////////////////////////
12
13 //この関数を使用する場合は、
14 //・ebxにオブジェクトの個数(複数個の場合のみ)
15 //・スタックフレームの先頭参照位置に先頭Thisポインタ
16 //をセットしておかなければならない
17
18 int jnz_back;
19
20
21 //jnzの番地
22 jnz_back=obp;
23
24 if(bSomeObjects){
25 SetError();
26 //mov qword ptr[rsp+offset],rbx ※スタックフレームを利用
27 pobj_sf->push(REG_RBX);
28
29 // ※ここでプッシュされた値はコンストラクタのthisポインタとなる
30 //mov qword ptr[rsp+offset],rax ※スタックフレームを利用
31 pobj_sf->push(REG_RAX);
32 }
33
34
35 ////////////////////////
36 // オーバーロードを解決
37 ////////////////////////
38
39 std::vector<const UserProc *> subs;
40 pobj_c->GetMethods().Enum( pobj_c->GetName().c_str(), subs );
41
42 const UserProc *pUserProc;
43 if( subs.size() > 0 ){
44 //オーバーロードを解決
45 pUserProc=OverloadSolutionWithStrParam(pobj_c->GetName().c_str(),
46 subs,CreateParameter,"");
47
48 if(!pUserProc) return;
49 }
50
51 //コンストラクタを呼び出す
52 Opcode_CallProc(CreateParameter,
53 pUserProc,
54 PROCFLAG_NEW,"",0);
55
56 {
57 // 動的型情報をセットする
58 // obj._System_SetType( _System_TypeBase.Search( strNamespace, name ) )
59 subs.clear();
60 pobj_c->GetMethods().Enum( "_System_SetType", subs );
61 if( subs.size() == 1 ){
62 char temporary[VN_SIZE];
63 sprintf( temporary, "ActiveBasic.Core._System_TypeBase.Search(\"\",\"%s\"))", pobj_c->GetName().c_str() );
64
65 Opcode_CallProc(temporary,
66 subs[0],
67 PROCFLAG_NEW,"",0);
68 }
69 else{
70 SetError();
71 }
72 }
73
74 if(bSomeObjects){
75 //mov rax,qword ptr[rsp+offset] ※スタックフレームを利用
76 pobj_sf->pop(REG_RAX);
77
78 //mov rbx,qword ptr[rsp+offset] ※スタックフレームを利用
79 pobj_sf->pop(REG_RBX);
80
81 //add rax,TypeSize
82 compiler.codeGenerator.op_add_RV( REG_RAX, ObjectSize );
83
84 //sub rbx,1
85 compiler.codeGenerator.op_sub_RV( sizeof(_int64), REG_RBX, 1 );
86
87 //jnz ↑
88 compiler.codeGenerator.op_jne( jnz_back-obp, sizeof(long), false, true );
89 }
90}
91void Operator_New( const CClass &classObj, const char *objectSizeStr, const char *parameter, const Type &baseType ){
92 int typeSize = classObj.GetSize();
93
94 if(classObj.IsAbstract()){
95 //抽象クラスだったとき
96 SetError(125,classObj.GetName().c_str(),cp);
97 }
98
99 BOOL bSomeObjects=0;
100 if(objectSizeStr[0]){
101 bSomeObjects=1;
102
103 int reg=REG_RAX;
104 Type tempType;
105 NumOpe(&reg,objectSizeStr,Type(),tempType);
106 if( !tempType.IsWhole() ) SetError(49,NULL,cp);
107
108 //※添え字上限値であることを考慮
109 //add rax,1
110 compiler.codeGenerator.op_add_RV(REG_RAX,1);
111
112 //オブジェクトの個数をrbxに一時保持
113 //※rbxは関数が呼ばれても不変
114 //mov rbx,rax
115 compiler.codeGenerator.op_mov_RR(REG_RBX,REG_RAX);
116
117 //imul rax,size
118 compiler.codeGenerator.op_imul_RV(sizeof(_int64),REG_RAX,typeSize);
119
120 //add rax,OBJECT_HEAD_SIZE
121 compiler.codeGenerator.op_add_RV(REG_RAX,OBJECT_HEAD_SIZE);
122
123 //mov rcx,rax
124 compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RAX);
125 }
126 else{
127 //オブジェクトの個数をrbxに一時保持
128 //※rbxは関数が呼ばれても不変
129 //mov rbx,1
130 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RBX,1);
131
132 //mov rcx,typeSize+OBJECT_HEAD_SIZE
133 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RCX,typeSize+OBJECT_HEAD_SIZE);
134 }
135
136 if( baseType.IsObject() ){
137 // オブジェクト インスタンス
138 // ※DeleteはGCで処理
139
140 //call _System_GC_malloc_ForObject
141 extern const UserProc *pSub_System_GC_malloc_ForObject;
142 compiler.codeGenerator.op_call(pSub_System_GC_malloc_ForObject);
143 }
144 else{
145 // オブジェクトポインタ
146 // ※明示的なDeleteが必要
147
148 //call _System_GC_malloc_ForObjectPtr
149 extern const UserProc *pSub_System_GC_malloc_ForObjectPtr;
150 compiler.codeGenerator.op_call(pSub_System_GC_malloc_ForObjectPtr);
151 }
152
153
154 /*
155 確保されたヒープ領域のポインタ(callocの戻り値eax)をpPtrとすると、
156 pPtr-=OBJECT_HEAD_SIZE ... ( sizeof(DWORD)*4 )
157 pPtr[0]=オブジェクトの個数
158 pPtr[1]=オブジェクトのサイズ
159 pPtr[2]=デストラクタの関数ポインタ
160 pPtr[3]=reserve
161 */
162
163
164 //mov qword ptr[rax],rbx(オブジェクトの個数)
165 compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RBX,REG_RAX,0,MOD_BASE);
166
167 //add rax,PTR_SIZE
168 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
169
170
171 //mov qword ptr[rax],typeSize(オブジェクトのサイズ)
172 compiler.codeGenerator.op_mov_MV(sizeof(_int64),REG_RAX,0, Schedule::None, false, NON_OFFSET,typeSize);
173
174 //add rax,PTR_SIZE
175 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
176
177
178 const CMethod *method = classObj.GetDestructorMethod();
179 if( method == NULL ) return;
180
181 //mov rcx,DestructorProcAddr(デストラクタの関数ポインタ)
182 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RCX,0);
183 obp-=sizeof(long);
184 pobj_SubAddrSchedule->add(&method->GetUserProc(),0);
185 method->GetUserProc().Using();
186 obp+=sizeof(long);
187
188 //mov qword ptr[rax],rcx
189 compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RAX,0,MOD_BASE);
190
191 //add rax,PTR_SIZE
192 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
193
194
195 // リザーブ領域
196 //add rax,PTR_SIZE
197 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
198
199
200 // ※ここでプッシュされた値はNew演算子の戻り値となる
201 //mov qword ptr[rsp+offset],rax ※スタックフレームを利用
202 pobj_sf->push(REG_RAX);
203
204
205 /////////////////////////////////////////////////////////////////////
206
207 ////////////////////////////
208 // コンストラクタの呼び出し
209 ////////////////////////////
210
211 _call_constructor(&classObj,parameter,typeSize,bSomeObjects);
212
213
214 //mov rax,qword ptr[rsp+offset] ※スタックフレームを利用
215 pobj_sf->pop(REG_RAX);
216}
217void OpcodeDelete(const char *Parameter, bool isSweeping){
218 int reg=REG_RAX;
219 Type tempType;
220 if( !NumOpe(&reg,Parameter,Type(),tempType) ){
221 return;
222 }
223 if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) SetError(122,NULL,cp);
224
225 //sub rax,OBJECT_HEAD_SIZE
226 compiler.codeGenerator.op_sub_RV(sizeof(_int64),REG_RAX,OBJECT_HEAD_SIZE);
227
228 //mov qword ptr[rsp+offset],rax ※スタックフレームを利用
229 pobj_sf->push(REG_RAX);
230
231
232 //mov rbx,qword ptr[rax](オブジェクトの個数)
233 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RBX,REG_RAX,0,MOD_BASE);
234
235 //add rax,PTR_SIZE
236 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
237
238
239 //mov rsi,qword ptr[rax](オブジェクトのサイズ)
240 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RSI,REG_RAX,0,MOD_BASE);
241
242 //add rax,PTR_SIZE
243 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
244
245
246 //mov rdi,qword ptr[rax](デストラクタの関数ポインタ)
247 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RDI,REG_RAX,0,MOD_BASE);
248
249 //add rax,PTR_SIZE
250 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
251
252
253 // リザーブ領域
254 //add rax,PTR_SIZE
255 compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
256
257
258 //mov rcx,rax
259 compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RAX);
260
261
262 //jnzの番地
263 int jnz_back;
264 jnz_back=obp;
265
266 //mov qword ptr[rsp+offset],rcx ※スタックフレームを利用
267 pobj_sf->push(REG_RCX);
268
269 //call rdi
270 compiler.codeGenerator.PutOld(
271 (char)0xFF,
272 (char)0xD7
273 );
274
275 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
276 pobj_sf->pop(REG_RCX);
277
278 //add rcx,rsi
279 compiler.codeGenerator.op_add_RR(REG_RCX,REG_RSI);
280
281 //sub rbx,1
282 compiler.codeGenerator.op_sub_RV(sizeof(_int64),REG_RBX,1);
283
284 //jnz ↑
285 compiler.codeGenerator.op_jne( jnz_back-obp, sizeof(long), false, true );
286
287
288 //////////////////////////////////////////
289 // オブジェクトメンバ変数用のメモリを解放
290 //////////////////////////////////////////
291
292 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
293 pobj_sf->pop(REG_RCX);
294
295 if( isSweeping ){
296 //call _System_GC_free_for_SweepingDelete
297 extern const UserProc *pSub_System_GC_free_for_SweepingDelete;
298 compiler.codeGenerator.op_call(pSub_System_GC_free_for_SweepingDelete);
299 }
300 else{
301 //call free
302 extern const UserProc *pSub_free;
303 compiler.codeGenerator.op_call(pSub_free);
304 }
305}
Note: See TracBrowser for help on using the repository browser.