source: dev/BasicCompiler32/Compile_CallProc.cpp@ 27

Last change on this file since 27 was 27, checked in by dai_9181, 17 years ago

静的メンバ、静的メソッド周りを修正。
File size: 12.9 KB
Line 
1#include "../BasicCompiler_Common/common.h"
2#include "Opcode.h"
3
4//ローカル変数アドレススケジュール
5DWORD *pLocalVarAddrSchedule;
6int LocalVarAddrScheduleNum;
7
8void Call_DebugSys_SaveContext(){
9 //call _System_GetEip
10 extern SUBINFO *pSub_System_GetEip;
11 op_call(pSub_System_GetEip);
12
13 //push eax
14 op_push(REG_EAX);
15
16 //push ebp
17 op_push(REG_EBP);
18
19 //call _DebugSys_SaveContext
20 extern SUBINFO *pSub_DebugSys_SaveContext;
21 op_call(pSub_DebugSys_SaveContext);
22}
23
24void AddLocalVarAddrSchedule(){
25 extern HANDLE hHeap;
26
27 //ローカル変数アドレススケジュールに追加する
28 pLocalVarAddrSchedule=(DWORD *)HeapReAlloc(hHeap,0,pLocalVarAddrSchedule,(LocalVarAddrScheduleNum+1)*sizeof(DWORD));
29 pLocalVarAddrSchedule[LocalVarAddrScheduleNum]=obp;
30 LocalVarAddrScheduleNum++;
31}
32int CallProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex){
33 int ret_type;
34
35 if(idProc==PROC_DEFAULT){
36 /////////////////////
37 // ユーザー定義関数
38 /////////////////////
39
40 SUBINFO *psi;
41 psi=(SUBINFO *)pInfo;
42
43 //GetSubHash内でエラー提示が行われた場合
44 if(psi==(SUBINFO *)-1) return -1;
45
46
47 //オブジェクト名を取得
48 char ObjectName[VN_SIZE];
49 int RefType;
50 GetObjectName(name,ObjectName,&RefType);
51
52
53 ////////////////////////
54 // オーバーロードを解決
55 ////////////////////////
56
57 SUBINFO **ppsi;
58 int num;
59 ppsi=GetOverloadSubHash(name,&num);
60 if(num){
61 //オーバーロードを解決
62 psi=OverloadSolutionWithStrParam(name,ppsi,num,Parameter,ObjectName,NULL);
63 HeapDefaultFree(ppsi);
64
65 if(!psi) return 0;
66 }
67
68
69 ret_type=Opcode_CallProc(Parameter,psi,plpRetIndex,0,ObjectName,RefType);
70 }
71 else if(idProc==PROC_DLL){
72 /////////////////////////
73 // DLL関数
74 /////////////////////////
75 DECLAREINFO *pdi;
76 pdi=(DECLAREINFO *)pInfo;
77
78 ret_type=Opcode_CallDllProc(Parameter,pdi,plpRetIndex);
79 }
80 else if(idProc==PROC_BUILTIN){
81 /////////////////////////
82 // 組み込み関数
83 /////////////////////////
84 int FuncId;
85 FuncId=(int)(_int64)pInfo;
86
87 ret_type=Opcode_CallFunc(Parameter,FuncId);
88 }
89 else if(idProc==PROC_PTR){
90 /////////////////
91 // 関数ポインタ
92 /////////////////
93
94 LONG_PTR lpIndex;
95 GetVarType(name,&lpIndex,0);
96
97 extern PROCPTRINFO *pProcPtrInfo;
98 ret_type=Opcode_CallProcPtr(name,Parameter,&pProcPtrInfo[lpIndex],plpRetIndex);
99 }
100
101 return ret_type;
102}
103
104BOOL CallPropertyMethod(char *variable,char *RightSide,TYPEINFO *pRetTypeInfo){
105 //プロパティ用のメソッドを呼び出す
106
107 //配列要素を取得
108 char VarName[VN_SIZE],ArrayElements[VN_SIZE];
109 GetArrayElement(variable,VarName,ArrayElements);
110
111 //オブジェクト名を取得
112 char ObjectName[VN_SIZE];
113 int RefType;
114 GetObjectName(VarName,ObjectName,&RefType);
115
116 //オーバーロード用の関数リストを作成
117 SUBINFO **ppsi;
118 int num;
119 ppsi=GetOverloadSubHash(VarName,&num);
120 if(num==0){
121 return 0;
122 }
123
124 //パラメータを整備
125 char *Parameter;
126 Parameter=(char *)HeapAlloc(hHeap,0,lstrlen(ArrayElements)+lstrlen(RightSide)+32);
127 lstrcpy(Parameter,ArrayElements);
128 if(RightSide){
129 if(Parameter[0]&&RightSide[0]) lstrcat(Parameter,",");
130 lstrcat(Parameter,RightSide);
131 }
132
133 //オーバーロードを解決
134 SUBINFO *psi;
135 psi=OverloadSolutionWithStrParam(VarName,ppsi,num,Parameter,ObjectName,NULL);
136 HeapDefaultFree(ppsi);
137
138 if(psi){
139 //呼び出し
140 int type;
141 LONG_PTR lpIndex;
142 type=Opcode_CallProc(Parameter,psi,&lpIndex,0,ObjectName,RefType);
143
144 if(pRetTypeInfo){
145 pRetTypeInfo->type=type;
146 pRetTypeInfo->u.lpIndex=lpIndex;
147 }
148 }
149
150 HeapDefaultFree(Parameter);
151
152 return 1;
153}
154
155
156int Opcode_CallProcPtr(char *variable,char *Parameter,PROCPTRINFO *pi,LONG_PTR *plpIndex){
157 extern HANDLE hHeap;
158 int i;
159
160
161 extern BOOL bDebugCompile;
162 extern BOOL bDebugSupportProc;
163 if(bDebugCompile&&bDebugSupportProc==0)
164 Call_DebugSys_SaveContext();
165
166
167 ////////////////////////
168 // パラメータのセット
169 ////////////////////////
170
171 //パラメータオブジェクトを生成
172 CParameter *pobj_parameter=0;
173 pobj_parameter=new CParameter(Parameter);
174
175 //エラーチェック
176 pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
177
178 //一時オブジェクトを生成
179 pobj_parameter->NewTempParameters( variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum );
180
181 //レジスタ、スタックフレームにセット
182 pobj_parameter->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
183
184
185
186 ////////////////////////
187 // call
188 ////////////////////////
189 RELATIVE_VAR RelativeVar;
190 LONG_PTR lp;
191 GetVarOffsetReadOnly(variable,&i,&RelativeVar,&lp);
192 SetVarPtrToEax(&RelativeVar);
193
194 //mov eax,dword ptr[eax]
195 OpBuffer[obp++]=(char)0x8B;
196 OpBuffer[obp++]=(char)0x00;
197
198 //call eax
199 OpBuffer[obp++]=(char)0xFF;
200 OpBuffer[obp++]=(char)0xD0;
201
202
203
204 //一時オブジェクトを破棄
205 pobj_parameter->DeleteTempParameters();
206
207 //パラメータオブジェクトを破棄
208 delete pobj_parameter;
209
210 if(plpIndex) *plpIndex=pi->u.ReturnIndex;
211
212 return pi->ReturnType;
213}
214
215int Opcode_CallProc(char *Parameter,SUBINFO *psi,LONG_PTR *plpIndex,DWORD dwFlags,char *ObjectName,int RefType){
216 int i,i2;
217
218 if(psi->dwType==SUBTYPE_MACRO){
219 if(lstrcmpi(psi->name,"Print")==0){
220 Opcode_Print(Parameter,0);
221 return -1;
222 }
223 if(lstrcmpi(psi->name,"Input")==0){
224 Opcode_Input(Parameter);
225 return -1;
226 }
227 if(lstrcmpi(psi->name,"Write")==0){
228 Opcode_Print(Parameter,1);
229 return -1;
230 }
231 }
232
233 psi->bUse=1;
234
235 BOOL bStatic=0;
236 CClass *pobj_c = NULL;
237 CMethod *pMethod = NULL;
238 if(psi->pobj_ParentClass){
239 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
240 if(ObjectName[0]){
241 if(lstrcmpi(ObjectName,"Super")==0){
242 //クラスメンバ関数内から基底クラスの呼び出し
243 pobj_c=pobj_CompilingClass;
244 }
245 else{
246 pobj_c=pobj_DBClass->check(ObjectName);
247 if(pobj_c){
248 //静的メンバ
249 bStatic=1;
250 }
251 else{
252 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
253 GetVarType(ObjectName,(LONG_PTR *)&pobj_c,1);
254 }
255 }
256 }
257 else{
258 if(dwFlags&PROCFLAG_NEW){
259 //New演算子によるコンストラクタ呼び出し
260 pobj_c=psi->pobj_ParentClass;
261 }
262 else{
263 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
264 pobj_c=pobj_CompilingClass;
265 }
266 }
267
268
269 /////////////////////////////////
270 // メソッド情報を取得
271 /////////////////////////////////
272 pMethod = NULL;
273 if( ! bStatic ) pMethod = pobj_c->GetMethodInfo( psi );
274 if( ! pMethod ){
275 //動的メソッドが取得できなかったときは静的メソッドを当たる
276 pMethod = pobj_c->GetStaticMethodInfo( psi );
277 if( !pMethod ){
278 SetError(300,NULL,cp);
279 return -1;
280 }
281
282 //静的メンバ
283 bStatic=1;
284 }
285
286
287 //////////////////////////////
288 // アクセスエラーチェック
289 //////////////////////////////
290 DWORD dwAccess = pMethod->dwAccess;
291
292 if(ObjectName[0]){
293 //外部からの呼び出し
294 if(pobj_c==pobj_CompilingClass){
295 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
296 if(dwAccess==ACCESS_NON){
297 SetError(109,psi->name,cp);
298 return -1;
299 }
300 }
301 else{
302 if(dwAccess==ACCESS_PRIVATE||
303 dwAccess==ACCESS_NON){
304 SetError(109,psi->name,cp);
305 return -1;
306 }
307 if(dwAccess==ACCESS_PROTECTED){
308 SetError(110,psi->name,cp);
309 return -1;
310 }
311 }
312 }
313 else{
314 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
315 if(dwAccess==ACCESS_NON){
316 SetError(109,psi->name,cp);
317 return -1;
318 }
319 }
320 }
321
322
323
324 ///////////////////////////////////////////////////////////////
325 // _System_LocalThis、_System_ReturnObjectのダミーをセット
326 ///////////////////////////////////////////////////////////////
327
328 char temporary[VN_SIZE]={0};
329 if(psi->pobj_ParentClass&&bStatic==0){
330 //_System_LocalThis（第一パラメータ）のダミーを作成
331 lstrcpy(temporary,"0,");
332 }
333
334 if(psi->ReturnType==DEF_OBJECT){
335 //_System_ReturnObject（第一または第二パラメータのダミーを作成）
336 sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
337 }
338
339 if(Parameter[0]=='\0'&&temporary[0])
340 temporary[lstrlen(temporary)-1]=0;
341 else lstrcat(temporary,Parameter);
342
343
344
345 ////////////////////////
346 // パラメータをセット
347 ////////////////////////
348
349 //パラメータオブジェクトを生成
350 CParameter *pobj_parameter=0;
351 pobj_parameter=new CParameter(temporary);
352
353 //エラーチェック
354 pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
355
356 if(psi->dwType==SUBTYPE_MACRO){
357 //マクロ関数の場合は、パラメータ省略を考慮する
358 pobj_parameter->MacroParameterSupport(psi->pRealParmInfo);
359 }
360
361 //一時オブジェクトを生成
362 pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
363
364 //レジスタ、スタックフレームにセット
365 int ParmSize;
366 ParmSize=pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
367
368
369
370 if(psi->ReturnType==DEF_OBJECT){
371 //////////////////////////////////////////////////////
372 // 戻り値にオブジェクト インスタンスを持つ場合
373 // ※ByRef _System_ReturnObject パラメータをセット
374 //////////////////////////////////////////////////////
375
376 int object_size;
377 object_size=GetSizeOfClass(psi->u.Return_pobj_c);
378
379 //push object_size
380 op_push_value(object_size);
381
382 //call calloc
383 extern SUBINFO *pSub_calloc;
384 op_call(pSub_calloc);
385
386 //push eax
387 op_push(REG_EAX);
388 }
389
390
391 if(psi->pobj_ParentClass&&bStatic==0){
392 //////////////////////////////////////////////////////
393 // メンバ関数の場合
394 // ※_System_LocalThis パラメータをセット
395 //////////////////////////////////////////////////////
396
397 if(ObjectName[0]){
398 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
399 else{
400 RELATIVE_VAR RelativeVar;
401 if( pMethod->isConst ){
402 //Constアクセスが可能なメソッドの場合
403 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
404 }
405 else{
406 //Constアクセスが不可能なメソッドの場合
407 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
408 }
409
410 SetVarPtrToEax(&RelativeVar);
411
412 //参照タイプが整合しているかをチェック
413 if(i2!=RefType) SetError(104,ObjectName,cp);
414
415 if(i2==DEF_PTR_OBJECT){
416 //mov eax,dword ptr[eax]
417 OpBuffer[obp++]=(char)0x8B;
418 OpBuffer[obp++]=(char)0x00;
419 }
420
421 //mov ecx,eax
422 OpBuffer[obp++]=(char)0x8B;
423 OpBuffer[obp++]=(char)0xC8;
424 }
425 }
426 else{
427InClassMember:
428 if(dwFlags&PROCFLAG_NEW){
429 //New演算子によるコンストラクタ呼び出しの場合
430 //mov ecx,dword ptr[esp+ParmSize]
431 OpBuffer[obp++]=(char)0x8B;
432 OpBuffer[obp++]=(char)0x8C;
433 OpBuffer[obp++]=(char)0x24;
434 *((long *)(OpBuffer+obp))=ParmSize;
435 obp+=sizeof(long);
436 }
437 else{
438 //Thisポインタをecxにコピー
439 SetThisPtrToReg(REG_ECX);
440 }
441 }
442
443 //push ecx
444 op_push(REG_ECX);
445 }
446
447 if(psi->bVirtual){
448 //仮想関数（オブジェクトメソッド）呼び出し
449 //pObj->func_table->func1
450 // ->func2
451 // ->func3
452
453 //mov edx,dword ptr[ecx]
454 OpBuffer[obp++]=(char)0x8B;
455 OpBuffer[obp++]=(char)0x11;
456
457 for(i=0,i2=0;i<pobj_c->iMethodNum;i++){
458 if(pobj_c->ppobj_Method[i]->psi==psi) break;
459 if(pobj_c->ppobj_Method[i]->psi->bVirtual) i2++;
460 }
461
462 //call dword ptr[edx+func_index]
463 if(i2*PTR_SIZE<=0x7F){
464 OpBuffer[obp++]=(char)0xFF;
465 OpBuffer[obp++]=(char)0x52;
466 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
467 }
468 else{
469 OpBuffer[obp++]=(char)0xFF;
470 OpBuffer[obp++]=(char)0x92;
471 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
472 obp+=sizeof(long);
473 }
474 }
475 else{
476 //通常呼び出し
477
478 //call ProcAddr
479 op_call(psi);
480 }
481
482 if(psi->bCdecl){
483 //add esp,ParmSize
484 op_add_esp(ParmSize);
485 }
486
487 //一時オブジェクトを破棄
488 pobj_parameter->DeleteTempParameters();
489
490 //パラメータオブジェクトを破棄
491 delete pobj_parameter;
492
493 if(plpIndex) *plpIndex=psi->u.ReturnIndex;
494
495 return psi->ReturnType;
496}
497
498int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
499 char *temporary;
500
501 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
502
503 extern BOOL bDebugCompile;
504 extern BOOL bDebugSupportProc;
505 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
506 Call_DebugSys_SaveContext();
507
508 pdi->bUse=1;
509
510
511 ////////////////////////
512 // パラメータのセット
513 ////////////////////////
514
515 //パラメータオブジェクトを生成
516 CParameter *pobj_parameter=0;
517 pobj_parameter=new CParameter(Parameter);
518
519 //エラーチェック
520 pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
521
522 //レジスタ、スタックフレームにセット
523 int ParmSize;
524 ParmSize=pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
525
526 //パラメータオブジェクトを破棄
527 delete pobj_parameter;
528
529
530 //動的リンクされたプロシージャの呼び出し
531
532 //call dword ptr[LookupTable]
533 OpBuffer[obp++]=(char)0xFF;
534 OpBuffer[obp++]=(char)0x15;
535 pobj_ImportAddrSchedule->add(pdi);
536 obp+=sizeof(long);
537
538 if(pdi->bCdecl){
539 //add esp,ParmSize
540 op_add_esp(ParmSize);
541 }
542
543 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
544
545 HeapDefaultFree(temporary);
546
547 return pdi->ReturnType;
548}
Note: See TracBrowser for help on using the repository browser.