source: dev/trunk/abdev/BasicCompiler32/Compile_CallProc.cpp@ 287

Last change on this file since 287 was 265, checked in by dai_9181, 17 years ago
File size: 10.4 KB
Line 
1#include "stdafx.h"
2
3#include <jenga/include/smoothie/Smoothie.h>
4
5#include <Compiler.h>
6
7#include "../BasicCompiler_Common/common.h"
8#include "Opcode.h"
9
10void Call_DebugSys_SaveContext(){
11 //call _System_GetEip
12 extern const UserProc *pSub_System_GetEip;
13 compiler.codeGenerator.op_call(pSub_System_GetEip);
14
15 //push eax
16 compiler.codeGenerator.op_push(REG_EAX);
17
18 //push ebp
19 compiler.codeGenerator.op_push(REG_EBP);
20
21 //call _DebugSys_SaveContext
22 extern const UserProc *pSub_DebugSys_SaveContext;
23 compiler.codeGenerator.op_call(pSub_DebugSys_SaveContext);
24}
25
26bool Opcode_CallProcPtr( const char *variable, const char *lpszParms,ProcPointer *pProcPointer){
27
28 extern BOOL bDebugCompile;
29 extern BOOL bDebugSupportProc;
30 if(bDebugCompile&&bDebugSupportProc==0)
31 Call_DebugSys_SaveContext();
32
33
34 ////////////////////////
35 // パラメータのセット
36 ////////////////////////
37
38 //パラメータオブジェクトを生成
39 ParamImpl *pobj_parameter=0;
40 pobj_parameter=new ParamImpl(lpszParms);
41
42 // デフォルト引数を適用
43 pobj_parameter->ApplyDefaultParameters( pProcPointer->Params() );
44
45 //エラーチェック
46 if( !pobj_parameter->ErrorCheck(variable,pProcPointer->Params() ) ){
47 //パラメータにエラーがあるときは処理を終える
48 return false;
49 }
50
51 //一時オブジェクトを生成
52 pobj_parameter->NewTempParameters( variable,pProcPointer->Params() );
53
54 //レジスタ、スタックフレームにセット
55 pobj_parameter->SetParameter(variable,pProcPointer->Params() );
56
57
58
59 ////////////////////////
60 // call
61 ////////////////////////
62 RELATIVE_VAR RelativeVar;
63 GetVarOffsetReadOnly(variable,&RelativeVar,Type());
64 SetVarPtrToEax(&RelativeVar);
65
66 //mov eax,dword ptr[eax]
67 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 0, MOD_BASE );
68
69 //call eax
70 compiler.codeGenerator.op_call_R( REG_EAX );
71
72
73
74 //一時オブジェクトを破棄
75 pobj_parameter->DeleteTempParameters();
76
77 //パラメータオブジェクトを破棄
78 delete pobj_parameter;
79
80 return true;
81}
82
83bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName,int RefType){
84 int i2;
85
86 if( pUserProc->IsMacro() ){
87 if( lstrcmpi( pUserProc->GetName().c_str(), "Print" ) == 0 ){
88 Opcode_Print(Parameter,0);
89 return true;
90 }
91 if( lstrcmpi( pUserProc->GetName().c_str(), "Input" ) == 0 ){
92 Opcode_Input(Parameter);
93 return true;
94 }
95 if( lstrcmpi( pUserProc->GetName().c_str(), "Write" ) == 0 ){
96 Opcode_Print(Parameter,1);
97 return true;
98 }
99 }
100
101 pUserProc->Using();
102
103 bool isStatic = false;
104 const CClass *pobj_c = NULL;
105 const CMethod *pMethod = NULL;
106 if( pUserProc->GetParentClassPtr() ){
107 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
108 if(ObjectName[0] && (dwFlags&PROCFLAG_NEW)==0){
109 if(lstrcmpi(ObjectName,"Super")==0){
110 //クラスメンバ関数内から基底クラスの呼び出し
111 pobj_c=compiler.pCompilingClass;
112 }
113 else{
114 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
115 Type varType;
116 GetVarType( ObjectName, varType, false );
117 pobj_c = &varType.GetClass();
118 if( NATURAL_TYPE( varType.GetBasicType() ) != DEF_OBJECT ){
119 pobj_c=compiler.GetObjectModule().meta.GetClasses().Find(ObjectName);
120 if( pobj_c ){
121 isStatic = true;
122 }
123 else{
124 SetError(300,NULL,cp);
125 }
126 }
127 }
128 }
129 else{
130 if(dwFlags&PROCFLAG_NEW){
131 //New演算子によるコンストラクタ呼び出し
132 pobj_c=pUserProc->GetParentClassPtr();
133 }
134 else{
135 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
136 pobj_c=compiler.pCompilingClass;
137 }
138 }
139
140
141 /////////////////////////////////
142 // メソッド情報を取得
143 /////////////////////////////////
144 pMethod = NULL;
145 if( ! isStatic ) pMethod = pobj_c->GetMethods().GetMethodPtr( pUserProc );
146 if( ! pMethod ){
147 //動的メソッドが取得できなかったときは静的メソッドを当たる
148 pMethod = pobj_c->GetStaticMethods().GetMethodPtr( pUserProc );
149 if( !pMethod ){
150 SetError(300,NULL,cp);
151 return false;
152 }
153
154 //静的メンバ
155 isStatic = true;
156 }
157
158
159 //////////////////////////////
160 // アクセスエラーチェック
161 //////////////////////////////
162
163 if(ObjectName[0]){
164 //外部からの呼び出し
165 if(pobj_c==compiler.pCompilingClass){
166 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
167 if( pMethod->IsNoneAccess() ){
168 SetError(109,pUserProc->GetName(),cp);
169 return false;
170 }
171 }
172 else{
173 if( pMethod->IsPrivate()
174 || pMethod->IsNoneAccess() ){
175 SetError(109,pUserProc->GetName(),cp);
176 return false;
177 }
178 if( pMethod->IsProtected() ){
179 SetError(110,pUserProc->GetName(),cp);
180 return false;
181 }
182 }
183 }
184 else{
185 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
186 if( pMethod->IsNoneAccess() ){
187 SetError(109,pUserProc->GetName(),cp);
188 return false;
189 }
190 }
191 }
192
193
194 ///////////////////////////////////////////////////////////////
195 // _System_LocalThisのダミーをセット
196 ///////////////////////////////////////////////////////////////
197
198 char temporary[VN_SIZE]={0};
199 if( pUserProc->GetParentClassPtr() && isStatic == false ){
200 //_System_LocalThis（第一パラメータ）のダミーを作成
201 lstrcpy(temporary,"0,");
202 }
203
204 if(Parameter[0]=='\0'&&temporary[0])
205 temporary[lstrlen(temporary)-1]=0;
206 else lstrcat(temporary,Parameter);
207
208
209 ////////////////////////
210 // パラメータをセット
211 ////////////////////////
212
213 //パラメータオブジェクトを生成
214 ParamImpl *pobj_parameter=0;
215 pobj_parameter=new ParamImpl(temporary);
216
217 // デフォルト引数を適用
218 pobj_parameter->ApplyDefaultParameters( pUserProc->RealParams() );
219
220 //エラーチェック
221 if( !pobj_parameter->ErrorCheck(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetSecondParmNum() ) ){
222 //パラメータにエラーがあるときは処理を終える
223 return false;
224 }
225
226 if(pUserProc->IsMacro()){
227 //マクロ関数の場合は、パラメータ省略を考慮する
228 pobj_parameter->MacroParameterSupport( pUserProc->RealParams() );
229 }
230
231 //一時オブジェクトを生成
232 int tempSize = pobj_parameter->NewTempParameters( pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
233
234 //レジスタ、スタックフレームにセット
235 int ParmSize = pobj_parameter->SetParameter(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
236
237 if(pUserProc->ReturnType().IsStruct() ){
238 //////////////////////////////////////////////////////
239 // 戻り値に構造体インスタンスを持つ場合
240 // ※ByRef _System_ReturnValue パラメータをセット
241 //////////////////////////////////////////////////////
242
243 int object_size = pUserProc->ReturnType().GetClass().GetSize();
244
245 //push object_size
246 compiler.codeGenerator.op_push_V(object_size);
247
248 //call calloc
249 extern const UserProc *pSub_calloc;
250 compiler.codeGenerator.op_call(pSub_calloc);
251
252 //push eax
253 compiler.codeGenerator.op_push(REG_EAX);
254 }
255
256
257 if( pUserProc->GetParentClassPtr() && isStatic == false ){
258 //////////////////////////////////////////////////////
259 // メンバ関数の場合
260 // ※_System_LocalThis パラメータをセット
261 //////////////////////////////////////////////////////
262
263 if(ObjectName[0] && (dwFlags&PROCFLAG_NEW)==0){
264 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
265 else{
266 RELATIVE_VAR RelativeVar;
267 if( pMethod->IsConst() ){
268 //Constアクセスが可能なメソッドの場合
269 if( !GetVarOffsetReadOnly( ObjectName, &RelativeVar, Type() ) ){
270 return false;
271 }
272 }
273 else{
274 //Constアクセスが不可能なメソッドの場合
275 if( !GetVarOffsetReadWrite( ObjectName, &RelativeVar, Type() ) ){
276 return false;
277 }
278 }
279
280 SetVarPtrToEax(&RelativeVar);
281
282 // 参照を実体ポインタにする
283 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
284 }
285 }
286 else{
287InClassMember:
288 if(dwFlags&PROCFLAG_NEW){
289 //New演算子によるコンストラクタ呼び出しの場合
290
291 //mov ecx,dword ptr[esp+ParmSize]
292 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_ECX, REG_ESP, ParmSize + tempSize, MOD_BASE_DISP32 );
293 }
294 else{
295 //Thisポインタをecxにコピー
296 SetThisPtrToReg(REG_ECX);
297 }
298 }
299
300 //push ecx
301 compiler.codeGenerator.op_push(REG_ECX);
302 }
303
304 if( pUserProc->IsVirtual() ){
305 //仮想関数（オブジェクトメソッド）呼び出し
306 //pObj->func_table->func1
307 // ->func2
308 // ->func3
309
310 //mov edx,dword ptr[ecx]
311 compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, 0, MOD_BASE );
312
313 i2 = pobj_c->GetFuncNumInVtbl( pUserProc );
314
315 //call dword ptr[edx+func_index]
316 if(i2*PTR_SIZE<=0x7F){
317 compiler.codeGenerator.PutOld(
318 (char)0xFF,
319 (char)0x52,
320 (char)(i2*PTR_SIZE)
321 );
322 }
323 else{
324 compiler.codeGenerator.PutOld(
325 (char)0xFF,
326 (char)0x92
327 );
328 compiler.codeGenerator.PutOld( (long)(i2*PTR_SIZE), Schedule::None );
329 }
330 }
331 else{
332 //通常呼び出し
333
334 //call ProcAddr
335 compiler.codeGenerator.op_call(pUserProc);
336 }
337
338 if(pUserProc->IsCdecl()){
339 //add esp,ParmSize
340 compiler.codeGenerator.op_add_esp(ParmSize);
341 }
342
343 //一時オブジェクトを破棄
344 pobj_parameter->DeleteTempParameters();
345
346 //パラメータオブジェクトを破棄
347 delete pobj_parameter;
348
349 return true;
350}
351
352bool Opcode_CallDllProc( const char *lpszParms, const DllProc *pDllProc ){
353
354 extern BOOL bDebugCompile;
355 extern BOOL bDebugSupportProc;
356 if(bDebugCompile&&bDebugSupportProc==0&& pDllProc->IsEqualSymbol( "DebugBreak" ) ){
357 Call_DebugSys_SaveContext();
358 }
359
360
361 ////////////////////////
362 // パラメータのセット
363 ////////////////////////
364
365 //パラメータオブジェクトを生成
366 ParamImpl *pobj_parameter=0;
367 pobj_parameter=new ParamImpl(lpszParms);
368
369 // デフォルト引数を適用
370 pobj_parameter->ApplyDefaultParameters( pDllProc->Params() );
371
372 //エラーチェック
373 if( !pobj_parameter->ErrorCheck( pDllProc->GetName(), pDllProc->Params() ) ){
374 //パラメータにエラーがあるときは処理を終える
375 return false;
376 }
377
378 //一時オブジェクトを生成
379 pobj_parameter->NewTempParameters( pDllProc->GetName(), pDllProc->Params() );
380
381 //レジスタ、スタックフレームにセット
382 int ParmSize = pobj_parameter->SetParameter(pDllProc->GetName(), pDllProc->Params() );
383
384
385 //動的リンクされたプロシージャの呼び出し
386
387 //call dword ptr[LookupTable]
388 compiler.codeGenerator.op_call( pDllProc );
389
390 if(pDllProc->IsCdecl()){
391 //add esp,ParmSize
392 compiler.codeGenerator.op_add_esp(ParmSize);
393 }
394
395 //一時オブジェクトを破棄
396 pobj_parameter->DeleteTempParameters();
397
398 //パラメータオブジェクトを破棄
399 delete pobj_parameter;
400
401 return true;
402}
Note: See TracBrowser for help on using the repository browser.