source: dev/BasicCompiler32/Compile_CallProc.cpp@ 40

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

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