source: dev/BasicCompiler64/Compile_CallProc.cpp@ 71

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

Parameter.cpp→ParamImpl.cpp
CParameter→ParamImpl

Type.cpp、Type.hを用意した。
File size: 11.4 KB
RevLine 
[3]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
[64]14 op_mov_RR(REG_RDX,REG_RAX);
[3]15
16 //mov rcx,rsp
[64]17 op_mov_RR(REG_RCX,REG_RSP);
[3]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 //パラメータオブジェクトを生成
[71]50 ParamImpl *pobj_parameter=0;
51 pobj_parameter=new ParamImpl(Parameter);
[3]52
53 //エラーチェック
[31]54 if( !pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum) ){
55 //パラメータにエラーがあるときは処理を終える
56 return pi->ReturnType;
57 }
[3]58
59 //スタックフレームに存在する既存のパラメータをバックアップ
60 pobj_parameter->BackupParameter(pi->ParmNum);
61
[20]62 //一時オブジェクトを生成
63 pobj_parameter->NewTempParameters( variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum );
64
[3]65 //レジスタ、スタックフレームにセット
66 pobj_parameter->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
67
68
69
70 RELATIVE_VAR RelativeVar;
71 LONG_PTR lp;
[11]72 GetVarOffsetReadOnly(variable,&i,&RelativeVar,&lp);
[3]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
[20]86 //一時オブジェクトを破棄
87 pobj_parameter->DeleteTempParameters();
88
[3]89 //スタックフレームに存在する既存のパラメータを復元
90 pobj_parameter->RestoreParameter(pi->ParmNum);
91
92 //パラメータオブジェクトを破棄
93 delete pobj_parameter;
94
95 return pi->ReturnType;
96}
97
[64]98void Opcode_CallProc(const char *Parameter,SUBINFO *psi,DWORD dwFlags,char *ObjectName,int RefType){
[51]99 int i2;
[3]100
101 if(psi->dwType==SUBTYPE_MACRO){
102 if(lstrcmpi(psi->name,"Print")==0){
103 Opcode_Print(Parameter,0);
[31]104 return;
[3]105 }
106 if(lstrcmpi(psi->name,"Input")==0){
107 Opcode_Input(Parameter);
[31]108 return;
[3]109 }
110 if(lstrcmpi(psi->name,"Write")==0){
111 Opcode_Print(Parameter,1);
[31]112 return;
[3]113 }
114 }
115
116 psi->bUse=1;
117
[47]118 bool isStatic = false;
[18]119 CClass *pobj_c = NULL;
120 CMethod *pMethod = NULL;
[3]121 if(psi->pobj_ParentClass){
122 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
123 if(ObjectName[0]){
124 if(lstrcmpi(ObjectName,"Super")==0){
[27]125 //クラスメンバ関数内から基底クラスの呼び出し
[3]126 pobj_c=pobj_CompilingClass;
127 }
128 else{
[47]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 }
[3]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
[18]153
154 /////////////////////////////////
155 // メソッド情報を取得
156 /////////////////////////////////
[27]157 pMethod = NULL;
[47]158 if( ! isStatic ) pMethod = pobj_c->GetMethodInfo( psi );
[27]159 if( ! pMethod ){
[18]160 //動的メソッドが取得できなかったときは静的メソッドを当たる
161 pMethod = pobj_c->GetStaticMethodInfo( psi );
162 if( !pMethod ){
163 SetError(300,NULL,cp);
[31]164 return;
[3]165 }
[26]166
167 //静的メンバ
[47]168 isStatic = true;
[3]169 }
170
171
172 //////////////////////////////
173 // アクセスエラーチェック
174 //////////////////////////////
[18]175 DWORD dwAccess = pMethod->dwAccess;
[3]176
177 if(ObjectName[0]){
178 //外部からの呼び出し
179 if(pobj_c==pobj_CompilingClass){
180 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
181 if(dwAccess==ACCESS_NON){
182 SetError(109,psi->name,cp);
[31]183 return;
[3]184 }
185 }
186 else{
187 if(dwAccess==ACCESS_PRIVATE||
188 dwAccess==ACCESS_NON){
189 SetError(109,psi->name,cp);
[31]190 return;
[3]191 }
192 if(dwAccess==ACCESS_PROTECTED){
193 SetError(110,psi->name,cp);
[31]194 return;
[3]195 }
196 }
197 }
198 else{
199 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
200 if(dwAccess==ACCESS_NON){
201 SetError(109,psi->name,cp);
[31]202 return;
[3]203 }
204 }
205 }
206
207
208 ///////////////////////////////////////////////////////////////
[64]209 // _System_LocalThisのダミーをセット
[3]210 ///////////////////////////////////////////////////////////////
211
212 char temporary[VN_SIZE]={0};
[47]213 if( psi->pobj_ParentClass && isStatic == false ){
[3]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
[64]223 //パラメータセット前のspオフセットを取得（Newの場合はここにThisポインタが格納されている）
224 int this_sp_offset = pobj_sf->GetNowSp();
225
226
[3]227 ////////////////////////
228 // パラメータをセット
229 ////////////////////////
230
231 //パラメータオブジェクトを生成
[71]232 ParamImpl *pobj_parameter=0;
233 pobj_parameter=new ParamImpl(temporary);
[3]234
235 //エラーチェック
[31]236 if( !pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->SecondParmNum) ){
237 //パラメータにエラーがあるときは処理を終える
238 return;
239 }
[3]240
241 if(psi->dwType==SUBTYPE_MACRO){
242 //マクロ関数の場合は、パラメータ省略を考慮する
243 pobj_parameter->MacroParameterSupport(psi->pRealParmInfo);
244 }
245
246 //スタックフレームに存在する既存のパラメータをバックアップ
247 pobj_parameter->BackupParameter(psi->RealParmNum);
248
[20]249 //一時オブジェクトを生成
250 pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
251
[3]252 //レジスタ、スタックフレームにセット
253 pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
254
[64]255 if(psi->ReturnType==DEF_STRUCT && psi->isReturnRef == false){
[3]256 //////////////////////////////////////////////////////
[64]257 // 戻り値に構造体インスタンスを持つ場合
258 // ※ByRef _System_ReturnValue パラメータをセット
[3]259 //////////////////////////////////////////////////////
260
261
262 //////////////////////////////////////////////////////
263 ///// レジスタ資源のバックアップ
264 { BACKUP_REGISTER_RESOURCE
265 //////////////////////////////////////////////////////
266
[63]267 int object_size = psi->u.Return_pobj_c->GetSize();
[3]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
[47]284 if( psi->pobj_ParentClass && isStatic == false ){
[3]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
[47]295 if( psi->pobj_ParentClass && isStatic == false ){
[3]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;
[18]305 if( pMethod->isConst ){
306 //Constアクセスが可能なメソッドの場合
[31]307 if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return;
[18]308 }
309 else{
310 //Constアクセスが不可能なメソッドの場合
[31]311 if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return;
[18]312 }
313
[3]314 SetVarPtrToReg(REG_RCX,&RelativeVar);
315
[64]316 // 参照を実体ポインタにする
317 //mov rcx,qword ptr[rcx]
318 op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
[3]319 }
320 }
321 else{
322InClassMember:
323 if(dwFlags&PROCFLAG_NEW){
324 //New演算子によるコンストラクタ呼び出しの場合
325
326 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
[64]327 pobj_sf->ref_offset_data(REG_RCX, this_sp_offset);
[3]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
[51]345 i2 = pobj_c->GetFuncNumInVtbl( psi );
[3]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
[20]378 //一時オブジェクトを破棄
379 pobj_parameter->DeleteTempParameters();
380
[3]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 //パラメータオブジェクトを生成
[71]405 ParamImpl *pobj_parameter=0;
406 pobj_parameter=new ParamImpl(Parameter);
[3]407
408 //エラーチェック
[31]409 if( !pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum) ){
410 //パラメータにエラーがあるときは処理を終える
411 return pdi->ReturnType;
412 }
[3]413
414 //スタックフレームに存在する既存のパラメータをバックアップ
415 pobj_parameter->BackupParameter(pdi->ParmNum);
416
[45]417 //一時オブジェクトを生成
418 pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
419
[3]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]
[19]431 op_call( pdi );
[3]432
433 /* 64コンパイラでは不要
434 if(pdi->bCdecl){
435 //add esp,ParmSize
436 }*/
437
[45]438 //一時オブジェクトを破棄
439 pobj_parameter->DeleteTempParameters();
440
[3]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.