source: dev/BasicCompiler64/Compile_CallProc.cpp@ 58

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

ppobj_Member及びppobj_StaticMemberを廃止し、vectorに統一した（methods及びstaticMethods）。
File size: 11.5 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 //mov rdx,rax
14 op_mov64_ToReg_FromReg(REG_RDX,REG_RAX);
15
16 //mov rcx,rsp
17 op_mov64_ToReg_FromReg(REG_RCX,REG_RSP);
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}
32
33
34int Opcode_CallProcPtr(char *variable,char *Parameter,PROCPTRINFO *pi,LONG_PTR *plpIndex){
35 extern HANDLE hHeap;
36 int i;
37
38
39 extern BOOL bDebugCompile;
40 extern BOOL bDebugSupportProc;
41 if(bDebugCompile&&bDebugSupportProc==0)
42 Call_DebugSys_SaveContext();
43
44
45 ////////////////////////
46 // パラメータのセット
47 ////////////////////////
48
49 //パラメータオブジェクトを生成
50 CParameter *pobj_parameter=0;
51 pobj_parameter=new CParameter(Parameter);
52
53 //エラーチェック
54 if( !pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum) ){
55 //パラメータにエラーがあるときは処理を終える
56 return pi->ReturnType;
57 }
58
59 //スタックフレームに存在する既存のパラメータをバックアップ
60 pobj_parameter->BackupParameter(pi->ParmNum);
61
62 //一時オブジェクトを生成
63 pobj_parameter->NewTempParameters( variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum );
64
65 //レジスタ、スタックフレームにセット
66 pobj_parameter->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
67
68
69
70 RELATIVE_VAR RelativeVar;
71 LONG_PTR lp;
72 GetVarOffsetReadOnly(variable,&i,&RelativeVar,&lp);
73 SetVarPtrToReg(REG_RAX,&RelativeVar);
74
75 //mov rax,qword ptr[rax]
76 op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
77
78 //call rax
79 OpBuffer[obp++]=(char)0xFF;
80 OpBuffer[obp++]=(char)0xD0;
81
82
83 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
84 pobj_BlockReg->clear();
85
86 //一時オブジェクトを破棄
87 pobj_parameter->DeleteTempParameters();
88
89 //スタックフレームに存在する既存のパラメータを復元
90 pobj_parameter->RestoreParameter(pi->ParmNum);
91
92 //パラメータオブジェクトを破棄
93 delete pobj_parameter;
94
95 return pi->ReturnType;
96}
97
98void Opcode_CallProc(char *Parameter,SUBINFO *psi,DWORD dwFlags,char *ObjectName,int RefType){
99 int i2;
100
101 if(psi->dwType==SUBTYPE_MACRO){
102 if(lstrcmpi(psi->name,"Print")==0){
103 Opcode_Print(Parameter,0);
104 return;
105 }
106 if(lstrcmpi(psi->name,"Input")==0){
107 Opcode_Input(Parameter);
108 return;
109 }
110 if(lstrcmpi(psi->name,"Write")==0){
111 Opcode_Print(Parameter,1);
112 return;
113 }
114 }
115
116 psi->bUse=1;
117
118 bool isStatic = false;
119 CClass *pobj_c = NULL;
120 CMethod *pMethod = NULL;
121 if(psi->pobj_ParentClass){
122 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
123 if(ObjectName[0]){
124 if(lstrcmpi(ObjectName,"Super")==0){
125 //クラスメンバ関数内から基底クラスの呼び出し
126 pobj_c=pobj_CompilingClass;
127 }
128 else{
129 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
130 int type = GetVarType(ObjectName,(LONG_PTR *)&pobj_c,0);
131 if(!(NATURAL_TYPE(type)==DEF_OBJECT)){
132 pobj_c=pobj_DBClass->check(ObjectName);
133 if( pobj_c ){
134 isStatic = true;
135 }
136 else{
137 SetError(300,NULL,cp);
138 }
139 }
140 }
141 }
142 else{
143 if(dwFlags&PROCFLAG_NEW){
144 //New演算子によるコンストラクタ呼び出し
145 pobj_c=psi->pobj_ParentClass;
146 }
147 else{
148 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
149 pobj_c=pobj_CompilingClass;
150 }
151 }
152
153
154 /////////////////////////////////
155 // メソッド情報を取得
156 /////////////////////////////////
157 pMethod = NULL;
158 if( ! isStatic ) pMethod = pobj_c->GetMethodInfo( psi );
159 if( ! pMethod ){
160 //動的メソッドが取得できなかったときは静的メソッドを当たる
161 pMethod = pobj_c->GetStaticMethodInfo( psi );
162 if( !pMethod ){
163 SetError(300,NULL,cp);
164 return;
165 }
166
167 //静的メンバ
168 isStatic = true;
169 }
170
171
172 //////////////////////////////
173 // アクセスエラーチェック
174 //////////////////////////////
175 DWORD dwAccess = pMethod->dwAccess;
176
177 if(ObjectName[0]){
178 //外部からの呼び出し
179 if(pobj_c==pobj_CompilingClass){
180 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
181 if(dwAccess==ACCESS_NON){
182 SetError(109,psi->name,cp);
183 return;
184 }
185 }
186 else{
187 if(dwAccess==ACCESS_PRIVATE||
188 dwAccess==ACCESS_NON){
189 SetError(109,psi->name,cp);
190 return;
191 }
192 if(dwAccess==ACCESS_PROTECTED){
193 SetError(110,psi->name,cp);
194 return;
195 }
196 }
197 }
198 else{
199 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
200 if(dwAccess==ACCESS_NON){
201 SetError(109,psi->name,cp);
202 return;
203 }
204 }
205 }
206
207
208 ///////////////////////////////////////////////////////////////
209 // _System_LocalThis、_System_ReturnObjectのダミーをセット
210 ///////////////////////////////////////////////////////////////
211
212 char temporary[VN_SIZE]={0};
213 if( psi->pobj_ParentClass && isStatic == false ){
214 //_System_LocalThis（第一パラメータ）のダミーを作成
215 lstrcpy(temporary,"0,");
216 }
217
218 if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false ){
219 //_System_ReturnObject（第一または第二パラメータのダミーを作成）
220 sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
221 }
222
223 if(Parameter[0]=='\0'&&temporary[0])
224 temporary[lstrlen(temporary)-1]=0;
225 else lstrcat(temporary,Parameter);
226
227
228 ////////////////////////
229 // パラメータをセット
230 ////////////////////////
231
232 //パラメータオブジェクトを生成
233 CParameter *pobj_parameter=0;
234 pobj_parameter=new CParameter(temporary);
235
236 //エラーチェック
237 if( !pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->SecondParmNum) ){
238 //パラメータにエラーがあるときは処理を終える
239 return;
240 }
241
242 if(psi->dwType==SUBTYPE_MACRO){
243 //マクロ関数の場合は、パラメータ省略を考慮する
244 pobj_parameter->MacroParameterSupport(psi->pRealParmInfo);
245 }
246
247 //スタックフレームに存在する既存のパラメータをバックアップ
248 pobj_parameter->BackupParameter(psi->RealParmNum);
249
250 //一時オブジェクトを生成
251 pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
252
253 //レジスタ、スタックフレームにセット
254 pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
255
256
257 if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
258 //////////////////////////////////////////////////////
259 // 戻り値にオブジェクト インスタンスを持つ場合
260 // ※ByRef _System_ReturnObject パラメータをセット
261 //////////////////////////////////////////////////////
262
263
264 //////////////////////////////////////////////////////
265 ///// レジスタ資源のバックアップ
266 { BACKUP_REGISTER_RESOURCE
267 //////////////////////////////////////////////////////
268
269 int object_size;
270 object_size=GetSizeOfClass(psi->u.Return_pobj_c);
271
272 //mov rcx,object_size
273 op_mov_RV(sizeof(_int64),REG_RCX,object_size);
274
275 //call calloc
276 extern SUBINFO *pSub_calloc;
277 op_call(pSub_calloc);
278
279 //mov r13,rax
280 op_mov_RR(REG_R13,REG_RAX);
281
282 /////////////////////////////////////////////
283 ////// レジスタ資源を復元
284 RESTORE_REGISTER_RESOURCE
285 }////////////////////////////////////////////
286
287 if( psi->pobj_ParentClass && isStatic == false ){
288 //mov rdx,r13
289 op_mov_RR(REG_RDX,REG_R13);
290 }
291 else{
292 //mov rcx,r13
293 op_mov_RR(REG_RCX,REG_R13);
294 }
295 }
296
297
298 if( psi->pobj_ParentClass && isStatic == false ){
299 ///////////////////////////////
300 // メンバ関数の場合
301 // thisポインタをrcxで受け渡す
302 ///////////////////////////////
303
304 if(ObjectName[0]){
305 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
306 else{
307 RELATIVE_VAR RelativeVar;
308 if( pMethod->isConst ){
309 //Constアクセスが可能なメソッドの場合
310 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return;
311 }
312 else{
313 //Constアクセスが不可能なメソッドの場合
314 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return;
315 }
316
317 SetVarPtrToReg(REG_RCX,&RelativeVar);
318
319 //参照タイプが "->" の場合
320 if(RefType==DEF_PTR_OBJECT){
321 //mov rcx,qword ptr[rcx]
322 op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
323 }
324 }
325 }
326 else{
327InClassMember:
328 if(dwFlags&PROCFLAG_NEW){
329 //New演算子によるコンストラクタ呼び出しの場合
330
331 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
332 pobj_sf->ref(REG_RCX);
333 }
334 else{
335 //自身のオブジェクトのThisポインタをrcxにコピー
336 SetThisPtrToReg(REG_RCX);
337 }
338 }
339 }
340
341 if(psi->bVirtual){
342 //仮想関数（オブジェクトメソッド）呼び出し
343 //pObj->func_table->func1
344 // ->func2
345 // ->func3
346
347 //mov r11,qword ptr[rcx]
348 op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
349
350 i2 = pobj_c->GetFuncNumInVtbl( psi );
351
352 //call qword ptr[r11+func_index]
353 if(i2*PTR_SIZE<=0x7F){
354 OpBuffer[obp++]=(char)0x41;
355 OpBuffer[obp++]=(char)0xFF;
356 OpBuffer[obp++]=(char)0x53;
357 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
358 }
359 else{
360 OpBuffer[obp++]=(char)0x41;
361 OpBuffer[obp++]=(char)0xFF;
362 OpBuffer[obp++]=(char)0x93;
363 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
364 obp+=sizeof(long);
365 }
366 }
367 else{
368 //通常呼び出し
369
370 //call ProcAddr
371 op_call(psi);
372 }
373
374 /* 64コンパイラでは不要
375 if(pdi->bCdecl){
376 //add esp,ParmSize
377 }*/
378
379
380 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
381 pobj_BlockReg->clear();
382
383 //一時オブジェクトを破棄
384 pobj_parameter->DeleteTempParameters();
385
386 //スタックフレームに存在する既存のパラメータを復元
387 pobj_parameter->RestoreParameter(psi->RealParmNum);
388
389 //パラメータオブジェクトを破棄
390 delete pobj_parameter;
391}
392
393int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
394 char *temporary;
395
396 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
397
398 extern BOOL bDebugCompile;
399 extern BOOL bDebugSupportProc;
400 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
401 Call_DebugSys_SaveContext();
402
403
404
405 ////////////////////////
406 // パラメータのセット
407 ////////////////////////
408
409 //パラメータオブジェクトを生成
410 CParameter *pobj_parameter=0;
411 pobj_parameter=new CParameter(Parameter);
412
413 //エラーチェック
414 if( !pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum) ){
415 //パラメータにエラーがあるときは処理を終える
416 return pdi->ReturnType;
417 }
418
419 //スタックフレームに存在する既存のパラメータをバックアップ
420 pobj_parameter->BackupParameter(pdi->ParmNum);
421
422 //一時オブジェクトを生成
423 pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
424
425 //レジスタ、スタックフレームにセット
426 pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
427
428
429 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
430 pobj_BlockReg->clear();
431
432
433 //動的リンクされたプロシージャの呼び出し
434
435 //call dword ptr[ImportTable]
436 op_call( pdi );
437
438 /* 64コンパイラでは不要
439 if(pdi->bCdecl){
440 //add esp,ParmSize
441 }*/
442
443 //一時オブジェクトを破棄
444 pobj_parameter->DeleteTempParameters();
445
446 //スタックフレームに存在する既存のパラメータを復元
447 pobj_parameter->RestoreParameter(pdi->ParmNum);
448
449 //パラメータオブジェクトを破棄
450 delete pobj_parameter;
451
452 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
453
454 HeapDefaultFree(temporary);
455
456 return pdi->ReturnType;
457}
Note: See TracBrowser for help on using the repository browser.