source: dev/trunk/abdev/BasicCompiler32/Compile_Object.cpp@ 239

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