source: dev/BasicCompiler32/Compile_CallProc.cpp@ 18

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

オブジェクト定数に対応。
File size: 12.3 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->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
180
181 //パラメータオブジェクトを破棄
182 delete pobj_parameter;
183
184
185 RELATIVE_VAR RelativeVar;
186 LONG_PTR lp;
187 GetVarOffsetReadOnly(variable,&i,&RelativeVar,&lp);
188 SetVarPtrToEax(&RelativeVar);
189
190 //mov eax,dword ptr[eax]
191 OpBuffer[obp++]=(char)0x8B;
192 OpBuffer[obp++]=(char)0x00;
193
194 //call eax
195 OpBuffer[obp++]=(char)0xFF;
196 OpBuffer[obp++]=(char)0xD0;
197
198 if(plpIndex) *plpIndex=pi->u.ReturnIndex;
199
200 return pi->ReturnType;
201}
202
203int Opcode_CallProc(char *Parameter,SUBINFO *psi,LONG_PTR *plpIndex,DWORD dwFlags,char *ObjectName,int RefType){
204 int i,i2;
205
206 if(psi->dwType==SUBTYPE_MACRO){
207 if(lstrcmpi(psi->name,"Print")==0){
208 Opcode_Print(Parameter,0);
209 return -1;
210 }
211 if(lstrcmpi(psi->name,"Input")==0){
212 Opcode_Input(Parameter);
213 return -1;
214 }
215 if(lstrcmpi(psi->name,"Write")==0){
216 Opcode_Print(Parameter,1);
217 return -1;
218 }
219 }
220
221 psi->bUse=1;
222
223 BOOL bStatic=0;
224 CClass *pobj_c = NULL;
225 CMethod *pMethod = NULL;
226 if(psi->pobj_ParentClass){
227 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
228 if(ObjectName[0]){
229 if(lstrcmpi(ObjectName,"Super")==0){
230 //クラスメンバ関数内からスーパークラスの呼び出し
231 pobj_c=pobj_CompilingClass;
232 }
233 else{
234 pobj_c=pobj_DBClass->check(ObjectName);
235 if(pobj_c){
236 //静的メンバ
237 bStatic=1;
238 }
239 else{
240 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
241 GetVarType(ObjectName,(LONG_PTR *)&pobj_c,1);
242 }
243 }
244 }
245 else{
246 if(dwFlags&PROCFLAG_NEW){
247 //New演算子によるコンストラクタ呼び出し
248 pobj_c=psi->pobj_ParentClass;
249 }
250 else{
251 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
252 pobj_c=pobj_CompilingClass;
253 }
254 }
255
256
257 /////////////////////////////////
258 // メソッド情報を取得
259 /////////////////////////////////
260 pMethod = pobj_c->GetMethodInfo( psi );
261 if( !pMethod ){
262 //動的メソッドが取得できなかったときは静的メソッドを当たる
263 pMethod = pobj_c->GetStaticMethodInfo( psi );
264 if( !pMethod ){
265 SetError(300,NULL,cp);
266 return -1;
267 }
268 }
269
270
271 //////////////////////////////
272 // アクセスエラーチェック
273 //////////////////////////////
274 DWORD dwAccess = pMethod->dwAccess;
275
276 if(ObjectName[0]){
277 //外部からの呼び出し
278 if(pobj_c==pobj_CompilingClass){
279 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
280 if(dwAccess==ACCESS_NON){
281 SetError(109,psi->name,cp);
282 return -1;
283 }
284 }
285 else{
286 if(dwAccess==ACCESS_PRIVATE||
287 dwAccess==ACCESS_NON){
288 SetError(109,psi->name,cp);
289 return -1;
290 }
291 if(dwAccess==ACCESS_PROTECTED){
292 SetError(110,psi->name,cp);
293 return -1;
294 }
295 }
296 }
297 else{
298 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
299 if(dwAccess==ACCESS_NON){
300 SetError(109,psi->name,cp);
301 return -1;
302 }
303 }
304 }
305
306
307
308 ///////////////////////////////////////////////////////////////
309 // _System_LocalThis、_System_ReturnObjectのダミーをセット
310 ///////////////////////////////////////////////////////////////
311
312 char temporary[VN_SIZE]={0};
313 if(psi->pobj_ParentClass&&bStatic==0){
314 //_System_LocalThis（第一パラメータ）のダミーを作成
315 lstrcpy(temporary,"0,");
316 }
317
318 if(psi->ReturnType==DEF_OBJECT){
319 //_System_ReturnObject（第一または第二パラメータのダミーを作成）
320 sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
321 }
322
323 if(Parameter[0]=='\0'&&temporary[0])
324 temporary[lstrlen(temporary)-1]=0;
325 else lstrcat(temporary,Parameter);
326
327
328
329 ////////////////////////
330 // パラメータをセット
331 ////////////////////////
332
333 //パラメータオブジェクトを生成
334 CParameter *pobj_parameter=0;
335 pobj_parameter=new CParameter(temporary);
336
337 //エラーチェック
338 pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
339
340 if(psi->dwType==SUBTYPE_MACRO){
341 //マクロ関数の場合は、パラメータ省略を考慮する
342 pobj_parameter->MacroParameterSupport(psi->pRealParmInfo);
343 }
344
345 //レジスタ、スタックフレームにセット
346 int ParmSize;
347 ParmSize=pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
348
349 //パラメータオブジェクトを破棄
350 delete pobj_parameter;
351
352
353
354 if(psi->ReturnType==DEF_OBJECT){
355 //////////////////////////////////////////////////////
356 // 戻り値にオブジェクト インスタンスを持つ場合
357 // ※ByRef _System_ReturnObject パラメータをセット
358 //////////////////////////////////////////////////////
359
360 int object_size;
361 object_size=GetSizeOfClass(psi->u.Return_pobj_c);
362
363 //push object_size
364 op_push_value(object_size);
365
366 //call calloc
367 extern SUBINFO *pSub_calloc;
368 op_call(pSub_calloc);
369
370 //push eax
371 op_push(REG_EAX);
372 }
373
374
375 if(psi->pobj_ParentClass&&bStatic==0){
376 //////////////////////////////////////////////////////
377 // メンバ関数の場合
378 // ※_System_LocalThis パラメータをセット
379 //////////////////////////////////////////////////////
380
381 if(ObjectName[0]){
382 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
383 else{
384 RELATIVE_VAR RelativeVar;
385 if( pMethod->isConst ){
386 //Constアクセスが可能なメソッドの場合
387 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
388 }
389 else{
390 //Constアクセスが不可能なメソッドの場合
391 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
392 }
393
394 SetVarPtrToEax(&RelativeVar);
395
396 //参照タイプが整合しているかをチェック
397 if(i2!=RefType) SetError(104,ObjectName,cp);
398
399 if(i2==DEF_PTR_OBJECT){
400 //mov eax,dword ptr[eax]
401 OpBuffer[obp++]=(char)0x8B;
402 OpBuffer[obp++]=(char)0x00;
403 }
404
405 //mov ecx,eax
406 OpBuffer[obp++]=(char)0x8B;
407 OpBuffer[obp++]=(char)0xC8;
408 }
409 }
410 else{
411InClassMember:
412 if(dwFlags&PROCFLAG_NEW){
413 //New演算子によるコンストラクタ呼び出しの場合
414 //mov ecx,dword ptr[esp+ParmSize]
415 OpBuffer[obp++]=(char)0x8B;
416 OpBuffer[obp++]=(char)0x8C;
417 OpBuffer[obp++]=(char)0x24;
418 *((long *)(OpBuffer+obp))=ParmSize;
419 obp+=sizeof(long);
420 }
421 else{
422 //Thisポインタをecxにコピー
423 SetThisPtrToReg(REG_ECX);
424 }
425 }
426
427 //push ecx
428 op_push(REG_ECX);
429 }
430
431 if(psi->bVirtual){
432 //仮想関数（オブジェクトメソッド）呼び出し
433 //pObj->func_table->func1
434 // ->func2
435 // ->func3
436
437 //mov edx,dword ptr[ecx]
438 OpBuffer[obp++]=(char)0x8B;
439 OpBuffer[obp++]=(char)0x11;
440
441 for(i=0,i2=0;i<pobj_c->iMethodNum;i++){
442 if(pobj_c->ppobj_Method[i]->psi==psi) break;
443 if(pobj_c->ppobj_Method[i]->psi->bVirtual) i2++;
444 }
445
446 //call dword ptr[edx+func_index]
447 if(i2*PTR_SIZE<=0x7F){
448 OpBuffer[obp++]=(char)0xFF;
449 OpBuffer[obp++]=(char)0x52;
450 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
451 }
452 else{
453 OpBuffer[obp++]=(char)0xFF;
454 OpBuffer[obp++]=(char)0x92;
455 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
456 obp+=sizeof(long);
457 }
458 }
459 else{
460 //通常呼び出し
461
462 //call ProcAddr
463 op_call(psi);
464 }
465
466 if(psi->bCdecl){
467 //add esp,ParmSize
468 op_add_esp(ParmSize);
469 }
470
471 if(plpIndex) *plpIndex=psi->u.ReturnIndex;
472
473 return psi->ReturnType;
474}
475
476int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
477 char *temporary;
478
479 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
480
481 extern BOOL bDebugCompile;
482 extern BOOL bDebugSupportProc;
483 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
484 Call_DebugSys_SaveContext();
485
486 pdi->bUse=1;
487
488
489 ////////////////////////
490 // パラメータのセット
491 ////////////////////////
492
493 //パラメータオブジェクトを生成
494 CParameter *pobj_parameter=0;
495 pobj_parameter=new CParameter(Parameter);
496
497 //エラーチェック
498 pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
499
500 //レジスタ、スタックフレームにセット
501 int ParmSize;
502 ParmSize=pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
503
504 //パラメータオブジェクトを破棄
505 delete pobj_parameter;
506
507
508 //動的リンクされたプロシージャの呼び出し
509
510 //call dword ptr[LookupTable]
511 OpBuffer[obp++]=(char)0xFF;
512 OpBuffer[obp++]=(char)0x15;
513 pobj_ImportAddrSchedule->add(pdi);
514 obp+=sizeof(long);
515
516 if(pdi->bCdecl){
517 //add esp,ParmSize
518 op_add_esp(ParmSize);
519 }
520
521 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
522
523 HeapDefaultFree(temporary);
524
525 return pdi->ReturnType;
526}
Note: See TracBrowser for help on using the repository browser.