source: dev/BasicCompiler64/Compile_CallProc.cpp@ 74

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

Parameterクラスを適用。32bit側は動くようになったので、64bitのほうを調整する。
File size: 11.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 //mov rdx,rax
14 op_mov_RR(REG_RDX,REG_RAX);
15
16 //mov rcx,rsp
17 op_mov_RR(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 ParamImpl *pobj_parameter=0;
51 pobj_parameter=new ParamImpl(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(const 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のダミーをセット
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(Parameter[0]=='\0'&&temporary[0])
219 temporary[lstrlen(temporary)-1]=0;
220 else lstrcat(temporary,Parameter);
221
222
223 //パラメータセット前のspオフセットを取得（Newの場合はここにThisポインタが格納されている）
224 int this_sp_offset = pobj_sf->GetNowSp();
225
226
227 ////////////////////////
228 // パラメータをセット
229 ////////////////////////
230
231 //パラメータオブジェクトを生成
232 ParamImpl *pobj_parameter=0;
233 pobj_parameter=new ParamImpl(temporary);
234
235 //エラーチェック
236 if( !pobj_parameter->ErrorCheck(psi->name,psi->realParams,psi->SecondParmNum) ){
237 //パラメータにエラーがあるときは処理を終える
238 return;
239 }
240
241 if(psi->dwType==SUBTYPE_MACRO){
242 //マクロ関数の場合は、パラメータ省略を考慮する
243 pobj_parameter->MacroParameterSupport(psi->realParams);
244 }
245
246 //スタックフレームに存在する既存のパラメータをバックアップ
247 pobj_parameter->BackupParameter(psi->RealParmNum);
248
249 //一時オブジェクトを生成
250 pobj_parameter->NewTempParameters( psi->name,psi->realParams,psi->RealSecondParmNum );
251
252 //レジスタ、スタックフレームにセット
253 pobj_parameter->SetParameter(psi->name,psi->realParams,psi->RealSecondParmNum);
254
255 if(psi->ReturnType==DEF_STRUCT && psi->isReturnRef == false){
256 //////////////////////////////////////////////////////
257 // 戻り値に構造体インスタンスを持つ場合
258 // ※ByRef _System_ReturnValue パラメータをセット
259 //////////////////////////////////////////////////////
260
261
262 //////////////////////////////////////////////////////
263 ///// レジスタ資源のバックアップ
264 { BACKUP_REGISTER_RESOURCE
265 //////////////////////////////////////////////////////
266
267 int object_size = psi->u.Return_pobj_c->GetSize();
268
269 //mov rcx,object_size
270 op_mov_RV(sizeof(_int64),REG_RCX,object_size);
271
272 //call calloc
273 extern SubInfo *pSub_calloc;
274 op_call(pSub_calloc);
275
276 //mov r13,rax
277 op_mov_RR(REG_R13,REG_RAX);
278
279 /////////////////////////////////////////////
280 ////// レジスタ資源を復元
281 RESTORE_REGISTER_RESOURCE
282 }////////////////////////////////////////////
283
284 if( psi->pobj_ParentClass && isStatic == false ){
285 //mov rdx,r13
286 op_mov_RR(REG_RDX,REG_R13);
287 }
288 else{
289 //mov rcx,r13
290 op_mov_RR(REG_RCX,REG_R13);
291 }
292 }
293
294
295 if( psi->pobj_ParentClass && isStatic == false ){
296 ///////////////////////////////
297 // メンバ関数の場合
298 // thisポインタをrcxで受け渡す
299 ///////////////////////////////
300
301 if(ObjectName[0]){
302 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
303 else{
304 RELATIVE_VAR RelativeVar;
305 if( pMethod->isConst ){
306 //Constアクセスが可能なメソッドの場合
307 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return;
308 }
309 else{
310 //Constアクセスが不可能なメソッドの場合
311 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return;
312 }
313
314 SetVarPtrToReg(REG_RCX,&RelativeVar);
315
316 // 参照を実体ポインタにする
317 //mov rcx,qword ptr[rcx]
318 op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
319 }
320 }
321 else{
322InClassMember:
323 if(dwFlags&PROCFLAG_NEW){
324 //New演算子によるコンストラクタ呼び出しの場合
325
326 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
327 pobj_sf->ref_offset_data(REG_RCX, this_sp_offset);
328 }
329 else{
330 //自身のオブジェクトのThisポインタをrcxにコピー
331 SetThisPtrToReg(REG_RCX);
332 }
333 }
334 }
335
336 if(psi->bVirtual){
337 //仮想関数（オブジェクトメソッド）呼び出し
338 //pObj->func_table->func1
339 // ->func2
340 // ->func3
341
342 //mov r11,qword ptr[rcx]
343 op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
344
345 i2 = pobj_c->GetFuncNumInVtbl( psi );
346
347 //call qword ptr[r11+func_index]
348 if(i2*PTR_SIZE<=0x7F){
349 OpBuffer[obp++]=(char)0x41;
350 OpBuffer[obp++]=(char)0xFF;
351 OpBuffer[obp++]=(char)0x53;
352 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
353 }
354 else{
355 OpBuffer[obp++]=(char)0x41;
356 OpBuffer[obp++]=(char)0xFF;
357 OpBuffer[obp++]=(char)0x93;
358 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
359 obp+=sizeof(long);
360 }
361 }
362 else{
363 //通常呼び出し
364
365 //call ProcAddr
366 op_call(psi);
367 }
368
369 /* 64コンパイラでは不要
370 if(pdi->bCdecl){
371 //add esp,ParmSize
372 }*/
373
374
375 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
376 pobj_BlockReg->clear();
377
378 //一時オブジェクトを破棄
379 pobj_parameter->DeleteTempParameters();
380
381 //スタックフレームに存在する既存のパラメータを復元
382 pobj_parameter->RestoreParameter(psi->RealParmNum);
383
384 //パラメータオブジェクトを破棄
385 delete pobj_parameter;
386}
387
388int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
389 char *temporary;
390
391 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
392
393 extern BOOL bDebugCompile;
394 extern BOOL bDebugSupportProc;
395 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
396 Call_DebugSys_SaveContext();
397
398
399
400 ////////////////////////
401 // パラメータのセット
402 ////////////////////////
403
404 //パラメータオブジェクトを生成
405 ParamImpl *pobj_parameter=0;
406 pobj_parameter=new ParamImpl(Parameter);
407
408 //エラーチェック
409 if( !pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum) ){
410 //パラメータにエラーがあるときは処理を終える
411 return pdi->ReturnType;
412 }
413
414 //スタックフレームに存在する既存のパラメータをバックアップ
415 pobj_parameter->BackupParameter(pdi->ParmNum);
416
417 //一時オブジェクトを生成
418 pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
419
420 //レジスタ、スタックフレームにセット
421 pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
422
423
424 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
425 pobj_BlockReg->clear();
426
427
428 //動的リンクされたプロシージャの呼び出し
429
430 //call dword ptr[ImportTable]
431 op_call( pdi );
432
433 /* 64コンパイラでは不要
434 if(pdi->bCdecl){
435 //add esp,ParmSize
436 }*/
437
438 //一時オブジェクトを破棄
439 pobj_parameter->DeleteTempParameters();
440
441 //スタックフレームに存在する既存のパラメータを復元
442 pobj_parameter->RestoreParameter(pdi->ParmNum);
443
444 //パラメータオブジェクトを破棄
445 delete pobj_parameter;
446
447 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
448
449 HeapDefaultFree(temporary);
450
451 return pdi->ReturnType;
452}
Note: See TracBrowser for help on using the repository browser.