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

Last change on this file since 247 was 244, 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 compiler.codeGenerator.op_addressof( REG_ECX, &method->GetUserProc() );
194
195 //mov dword ptr[eax],ecx(デストラクタの関数ポインタ)
196 compiler.codeGenerator.op_mov_MR( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
197
198 //add eax,sizeof(long)
199 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
200
201
202 // リザーブ領域
203 //add eax,sizeof(long)
204 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
205
206
207 // ※ここでプッシュされた値はNew演算子の戻り値となる
208 //push eax
209 compiler.codeGenerator.op_push(REG_EAX);
210
211
212 /////////////////////////////////////////////////////////////////////
213
214 ////////////////////////////
215 // コンストラクタの呼び出し
216 ////////////////////////////
217
218 _call_constructor(&classObj,parameter,typeSize,bSomeObjects);
219}
220void OpcodeDelete(const char *Parameter, bool isSweeping){
221 Type tempType;
222 if( !NumOpe(Parameter,Type(),tempType) ){
223 return;
224 }
225 if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) SetError(122,NULL,cp);
226
227 //pop eax
228 compiler.codeGenerator.op_pop(REG_EAX);
229
230 //sub eax,sizeof(DWORD)*3
231 compiler.codeGenerator.op_sub_RV8( REG_EAX, OBJECT_HEAD_SIZE );
232
233 //push eax
234 compiler.codeGenerator.op_push(REG_EAX);
235
236
237 //mov ebx,dword ptr[eax](オブジェクトの個数)
238 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EBX, REG_EAX, 0, MOD_BASE );
239
240 //add eax,sizeof(long)
241 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
242
243
244 //mov esi,dword ptr[eax](オブジェクトのサイズ)
245 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_ESI, REG_EAX, 0, MOD_BASE );
246
247 //add eax,sizeof(long)
248 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
249
250
251 //mov edx,dword ptr[eax](デストラクタの関数ポインタ)
252 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_EAX, 0, MOD_BASE );
253
254 //add eax,sizeof(long)
255 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
256
257
258 // リザーブ領域
259 //add eax,sizeof(long)
260 compiler.codeGenerator.op_add_RV8( REG_EAX, sizeof(long) );
261
262
263 //mov ecx,eax
264 compiler.codeGenerator.op_mov_RR( REG_ECX, REG_EAX );
265
266
267 //jnzの番地
268 int jnz_back;
269 jnz_back=obp;
270
271 //push ecx
272 compiler.codeGenerator.op_push(REG_ECX);
273
274 //push edx
275 compiler.codeGenerator.op_push(REG_EDX);
276
277 //push ecx(Thisポインタ ※隠れた第一パラメータ)
278 compiler.codeGenerator.op_push(REG_ECX);
279
280 //call edx
281 compiler.codeGenerator.op_call_R( REG_EDX );
282
283 //pop edx
284 compiler.codeGenerator.op_pop(REG_EDX);
285
286 //pop ecx
287 compiler.codeGenerator.op_pop(REG_ECX);
288
289 //add ecx,esi
290 compiler.codeGenerator.op_add_RR( REG_ECX, REG_ESI );
291
292 //sub ebx,1
293 compiler.codeGenerator.op_sub_RV8(REG_EBX,1);
294
295 //jnz ↑
296 OpBuffer[obp++]=(char)0x0F;
297 OpBuffer[obp++]=(char)0x85;
298 *((long *)(OpBuffer+obp))=jnz_back-(obp+sizeof(long));
299 obp+=sizeof(long);
300
301
302 //////////////////////////////////////////
303 // オブジェクトメンバ変数用のメモリを解放
304 //////////////////////////////////////////
305
306 if( isSweeping ){
307 //call _System_GC_free_for_SweepingDelete
308 extern const UserProc *pSub_System_GC_free_for_SweepingDelete;
309 compiler.codeGenerator.op_call(pSub_System_GC_free_for_SweepingDelete);
310 }
311 else{
312 //call free
313 extern const UserProc *pSub_free;
314 compiler.codeGenerator.op_call(pSub_free);
315 }
316}
Note: See TracBrowser for help on using the repository browser.