source: dev/BasicCompiler64/Compile_CallProc.cpp@ 63

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

CClass::GetSize、CClass::GetMemberOffsetを追加
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 = psi->u.Return_pobj_c->GetSize();
270
271 //mov rcx,object_size
272 op_mov_RV(sizeof(_int64),REG_RCX,object_size);
273
274 //call calloc
275 extern SUBINFO *pSub_calloc;
276 op_call(pSub_calloc);
277
278 //mov r13,rax
279 op_mov_RR(REG_R13,REG_RAX);
280
281 /////////////////////////////////////////////
282 ////// レジスタ資源を復元
283 RESTORE_REGISTER_RESOURCE
284 }////////////////////////////////////////////
285
286 if( psi->pobj_ParentClass && isStatic == false ){
287 //mov rdx,r13
288 op_mov_RR(REG_RDX,REG_R13);
289 }
290 else{
291 //mov rcx,r13
292 op_mov_RR(REG_RCX,REG_R13);
293 }
294 }
295
296
297 if( psi->pobj_ParentClass && isStatic == false ){
298 ///////////////////////////////
299 // メンバ関数の場合
300 // thisポインタをrcxで受け渡す
301 ///////////////////////////////
302
303 if(ObjectName[0]){
304 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
305 else{
306 RELATIVE_VAR RelativeVar;
307 if( pMethod->isConst ){
308 //Constアクセスが可能なメソッドの場合
309 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return;
310 }
311 else{
312 //Constアクセスが不可能なメソッドの場合
313 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return;
314 }
315
316 SetVarPtrToReg(REG_RCX,&RelativeVar);
317
318 //参照タイプが "->" の場合
319 if(RefType==DEF_PTR_OBJECT){
320 //mov rcx,qword ptr[rcx]
321 op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
322 }
323 }
324 }
325 else{
326InClassMember:
327 if(dwFlags&PROCFLAG_NEW){
328 //New演算子によるコンストラクタ呼び出しの場合
329
330 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
331 pobj_sf->ref(REG_RCX);
332 }
333 else{
334 //自身のオブジェクトのThisポインタをrcxにコピー
335 SetThisPtrToReg(REG_RCX);
336 }
337 }
338 }
339
340 if(psi->bVirtual){
341 //仮想関数（オブジェクトメソッド）呼び出し
342 //pObj->func_table->func1
343 // ->func2
344 // ->func3
345
346 //mov r11,qword ptr[rcx]
347 op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
348
349 i2 = pobj_c->GetFuncNumInVtbl( psi );
350
351 //call qword ptr[r11+func_index]
352 if(i2*PTR_SIZE<=0x7F){
353 OpBuffer[obp++]=(char)0x41;
354 OpBuffer[obp++]=(char)0xFF;
355 OpBuffer[obp++]=(char)0x53;
356 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
357 }
358 else{
359 OpBuffer[obp++]=(char)0x41;
360 OpBuffer[obp++]=(char)0xFF;
361 OpBuffer[obp++]=(char)0x93;
362 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
363 obp+=sizeof(long);
364 }
365 }
366 else{
367 //通常呼び出し
368
369 //call ProcAddr
370 op_call(psi);
371 }
372
373 /* 64コンパイラでは不要
374 if(pdi->bCdecl){
375 //add esp,ParmSize
376 }*/
377
378
379 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
380 pobj_BlockReg->clear();
381
382 //一時オブジェクトを破棄
383 pobj_parameter->DeleteTempParameters();
384
385 //スタックフレームに存在する既存のパラメータを復元
386 pobj_parameter->RestoreParameter(psi->RealParmNum);
387
388 //パラメータオブジェクトを破棄
389 delete pobj_parameter;
390}
391
392int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
393 char *temporary;
394
395 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
396
397 extern BOOL bDebugCompile;
398 extern BOOL bDebugSupportProc;
399 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
400 Call_DebugSys_SaveContext();
401
402
403
404 ////////////////////////
405 // パラメータのセット
406 ////////////////////////
407
408 //パラメータオブジェクトを生成
409 CParameter *pobj_parameter=0;
410 pobj_parameter=new CParameter(Parameter);
411
412 //エラーチェック
413 if( !pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum) ){
414 //パラメータにエラーがあるときは処理を終える
415 return pdi->ReturnType;
416 }
417
418 //スタックフレームに存在する既存のパラメータをバックアップ
419 pobj_parameter->BackupParameter(pdi->ParmNum);
420
421 //一時オブジェクトを生成
422 pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
423
424 //レジスタ、スタックフレームにセット
425 pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
426
427
428 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
429 pobj_BlockReg->clear();
430
431
432 //動的リンクされたプロシージャの呼び出し
433
434 //call dword ptr[ImportTable]
435 op_call( pdi );
436
437 /* 64コンパイラでは不要
438 if(pdi->bCdecl){
439 //add esp,ParmSize
440 }*/
441
442 //一時オブジェクトを破棄
443 pobj_parameter->DeleteTempParameters();
444
445 //スタックフレームに存在する既存のパラメータを復元
446 pobj_parameter->RestoreParameter(pdi->ParmNum);
447
448 //パラメータオブジェクトを破棄
449 delete pobj_parameter;
450
451 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
452
453 HeapDefaultFree(temporary);
454
455 return pdi->ReturnType;
456}
Note: See TracBrowser for help on using the repository browser.