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