source: dev/BasicCompiler32/Compile_CallProc.cpp@ 76

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

TYPEINFO→Typeへのリファクタリングを実施。32bitが未完成。
File size: 10.0 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
[75]10 extern UserProc *pSub_System_GetEip;
[3]11 op_call(pSub_System_GetEip);
12
13 //push eax
14 op_push(REG_EAX);
15
16 //push ebp
17 op_push(REG_EBP);
18
19 //call _DebugSys_SaveContext
[75]20 extern UserProc *pSub_DebugSys_SaveContext;
[3]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
[76]34bool Opcode_CallProcPtr( const char *variable, const char *lpszParms,ProcPointer *pProcPointer){
[3]35
36 extern BOOL bDebugCompile;
37 extern BOOL bDebugSupportProc;
38 if(bDebugCompile&&bDebugSupportProc==0)
39 Call_DebugSys_SaveContext();
40
41
42 ////////////////////////
43 // パラメータのセット
44 ////////////////////////
45
46 //パラメータオブジェクトを生成
[71]47 ParamImpl *pobj_parameter=0;
[76]48 pobj_parameter=new ParamImpl(lpszParms);
[3]49
50 //エラーチェック
[75]51 if( !pobj_parameter->ErrorCheck(variable,pProcPointer->Params() ) ){
[31]52 //パラメータにエラーがあるときは処理を終える
[76]53 return false;
[31]54 }
[3]55
[20]56 //一時オブジェクトを生成
[75]57 pobj_parameter->NewTempParameters( variable,pProcPointer->Params() );
[20]58
[3]59 //レジスタ、スタックフレームにセット
[75]60 pobj_parameter->SetParameter(variable,pProcPointer->Params() );
[3]61
62
63
[20]64 ////////////////////////
65 // call
66 ////////////////////////
[3]67 RELATIVE_VAR RelativeVar;
[76]68 GetVarOffsetReadOnly(variable,&RelativeVar,Type());
[3]69 SetVarPtrToEax(&RelativeVar);
70
71 //mov eax,dword ptr[eax]
72 OpBuffer[obp++]=(char)0x8B;
73 OpBuffer[obp++]=(char)0x00;
74
75 //call eax
76 OpBuffer[obp++]=(char)0xFF;
77 OpBuffer[obp++]=(char)0xD0;
78
[20]79
80
81 //一時オブジェクトを破棄
82 pobj_parameter->DeleteTempParameters();
83
84 //パラメータオブジェクトを破棄
85 delete pobj_parameter;
86
[76]87 return true;
[3]88}
89
[76]90bool Opcode_CallProc(const char *Parameter,UserProc *pUserProc,DWORD dwFlags,const char *ObjectName,int RefType){
[51]91 int i2;
[3]92
[75]93 if( pUserProc->IsMacro() ){
94 if( lstrcmpi( pUserProc->GetName().c_str(), "Print" ) == 0 ){
[3]95 Opcode_Print(Parameter,0);
[76]96 return true;
[3]97 }
[75]98 if( lstrcmpi( pUserProc->GetName().c_str(), "Input" ) == 0 ){
[3]99 Opcode_Input(Parameter);
[76]100 return true;
[3]101 }
[75]102 if( lstrcmpi( pUserProc->GetName().c_str(), "Write" ) == 0 ){
[3]103 Opcode_Print(Parameter,1);
[76]104 return true;
[3]105 }
106 }
107
[75]108 pUserProc->Using();
[3]109
[47]110 bool isStatic = false;
[76]111 const CClass *pobj_c = NULL;
[18]112 CMethod *pMethod = NULL;
[75]113 if( pUserProc->GetParentClassPtr() ){
[3]114 //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
115 if(ObjectName[0]){
116 if(lstrcmpi(ObjectName,"Super")==0){
[27]117 //クラスメンバ関数内から基底クラスの呼び出し
[3]118 pobj_c=pobj_CompilingClass;
119 }
120 else{
[47]121 //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
[76]122 Type varType;
123 GetVarType( ObjectName, varType, false );
124 pobj_c = &varType.GetClass();
125 if( NATURAL_TYPE( varType.GetBasicType() ) != DEF_OBJECT ){
[47]126 pobj_c=pobj_DBClass->check(ObjectName);
127 if( pobj_c ){
128 isStatic = true;
129 }
130 else{
131 SetError(300,NULL,cp);
132 }
[3]133 }
134 }
135 }
136 else{
137 if(dwFlags&PROCFLAG_NEW){
138 //New演算子によるコンストラクタ呼び出し
[75]139 pobj_c=pUserProc->GetParentClassPtr();
[3]140 }
141 else{
142 //クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
143 pobj_c=pobj_CompilingClass;
144 }
145 }
146
147
[18]148 /////////////////////////////////
149 // メソッド情報を取得
150 /////////////////////////////////
[27]151 pMethod = NULL;
[75]152 if( ! isStatic ) pMethod = pobj_c->GetMethodInfo( pUserProc );
[27]153 if( ! pMethod ){
[18]154 //動的メソッドが取得できなかったときは静的メソッドを当たる
[75]155 pMethod = pobj_c->GetStaticMethodInfo( pUserProc );
[18]156 if( !pMethod ){
157 SetError(300,NULL,cp);
[76]158 return false;
[3]159 }
[26]160
161 //静的メンバ
[47]162 isStatic = true;
[3]163 }
164
165
166 //////////////////////////////
167 // アクセスエラーチェック
168 //////////////////////////////
[18]169 DWORD dwAccess = pMethod->dwAccess;
[3]170
171 if(ObjectName[0]){
172 //外部からの呼び出し
173 if(pobj_c==pobj_CompilingClass){
174 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
175 if(dwAccess==ACCESS_NON){
[75]176 SetError(109,pUserProc->GetName(),cp);
[76]177 return false;
[3]178 }
179 }
180 else{
181 if(dwAccess==ACCESS_PRIVATE||
182 dwAccess==ACCESS_NON){
[75]183 SetError(109,pUserProc->GetName(),cp);
[76]184 return false;
[3]185 }
186 if(dwAccess==ACCESS_PROTECTED){
[75]187 SetError(110,pUserProc->GetName(),cp);
[76]188 return false;
[3]189 }
190 }
191 }
192 else{
193 //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
194 if(dwAccess==ACCESS_NON){
[75]195 SetError(109,pUserProc->GetName(),cp);
[76]196 return false;
[3]197 }
198 }
199 }
200
201
202 ///////////////////////////////////////////////////////////////
[64]203 // _System_LocalThisのダミーをセット
[3]204 ///////////////////////////////////////////////////////////////
205
206 char temporary[VN_SIZE]={0};
[75]207 if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]208 //_System_LocalThis（第一パラメータ）のダミーを作成
209 lstrcpy(temporary,"0,");
210 }
211
212 if(Parameter[0]=='\0'&&temporary[0])
213 temporary[lstrlen(temporary)-1]=0;
214 else lstrcat(temporary,Parameter);
215
216
217 ////////////////////////
218 // パラメータをセット
219 ////////////////////////
220
221 //パラメータオブジェクトを生成
[71]222 ParamImpl *pobj_parameter=0;
223 pobj_parameter=new ParamImpl(temporary);
[3]224
225 //エラーチェック
[75]226 if( !pobj_parameter->ErrorCheck(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetSecondParmNum() ) ){
[31]227 //パラメータにエラーがあるときは処理を終える
[76]228 return false;
[31]229 }
[3]230
[75]231 if(pUserProc->IsMacro()){
[3]232 //マクロ関数の場合は、パラメータ省略を考慮する
[75]233 pobj_parameter->MacroParameterSupport( pUserProc->RealParams() );
[3]234 }
235
[20]236 //一時オブジェクトを生成
[75]237 int tempSize = pobj_parameter->NewTempParameters( pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
[20]238
[3]239 //レジスタ、スタックフレームにセット
[75]240 int ParmSize = pobj_parameter->SetParameter(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
[3]241
[75]242 if(pUserProc->ReturnType().IsStruct() ){
[3]243 //////////////////////////////////////////////////////
[64]244 // 戻り値に構造体インスタンスを持つ場合
245 // ※ByRef _System_ReturnValue パラメータをセット
[3]246 //////////////////////////////////////////////////////
247
[75]248 int object_size = pUserProc->ReturnType().GetClass().GetSize();
[3]249
250 //push object_size
[67]251 op_push_V(object_size);
[3]252
253 //call calloc
[75]254 extern UserProc *pSub_calloc;
[3]255 op_call(pSub_calloc);
256
257 //push eax
258 op_push(REG_EAX);
259 }
260
261
[75]262 if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]263 //////////////////////////////////////////////////////
264 // メンバ関数の場合
265 // ※_System_LocalThis パラメータをセット
266 //////////////////////////////////////////////////////
267
268 if(ObjectName[0]){
269 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
[18]270 else{
271 RELATIVE_VAR RelativeVar;
272 if( pMethod->isConst ){
273 //Constアクセスが可能なメソッドの場合
[76]274 if( !GetVarOffsetReadOnly( ObjectName, &RelativeVar, Type() ) ){
275 return false;
276 }
[18]277 }
278 else{
279 //Constアクセスが不可能なメソッドの場合
[76]280 if( !GetVarOffsetReadWrite( ObjectName, &RelativeVar, Type() ) ){
281 return false;
282 }
[18]283 }
[3]284
[18]285 SetVarPtrToEax(&RelativeVar);
[3]286
[64]287 // 参照を実体ポインタにする
288 op_mov_RM( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
[3]289 }
290 }
291 else{
292InClassMember:
293 if(dwFlags&PROCFLAG_NEW){
294 //New演算子によるコンストラクタ呼び出しの場合
[64]295
[3]296 //mov ecx,dword ptr[esp+ParmSize]
[64]297 op_mov_RM( sizeof(long), REG_ECX, REG_ESP, ParmSize + tempSize, MOD_BASE_DISP32 );
[3]298 }
299 else{
300 //Thisポインタをecxにコピー
301 SetThisPtrToReg(REG_ECX);
302 }
303 }
304
305 //push ecx
306 op_push(REG_ECX);
307 }
308
[75]309 if( pUserProc->IsVirtual() ){
[3]310 //仮想関数（オブジェクトメソッド）呼び出し
311 //pObj->func_table->func1
312 // ->func2
313 // ->func3
314
315 //mov edx,dword ptr[ecx]
316 OpBuffer[obp++]=(char)0x8B;
317 OpBuffer[obp++]=(char)0x11;
318
[75]319 i2 = pobj_c->GetFuncNumInVtbl( pUserProc );
[3]320
321 //call dword ptr[edx+func_index]
322 if(i2*PTR_SIZE<=0x7F){
323 OpBuffer[obp++]=(char)0xFF;
324 OpBuffer[obp++]=(char)0x52;
325 OpBuffer[obp++]=(char)(i2*PTR_SIZE);
326 }
327 else{
328 OpBuffer[obp++]=(char)0xFF;
329 OpBuffer[obp++]=(char)0x92;
330 *((long *)(OpBuffer+obp))=i2*PTR_SIZE;
331 obp+=sizeof(long);
332 }
333 }
334 else{
335 //通常呼び出し
336
337 //call ProcAddr
[75]338 op_call(pUserProc);
[3]339 }
340
[75]341 if(pUserProc->IsCdecl()){
[3]342 //add esp,ParmSize
343 op_add_esp(ParmSize);
344 }
345
[20]346 //一時オブジェクトを破棄
347 pobj_parameter->DeleteTempParameters();
348
349 //パラメータオブジェクトを破棄
350 delete pobj_parameter;
[76]351
352 return true;
[3]353}
354
[76]355bool Opcode_CallDllProc( const char *lpszParms, DllProc *pDllProc ){
[3]356
357 extern BOOL bDebugCompile;
358 extern BOOL bDebugSupportProc;
[75]359 if(bDebugCompile&&bDebugSupportProc==0&& pDllProc->GetName() != "DebugBreak" ){
[3]360 Call_DebugSys_SaveContext();
[75]361 }
[3]362
363
364 ////////////////////////
365 // パラメータのセット
366 ////////////////////////
367
368 //パラメータオブジェクトを生成
[71]369 ParamImpl *pobj_parameter=0;
[76]370 pobj_parameter=new ParamImpl(lpszParms);
[3]371
372 //エラーチェック
[75]373 if( !pobj_parameter->ErrorCheck( pDllProc->GetName(), pDllProc->Params() ) ){
[31]374 //パラメータにエラーがあるときは処理を終える
[76]375 return false;
[31]376 }
[3]377
[45]378 //一時オブジェクトを生成
[75]379 pobj_parameter->NewTempParameters( pDllProc->GetName(), pDllProc->Params() );
[45]380
[3]381 //レジスタ、スタックフレームにセット
[75]382 int ParmSize = pobj_parameter->SetParameter(pDllProc->GetName(), pDllProc->Params() );
[3]383
384
385 //動的リンクされたプロシージャの呼び出し
386
387 //call dword ptr[LookupTable]
[75]388 pDllProc->Using();
[3]389 OpBuffer[obp++]=(char)0xFF;
390 OpBuffer[obp++]=(char)0x15;
[75]391 pobj_ImportAddrSchedule->add(pDllProc);
[3]392 obp+=sizeof(long);
393
[75]394 if(pDllProc->IsCdecl()){
[3]395 //add esp,ParmSize
396 op_add_esp(ParmSize);
397 }
398
[45]399 //一時オブジェクトを破棄
400 pobj_parameter->DeleteTempParameters();
401
402 //パラメータオブジェクトを破棄
403 delete pobj_parameter;
404
[76]405 return true;
[3]406}
Note: See TracBrowser for help on using the repository browser.