source: dev/BasicCompiler64/Compile_CallProc.cpp@ 16

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

Const変数の書き込み規制を有効化(グローバル/ローカル変数のみ)
定数オブジェクトと定数メンバは未実装。

File size: 13.4 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
33int CallProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex){
34 int ret_type;
35
36 if(idProc==PROC_DEFAULT){
37 /////////////////////
38 // ユーザー定義関数
39 /////////////////////
40
41 SUBINFO *psi;
42 psi=(SUBINFO *)pInfo;
43
44 //GetSubHash内でエラー提示が行われた場合
45 if(psi==(SUBINFO *)-1) return -1;
46
47
48 //オブジェクト名を取得
49 char ObjectName[VN_SIZE];
50 int RefType;
51 GetObjectName(name,ObjectName,&RefType);
52
53
54 ////////////////////////
55 // オーバーロードを解決
56 ////////////////////////
57
58 SUBINFO **ppsi;
59 int num;
60 ppsi=GetOverloadSubHash(name,&num);
61 if(num){
62 //オーバーロードを解決
63 psi=OverloadSolutionWithStrParam(name,ppsi,num,Parameter,ObjectName,NULL);
64 HeapDefaultFree(ppsi);
65
66 if(!psi) return 0;
67 }
68
69
70 ret_type=Opcode_CallProc(Parameter,psi,plpRetIndex,0,ObjectName,RefType);
71 }
72 else if(idProc==PROC_DLL){
73 /////////////////////////
74 // DLL関数
75 /////////////////////////
76 DECLAREINFO *pdi;
77 pdi=(DECLAREINFO *)pInfo;
78
79 ret_type=Opcode_CallDllProc(Parameter,pdi,plpRetIndex);
80 }
81 else if(idProc==PROC_BUILTIN){
82 /////////////////////////
83 // 組み込み関数
84 /////////////////////////
85 int FuncId;
86 FuncId=(int)(_int64)pInfo;
87
88 ret_type=Opcode_CallFunc(Parameter,FuncId);
89 }
90 else if(idProc==PROC_PTR){
91 /////////////////
92 // 関数ポインタ
93 /////////////////
94
95 LONG_PTR lpIndex;
96 GetVarType(name,&lpIndex,0);
97
98 extern PROCPTRINFO *pProcPtrInfo;
99 ret_type=Opcode_CallProcPtr(name,Parameter,&pProcPtrInfo[lpIndex],plpRetIndex);
100 }
101
102 return ret_type;
103}
104
105BOOL CallPropertyMethod(char *variable,char *RightSide,TYPEINFO *pRetTypeInfo){
106 //プロパティ用のメソッドを呼び出す
107
108 //配列要素を取得
109 char VarName[VN_SIZE],ArrayElements[VN_SIZE];
110 GetArrayElement(variable,VarName,ArrayElements);
111
112 //オブジェクト名を取得
113 char ObjectName[VN_SIZE];
114 int RefType;
115 GetObjectName(VarName,ObjectName,&RefType);
116
117 //オーバーロード用の関数リストを作成
118 SUBINFO **ppsi;
119 int num;
120 ppsi=GetOverloadSubHash(VarName,&num);
121 if(num==0){
122 return 0;
123 }
124
125 //パラメータを整備
126 char *Parameter;
127 Parameter=(char *)HeapAlloc(hHeap,0,lstrlen(ArrayElements)+lstrlen(RightSide)+32);
128 lstrcpy(Parameter,ArrayElements);
129 if(RightSide){
130 if(Parameter[0]&&RightSide[0]) lstrcat(Parameter,",");
131 lstrcat(Parameter,RightSide);
132 }
133
134 //オーバーロードを解決
135 SUBINFO *psi;
136 psi=OverloadSolutionWithStrParam(VarName,ppsi,num,Parameter,ObjectName,NULL);
137 HeapDefaultFree(ppsi);
138
139 if(psi){
140 //呼び出し
141 int type;
142 LONG_PTR lpIndex;
143 type=Opcode_CallProc(Parameter,psi,&lpIndex,0,ObjectName,RefType);
144
145 if(pRetTypeInfo){
146 pRetTypeInfo->type=type;
147 pRetTypeInfo->u.lpIndex=lpIndex;
148 }
149 }
150
151 HeapDefaultFree(Parameter);
152
153 return 1;
154}
155
156
157int Opcode_CallProcPtr(char *variable,char *Parameter,PROCPTRINFO *pi,LONG_PTR *plpIndex){
158 extern HANDLE hHeap;
159 int i;
160
161
162 extern BOOL bDebugCompile;
163 extern BOOL bDebugSupportProc;
164 if(bDebugCompile&&bDebugSupportProc==0)
165 Call_DebugSys_SaveContext();
166
167
168 ////////////////////////
169 // パラメータのセット
170 ////////////////////////
171
172 //パラメータオブジェクトを生成
173 CParameter *pobj_parameter=0;
174 pobj_parameter=new CParameter(Parameter);
175
176 //エラーチェック
177 pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
178
179 //スタックフレームに存在する既存のパラメータをバックアップ
180 pobj_parameter->BackupParameter(pi->ParmNum);
181
182 //レジスタ、スタックフレームにセット
183 pobj_parameter->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
184
185
186
187 RELATIVE_VAR RelativeVar;
188 LONG_PTR lp;
189 GetVarOffsetReadOnly(variable,&i,&RelativeVar,&lp);
190 SetVarPtrToReg(REG_RAX,&RelativeVar);
191
192 //mov rax,qword ptr[rax]
193 op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
194
195 //call rax
196 OpBuffer[obp++]=(char)0xFF;
197 OpBuffer[obp++]=(char)0xD0;
198
199
200 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
201 pobj_BlockReg->clear();
202
203 //スタックフレームに存在する既存のパラメータを復元
204 pobj_parameter->RestoreParameter(pi->ParmNum);
205
206 //パラメータオブジェクトを破棄
207 delete pobj_parameter;
208
209 if(plpIndex) *plpIndex=pi->u.ReturnIndex;
210
211 return pi->ReturnType;
212}
213
214int Opcode_CallProc(char *Parameter,SUBINFO *psi,LONG_PTR *plpIndex,DWORD dwFlags,char *ObjectName,int RefType){
215 int i,i2;
216
217 if(psi->dwType==SUBTYPE_MACRO){
218 if(lstrcmpi(psi->name,"Print")==0){
219 Opcode_Print(Parameter,0);
220 return -1;
221 }
222 if(lstrcmpi(psi->name,"Input")==0){
223 Opcode_Input(Parameter);
224 return -1;
225 }
226 if(lstrcmpi(psi->name,"Write")==0){
227 Opcode_Print(Parameter,1);
228 return -1;
229 }
230 }
231
232 psi->bUse=1;
233
234 BOOL bStatic=0;
235 CClass *pobj_c;
236 if(psi->pobj_ParentClass){
237 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
238 if(ObjectName[0]){
239 if(lstrcmpi(ObjectName,"Super")==0){
240 //クラスメンバ関数内からスーパークラスの呼び出し
241 pobj_c=pobj_CompilingClass;
242 }
243 else{
244 pobj_c=pobj_DBClass->check(ObjectName);
245 if(pobj_c){
246 //静的メンバ
247 bStatic=1;
248 }
249 else{
250 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
251 GetVarType(ObjectName,(LONG_PTR *)&pobj_c,1);
252 }
253 }
254 }
255 else{
256 if(dwFlags&PROCFLAG_NEW){
257 //New演算子によるコンストラクタ呼び出し
258 pobj_c=psi->pobj_ParentClass;
259 }
260 else{
261 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
262 pobj_c=pobj_CompilingClass;
263 }
264 }
265
266 DWORD dwAccess;
267 for(i=0;i<pobj_c->iMethodNum;i++){
268 if(psi==pobj_c->ppobj_Method[i]->psi) break;
269 }
270 if(i==pobj_c->iMethodNum){
271 for(i=0;i<pobj_c->iStaticMethodNum;i++){
272 if(psi==pobj_c->ppobj_StaticMethod[i]->psi) break;
273 }
274 dwAccess=pobj_c->ppobj_StaticMethod[i]->dwAccess;
275
276 bStatic=1;
277 }
278 else dwAccess=pobj_c->ppobj_Method[i]->dwAccess;
279
280
281 //////////////////////////////
282 // アクセスエラーチェック
283 //////////////////////////////
284
285 if(ObjectName[0]){
286 //外部からの呼び出し
287 if(pobj_c==pobj_CompilingClass){
288 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
289 if(dwAccess==ACCESS_NON){
290 SetError(109,psi->name,cp);
291 return -1;
292 }
293 }
294 else{
295 if(dwAccess==ACCESS_PRIVATE||
296 dwAccess==ACCESS_NON){
297 SetError(109,psi->name,cp);
298 return -1;
299 }
300 if(dwAccess==ACCESS_PROTECTED){
301 SetError(110,psi->name,cp);
302 return -1;
303 }
304 }
305 }
306 else{
307 //クラス内部からの呼び出し(継承によるACCESS_NONのみをエラーとする)
308 if(dwAccess==ACCESS_NON){
309 SetError(109,psi->name,cp);
310 return -1;
311 }
312 }
313 }
314
315
316 ///////////////////////////////////////////////////////////////
317 // _System_LocalThis、_System_ReturnObjectのダミーをセット
318 ///////////////////////////////////////////////////////////////
319
320 char temporary[VN_SIZE]={0};
321 if(psi->pobj_ParentClass&&bStatic==0){
322 //_System_LocalThis(第一パラメータ)のダミーを作成
323 lstrcpy(temporary,"0,");
324 }
325
326 if(psi->ReturnType==DEF_OBJECT){
327 //_System_ReturnObject(第一または第二パラメータのダミーを作成)
328 sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
329 }
330
331 if(Parameter[0]=='\0'&&temporary[0])
332 temporary[lstrlen(temporary)-1]=0;
333 else lstrcat(temporary,Parameter);
334
335
336 ////////////////////////
337 // パラメータをセット
338 ////////////////////////
339
340 //パラメータオブジェクトを生成
341 CParameter *pobj_parameter=0;
342 pobj_parameter=new CParameter(temporary);
343
344 //エラーチェック
345 pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->SecondParmNum);
346
347 if(psi->dwType==SUBTYPE_MACRO){
348 //マクロ関数の場合は、パラメータ省略を考慮する
349 pobj_parameter->MacroParameterSupport(psi->pRealParmInfo);
350 }
351
352 //スタックフレームに存在する既存のパラメータをバックアップ
353 pobj_parameter->BackupParameter(psi->RealParmNum);
354
355 //レジスタ、スタックフレームにセット
356 pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
357
358
359 if(psi->ReturnType==DEF_OBJECT){
360 //////////////////////////////////////////////////////
361 // 戻り値にオブジェクト インスタンスを持つ場合
362 // ※ByRef _System_ReturnObject パラメータをセット
363 //////////////////////////////////////////////////////
364
365
366 //////////////////////////////////////////////////////
367 ///// レジスタ資源のバックアップ
368 { BACKUP_REGISTER_RESOURCE
369 //////////////////////////////////////////////////////
370
371 int object_size;
372 object_size=GetSizeOfClass(psi->u.Return_pobj_c);
373
374 //mov rcx,object_size
375 op_mov_RV(sizeof(_int64),REG_RCX,object_size);
376
377 //call calloc
378 extern SUBINFO *pSub_calloc;
379 op_call(pSub_calloc);
380
381 //mov r13,rax
382 op_mov_RR(REG_R13,REG_RAX);
383
384 /////////////////////////////////////////////
385 ////// レジスタ資源を復元
386 RESTORE_REGISTER_RESOURCE
387 }////////////////////////////////////////////
388
389 if(psi->pobj_ParentClass&&bStatic==0){
390 //mov rdx,r13
391 op_mov_RR(REG_RDX,REG_R13);
392 }
393 else{
394 //mov rcx,r13
395 op_mov_RR(REG_RCX,REG_R13);
396 }
397 }
398
399
400 if(psi->pobj_ParentClass&&bStatic==0){
401 ///////////////////////////////
402 // メンバ関数の場合
403 // thisポインタをrcxで受け渡す
404 ///////////////////////////////
405
406 if(ObjectName[0]){
407 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
408 else{
409 RELATIVE_VAR RelativeVar;
410 if(!GetVarOffsetReadOnly(ObjectName,&i2,&RelativeVar,0)) return -1;
411 SetVarPtrToReg(REG_RCX,&RelativeVar);
412
413 //参照タイプが整合しているかをチェック
414 if(i2!=RefType) SetError(104,ObjectName,cp);
415
416 if(i2==DEF_PTR_OBJECT){
417 //mov rcx,qword ptr[rcx]
418 op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
419 }
420 }
421 }
422 else{
423InClassMember:
424 if(dwFlags&PROCFLAG_NEW){
425 //New演算子によるコンストラクタ呼び出しの場合
426
427 //mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
428 pobj_sf->ref(REG_RCX);
429 }
430 else{
431 //自身のオブジェクトのThisポインタをrcxにコピー
432 SetThisPtrToReg(REG_RCX);
433 }
434 }
435 }
436
437 if(psi->bVirtual){
438 //仮想関数(オブジェクトメソッド)呼び出し
439 //pObj->func_table->func1
440 // ->func2
441 // ->func3
442
443 //mov r11,qword ptr[rcx]
444 op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
445
446 for(i=0,i2=0;i<pobj_c->iMethodNum;i++){
447 if(pobj_c->ppobj_Method[i]->psi==psi) break;
448 if(pobj_c->ppobj_Method[i]->psi->bVirtual) i2++;
449 }
450
451 //call qword ptr[r11+func_index]
452 if(i2*PTR_SIZE<=0x7F){
453 OpBuffer[obp++]=(char)0x41;
454 OpBuffer[obp++]=(char)0xFF;
455 OpBuffer[obp++]=(char)0x53;
456 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
457 }
458 else{
459 OpBuffer[obp++]=(char)0x41;
460 OpBuffer[obp++]=(char)0xFF;
461 OpBuffer[obp++]=(char)0x93;
462 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
463 obp+=sizeof(long);
464 }
465 }
466 else{
467 //通常呼び出し
468
469 //call ProcAddr
470 op_call(psi);
471 }
472
473 /* 64コンパイラでは不要
474 if(pdi->bCdecl){
475 //add esp,ParmSize
476 }*/
477
478
479 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
480 pobj_BlockReg->clear();
481
482 //スタックフレームに存在する既存のパラメータを復元
483 pobj_parameter->RestoreParameter(psi->RealParmNum);
484
485 //パラメータオブジェクトを破棄
486 delete pobj_parameter;
487
488 if(plpIndex) *plpIndex=psi->u.ReturnIndex;
489
490 return psi->ReturnType;
491}
492
493int Opcode_CallDllProc(char *Parameter,DECLAREINFO *pdi,LONG_PTR *plpIndex){
494 char *temporary;
495
496 temporary=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter)+1);
497
498 extern BOOL bDebugCompile;
499 extern BOOL bDebugSupportProc;
500 if(bDebugCompile&&bDebugSupportProc==0&&lstrcmp(pdi->name,"DebugBreak")!=0)
501 Call_DebugSys_SaveContext();
502
503 pdi->bUse=1;
504
505
506 ////////////////////////
507 // パラメータのセット
508 ////////////////////////
509
510 //パラメータオブジェクトを生成
511 CParameter *pobj_parameter=0;
512 pobj_parameter=new CParameter(Parameter);
513
514 //エラーチェック
515 pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
516
517 //スタックフレームに存在する既存のパラメータをバックアップ
518 pobj_parameter->BackupParameter(pdi->ParmNum);
519
520 //レジスタ、スタックフレームにセット
521 pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
522
523
524 //レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
525 pobj_BlockReg->clear();
526
527
528 //動的リンクされたプロシージャの呼び出し
529
530 //call dword ptr[ImportTable]
531 OpBuffer[obp++]=(char)0xFF;
532 OpBuffer[obp++]=(char)0x15;
533 pobj_ImportAddrSchedule->add(pdi);
534 obp+=sizeof(long);
535
536 /* 64コンパイラでは不要
537 if(pdi->bCdecl){
538 //add esp,ParmSize
539 }*/
540
541 //スタックフレームに存在する既存のパラメータを復元
542 pobj_parameter->RestoreParameter(pdi->ParmNum);
543
544 //パラメータオブジェクトを破棄
545 delete pobj_parameter;
546
547 if(plpIndex) *plpIndex=pdi->u.ReturnIndex;
548
549 HeapDefaultFree(temporary);
550
551 return pdi->ReturnType;
552}
Note: See TracBrowser for help on using the repository browser.