source: dev/trunk/ab5.0/abdev/compiler_x64/Compile_Func.cpp@ 584

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

[530]～[583]を64bit版にマージ。
File size: 18.9 KB
RevLine 
[206]1#include "stdafx.h"
2
[198]3#include <Compiler.h>
4
[3]5#include "../BasicCompiler_Common/common.h"
6#include "Opcode.h"
7
[485]8#include "FunctionValue.h"
[432]9
[3]10int GetFunctionFromName(char *FuncName){
[325]11 if( lstrcmpi( FuncName, "Len" ) == 0 ) return FUNC_LEN;
12 if( lstrcmpi( FuncName, "AddressOf" ) == 0 ) return FUNC_ADDRESSOF;
13 if( lstrcmpi( FuncName, "SizeOf" ) == 0 ) return FUNC_SIZEOF;
14 if( lstrcmpi( FuncName, "VarPtr" ) == 0 ) return FUNC_VARPTR;
15 if( lstrcmpi( FuncName, "ObjPtr" ) == 0 ) return FUNC_OBJPTR;
[330]16 if( lstrcmpi( FuncName, "__delegate_dynamicmethod_call" ) == 0 ) return FUNC_DELEGATE_DYNAMICMETHOD_CALL;
17 if( lstrcmpi( FuncName, "__delegate_staticmethod_call" ) == 0 ) return FUNC_DELEGATE_STATICMETHOD_CALL;
[357]18 if( lstrcmpi( FuncName, "_System_GetNowScopeCatchAddresses" ) == 0 )return FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS;
[359]19 if( lstrcmpi( FuncName, "_System_GetNowScopeFinallyAddresses" ) == 0 )return FUNC_SYSTEM_GET_NOW_SCOPE_FINALLY_ADDRESS;
[358]20 if( lstrcmpi( FuncName, "_System_GetBp" ) == 0 ) return FUNC_SYSTEM_GET_BP;
21 if( lstrcmpi( FuncName, "_System_GetSp" ) == 0 ) return FUNC_SYSTEM_GET_SP;
[432]22 if( lstrcmp( FuncName, "_System_GetComVtbl" ) == 0 ) return FUNC_SYSTEM_GET_COM_VTBL;
23 if( lstrcmp( FuncName, "_System_GetVtblList" ) == 0 ) return FUNC_SYSTEM_GET_VTBL_LIST;
24 if( lstrcmp( FuncName, "_System_GetDefaultConstructor" ) == 0 ) return FUNC_SYSTEM_GET_DEFAULT_CONSTRUCTOR;
25 if( lstrcmp( FuncName, "_System_GetDestructor" ) == 0 ) return FUNC_SYSTEM_GET_DESTRUCTOR;
[325]26 if( lstrcmpi( FuncName, "GetDouble" ) == 0 ) return FUNC_GETDOUBLE;
27 if( lstrcmpi( FuncName, "GetSingle" ) == 0 ) return FUNC_GETSINGLE;
28 if( lstrcmpi( FuncName, "GetQWord" ) == 0 ) return FUNC_GETQWORD;
29 if( lstrcmpi( FuncName, "GetDWord" ) == 0 ) return FUNC_GETDWORD;
30 if( lstrcmpi( FuncName, "GetWord" ) == 0 ) return FUNC_GETWORD;
31 if( lstrcmpi( FuncName, "GetByte" ) == 0 ) return FUNC_GETBYTE;
[3]32 return 0;
33}
[46]34void Opcode_Func_Len( const char *Parameter ){
[3]35 BOOL bArrayHead;
36
[46]37 const char *tempParm=Parameter;
[3]38 char temporary[VN_SIZE];
39 char temp2[32];
[75]40 Type type;
41 if( !GetVarType(Parameter,type,0) ){
[3]42 sprintf(temporary,"_System_DummyStr2=%s",Parameter);
43 OpcodeCalc(temporary);
44
45 lstrcpy(temp2,"_System_DummyStr2");
46 tempParm=temp2;
47
[266]48 type.SetType( DEF_OBJECT, compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr() );
[3]49 }
50
[97]51 if( type.IsStringClass() ){
[3]52 //Stringオブジェクトの場合
53 sprintf(temporary,"%s.Length",tempParm);
54
55 int reg=REG_RAX;
[76]56 NumOpe(&reg,temporary,Type(),Type());
[3]57 return;
58 }
59
[206]60 Subscripts subscripts;
[3]61 RELATIVE_VAR RelativeVar;
[206]62 if(!GetVarOffsetReadOnly(tempParm,&RelativeVar,type,&subscripts)) return;
[3]63
[75]64 if(type.GetBasicType()&FLAG_PTR){
65 type.SetBasicType( type.GetBasicType() & ( ~FLAG_PTR ) );
[3]66
67 bArrayHead=1;
68 }
69 else bArrayHead=0;
70
[75]71 int typeSize = type.GetSize();
[3]72
[206]73 if(bArrayHead) typeSize*=JumpSubScripts(subscripts);
[3]74
75 //mov rax,TypeSize
[226]76 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
[3]77
78 return;
79}
80
[339]81void _Opcode_Func_AddressOf( const char *methodInstanceName, const UserProc &userProc )
82{
83 if( userProc.IsVirtual() )
[331]84 {
[3]85 ///////////////////////////////
86 // 仮想関数の場合
87 // thisポインタをrcxにコピー
88 ///////////////////////////////
89
[115]90 const CClass *pobj_c;
[3]91
92 char ObjectName[VN_SIZE];
[308]93 ReferenceKind referenceKind;
[339]94 SplitObjectName(methodInstanceName,ObjectName, referenceKind );
[3]95
96 if(ObjectName[0]){
97 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
98 else{
99 RELATIVE_VAR RelativeVar;
[75]100 Type type;
101 if(!GetVarOffsetReadOnly(ObjectName,&RelativeVar,type)) return;
[3]102 SetVarPtrToReg(REG_RCX,&RelativeVar);
103
104 //参照タイプが整合しているかをチェック
[308]105 if( !( type.IsObject() && referenceKind == RefDot
106 || type.IsObjectPtr() && referenceKind == RefPointer ) )
107 {
[468]108 compiler.errorMessenger.Output(104,ObjectName,cp);
[308]109 }
[3]110
[75]111 if(type.IsObjectPtr()){
[3]112 //mov rcx,qword ptr[rcx]
[226]113 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
[3]114 }
115 }
116 }
117 else{
118InClassMember:
119 //自身のオブジェクトのThisポインタをrcxにコピー
120 SetThisPtrToReg(REG_RCX);
121
[584]122 pobj_c = &compiler.GetCompilingClass();
[3]123 }
124
125
[349]126 int vtblIndex;
127 if( pobj_c->IsInterface() )
128 {
129 // インターフェイスメソッド
[3]130
[349]131 int offset_vtbl = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__vtbl" );
[348]132
[349]133 // vtblのポインタを取得
134 //mov r11,qword ptr[rcx+offset_vtbl]
135 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,offset_vtbl,MOD_BASE_DISP8);
[3]136
[349]137 int offset_this = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__this" );
[3]138
[349]139 // インターフェイスの場合は更に__thisを取得する
140 //mov rcx,qword ptr[rcx+offset_this]
141 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,offset_this,MOD_BASE_DISP8);
142
143 int vtblMasterListIndex;
144 pobj_c->GetVtblMasterListIndexAndVtblIndex( &userProc, vtblMasterListIndex, vtblIndex );
145 if( vtblMasterListIndex != 0 )
146 {
[468]147 compiler.errorMessenger.OutputFatalError();
[349]148 }
149 }
[370]150 else if( pobj_c->IsComInterface() )
151 {
152 //仮想関数（オブジェクトメソッド）
153 // pObj -> vtbl1 -> func1
154 // -> func2
155 // -> func3
156
157 int vtblMasterListIndex;
158 pobj_c->GetVtblMasterListIndexAndVtblIndex( &userProc, vtblMasterListIndex, vtblIndex );
159
160 // vtblのポインタを取得
161 //mov r11,qword ptr[rcx]
162 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
163 }
[349]164 else
165 {
166 //仮想関数（オブジェクトメソッド）
167 // pObj -> vtbl_master_list -> vtbl1 -> func1
168 // -> func2
169 // -> func3
170 // -> vtbl2 -> func1
171 // -> func2
172 // -> func3
173
174 int vtblMasterListIndex;
175 pobj_c->GetVtblMasterListIndexAndVtblIndex( &userProc, vtblMasterListIndex, vtblIndex );
176
177 // vtblマスターリストのポインタを取得
[370]178 //mov r11,qword ptr[rcx+sizeof(com_vtbl)]
179 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,PTR_SIZE,MOD_BASE_DISP8);
[349]180
181 // vtblのポインタを取得
182 //mov r11,dword ptr[r11+vtblMasterListIndex]
183 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_R11, REG_R11, vtblMasterListIndex, MOD_BASE_DISP32 );
184 }
185
[3]186 //mov rax,qword ptr[r11+func_index]
[345]187 if( vtblIndex * PTR_SIZE <= 0x7F )
188 {
189 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_R11,vtblIndex*PTR_SIZE,MOD_BASE_DISP8);
[3]190 }
[345]191 else
192 {
193 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_R11,vtblIndex*PTR_SIZE,MOD_BASE_DISP32);
[3]194 }
195 }
196 else{
197 //一般の関数
198
199 //mov rax,ProcAddr
[339]200 compiler.codeGenerator.op_addressof( REG_RAX, &userProc );
[3]201 }
202
[339]203 userProc.Using();
[3]204}
[339]205void Opcode_CreateDelegate( const CClass &dgClass, const char *methodInstanceName, const UserProc &userProc )
206{
207 /////////////////////////////////////////////////////////////////
208 // 関数ポインタをpush
209 /////////////////////////////////////////////////////////////////
210
211 //mov rax,AddressOf
212 _Opcode_Func_AddressOf( methodInstanceName, userProc );
213
214
215 if( userProc.GetMethod().IsDynamic() )
216 {
217 //mov rdx,rax
218 compiler.codeGenerator.op_mov_RR( REG_RDX, REG_RAX );
219
220 pobj_BlockReg->lock( REG_RDX );
221
222
223 /////////////////////////////////////////////////////////////////
224 // オブジェクト ポインタをpush
225 /////////////////////////////////////////////////////////////////
226
227 // オブジェクト名を取得
228 char objectName[VN_SIZE];
229 char memberName[VN_SIZE];
230 char *thisPtrName = "This";
231 Type type;
232 if( SplitMemberName( methodInstanceName, objectName, memberName ) )
233 {
234 if( GetVarType( objectName, type, false ) )
235 {
236 thisPtrName = objectName;
237 }
238 }
239
240 // オブジェクト ポインタを取得
241 RELATIVE_VAR relativeVar;
242 GetVarOffsetReadOnly( thisPtrName, &relativeVar, type );
243 if( !type.IsObject() )
244 {
245 extern int cp;
[468]246 compiler.errorMessenger.Output(1,NULL,cp);
[339]247 return;
248 }
249
250 SetVarPtrToReg( REG_RAX, &relativeVar );
251
252 //mov rcx,dword ptr[rax]
253 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RCX, REG_RAX, 0, MOD_BASE );
254
255 pobj_BlockReg->unlock( REG_RDX );
256 }
257 else
258 {
259 //mov rcx,rax
260 compiler.codeGenerator.op_mov_RR( REG_RCX, REG_RAX );
261 }
262
263
264 /////////////////////////////////////////////////////////////////
265 // call _CreateDynamicDelegate/_CreateStaticDelegate
266 /////////////////////////////////////////////////////////////////
267
268 std::vector<const UserProc *> subs;
269 if( userProc.GetMethod().IsDynamic() )
270 {
271 dgClass.GetStaticMethods().Enum( "_CreateDynamicDelegate", subs );
272 }
273 else
274 {
275 dgClass.GetStaticMethods().Enum( "_CreateStaticDelegate", subs );
276 }
277
278 // call _CreateDynamicDelegate
279 compiler.codeGenerator.op_call( subs[0] );
280}
281void Opcode_Func_AddressOf( const char *name, const Type &baseType, bool isCallOn, Type &resultType )
282{
283 extern int cp;
284
285 const Parameters *pBaseParams = NULL;
[449]286 const Type *pBaseReturnType = NULL;
[339]287 if( baseType.IsProcPtr() )
288 {
289 // 左辺で関数ポインタを要求されているとき
[449]290 const ProcPointer *pTempProcPointer = compiler.GetObjectModule().meta.GetProcPointers()[baseType.GetIndex()];
291 pBaseParams = &pTempProcPointer->Params();
292 pBaseReturnType = &pTempProcPointer->ReturnType();
[339]293 }
294 else if( baseType.IsDelegate() )
295 {
296 // 左辺でデリゲートを要求されているとき
[584]297 const Delegate *pTempDelegate = &compiler.GetObjectModule().meta.ToDelegate( baseType.GetClass() );
[449]298 pBaseParams = &pTempDelegate->Params();
299 pBaseReturnType = &pTempDelegate->ReturnType();
[339]300 }
301
[449]302 const UserProc *pUserProc;
303 if( pBaseParams && pBaseReturnType )
[339]304 {
305 //左辺の型にのっとり、オーバーロードを解決
306
307 std::vector<const UserProc *> subs;
308 GetOverloadSubHash( name, subs );
309 if( subs.size() == 0 ){
[468]310 compiler.errorMessenger.Output(27,name,cp);
[339]311 return;
312 }
313
314 //オーバーロードを解決
[425]315 pUserProc=OverloadSolution( name, subs, *pBaseParams, Type(), Type() );
[339]316
[449]317 if( isCallOn )
[339]318 {
319 // コード生成を伴う場合はエラーチェックを行う
[449]320
321 if( baseType.IsDelegate() )
[339]322 {
[449]323 // デリゲート
324 // 共変戻り値、反変引数をサポート
325 if( !(
326 pBaseParams->Equals( pUserProc->Params(), true )
327 && ( pBaseReturnType->Equals( pUserProc->ReturnType() ) || pBaseReturnType->IsCovariant( pUserProc->ReturnType() ) )
328 ) )
[339]329 {
[468]330 compiler.errorMessenger.Output(67, name, cp );
[339]331 }
[449]332 }
333 else
334 {
335 // 関数ポインタ
336 if( !(
337 pBaseParams->Equals( pUserProc->Params() )
338 && pBaseReturnType->Equals( pUserProc->ReturnType() )
339 ) )
[339]340 {
[468]341 compiler.errorMessenger.Output(66, name, cp );
[339]342 }
343 }
344 }
345
346 if(!pUserProc){
[468]347 compiler.errorMessenger.Output(27,name,cp);
[339]348 return;
349 }
350 }
351 else{
352 pUserProc=GetSubHash(name);
353 if(!pUserProc){
[468]354 compiler.errorMessenger.Output(27,name,cp);
[339]355 return;
356 }
357 }
358
359 if( baseType.IsDelegate() )
360 {
361 if( isCallOn )
362 {
363 // デリゲートのとき
364 Opcode_CreateDelegate( baseType.GetClass(), name, *pUserProc );
365 }
366 resultType = baseType;
367 }
368 else
369 {
370 if( isCallOn )
371 {
372 // 関数ポインタのとき
373 _Opcode_Func_AddressOf( name, *pUserProc );
374 }
375 resultType.SetBasicType( DEF_PTR_VOID );
376 }
377}
[528]378void Opcode_Func_SizeOf( const std::string &typeName ){
[79]379 Type tempType;
[308]380 if( !compiler.StringToType( typeName, tempType ) ){
[468]381 compiler.errorMessenger.Output(3,typeName,cp);
[79]382 return;
[64]383 }
[3]384
[79]385 int typeSize = ( tempType.IsObject() ) ?
386 tempType.GetClass().GetSize() : tempType.GetSize();
387
[3]388 //mov rax,size
[226]389 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
[3]390}
[75]391void Opcode_Func_VarPtr( const char *Parameter, Type &resultType, bool isCallOn ){
392 if( isCallOn == false ){
393 // 戻り値の型を取得するだけ
394
395 //変数のアドレスを取得
396 if(!GetVarType( Parameter, resultType, true )) return;
397
398 resultType.PtrLevelUp();
399
400 return;
401 }
402
[3]403 RELATIVE_VAR RelativeVar;
404
405 //変数のアドレスを取得
[75]406 if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
[3]407
[75]408 int beforeType = resultType.GetBasicType();
[64]409
[75]410 resultType.PtrLevelUp();
[46]411
[3]412 SetVarPtrToReg(REG_RAX,&RelativeVar);
[64]413
[109]414 // TODO: 取り除く（この動きはObjPtrに託す）
[130]415 /*
[64]416 if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
417 //参照をオブジェクトポインタに変更
418
419 //mov rax,qword ptr[rax]
[226]420 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
[111]421
[468]422 compiler.errorMessenger.Output(-120,NULL,cp);
[130]423 }*/
[3]424}
[109]425void Opcode_Func_ObjPtr( const char *Parameter, Type &resultType, bool isCallOn ){
426 if( isCallOn == false ){
427 // 戻り値の型を取得するだけ
428
429 //変数のアドレスを取得
430 if(!GetVarType( Parameter, resultType, true )) return;
431
432 resultType.PtrLevelUp();
433
434 return;
435 }
436
437 RELATIVE_VAR RelativeVar;
438
439 //変数のアドレスを取得
440 if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
441
442 int beforeType = resultType.GetBasicType();
443
444 resultType.PtrLevelUp();
445
446 SetVarPtrToReg(REG_RAX,&RelativeVar);
447
[111]448 if( lstrcmpi( Parameter, "This" )==0 ){
449 // Thisの場合は特別にオブジェクトポインタが返ってくるので、何もせずに抜ける
450 }
451 else if( beforeType == DEF_OBJECT ){
[109]452 //参照をオブジェクトポインタに変更
453
454 //mov rax,qword ptr[rax]
[226]455 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
[109]456 }
457 else{
[468]458 compiler.errorMessenger.Output(134,NULL,cp );
[109]459 }
460}
[325]461
[330]462void Opcode_Func_delegate_call( const char *paramsStr, Type &resultType, bool isDynamicCall, bool isCallOn )
[325]463{
464 if( isCallOn )
465 {
466 int i = 0;
[330]467 char methodPtrParamStr[VN_SIZE];
468 i = GetOneParameter( paramsStr, i, methodPtrParamStr );
469
[339]470 char objPtrValueStr[VN_SIZE] = "";
[330]471 if( isDynamicCall )
472 {
473 i = GetOneParameter( paramsStr, i, objPtrValueStr );
474 }
475
[584]476 Opcode_CallDelegate( compiler.GetObjectModule().meta.ToDelegate( compiler.GetCompilingClass() ), methodPtrParamStr, objPtrValueStr, paramsStr + i );
[325]477 }
478
[584]479 resultType = compiler.GetCompilingUserProc().ReturnType();
[325]480}
481
[357]482void Opcode_Func_System_Get_Bp()
483{
484 //mov rax,rbp
485 compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RBP);
486}
[358]487void Opcode_Func_System_Get_Sp()
488{
489 //mov rax,rsp
490 compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RSP);
491}
[357]492
[432]493void Opcode_Func_System_GetComVtbl( const char *parameter )
[427]494{
[432]495 Type classType;
496 compiler.StringToType( parameter, classType );
497
498 // mov rax,com_vtbl
499 compiler.codeGenerator.op_mov_RV_com_vtbl( REG_RAX, &classType.GetClass() );
500}
501void Opcode_Func_System_GetVtblList( const char *parameter )
502{
503 Type classType;
504 compiler.StringToType( parameter, classType );
505
506 // mov rax,com_vtbl
507 compiler.codeGenerator.op_mov_RV_vtbl( REG_RAX, &classType.GetClass() );
508}
509void Opcode_Func_System_GetDefaultConstructor( const char *parameter )
510{
511 Type classType;
512 compiler.StringToType( parameter, classType );
513
514 if( classType.GetClass().GetConstructorMethod() )
[427]515 {
[432]516 //mov rax,ProcAddr
517 compiler.codeGenerator.op_addressof( REG_RAX, &classType.GetClass().GetConstructorMethod()->GetUserProc() );
[427]518 }
[432]519 else
[427]520 {
[432]521 // デフォルトコンストラクタを持たない
[427]522
[432]523 //xor rax,rax
524 compiler.codeGenerator.op_zero_reg( REG_RAX );
[427]525 }
526}
[432]527void Opcode_Func_System_GetDestructor( const char *parameter )
528{
529 Type classType;
530 compiler.StringToType( parameter, classType );
[427]531
[432]532 //mov rax,ProcAddr
533 compiler.codeGenerator.op_addressof( REG_RAX, &classType.GetClass().GetDestructorMethod()->GetUserProc() );
534}
535
[46]536void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
[3]537 int reg=REG_RAX;
[75]538 Type tempType;
539 if( !NumOpe(&reg,Parameter,Type(),tempType) ){
540 return;
541 }
542 if(!tempType.IsWhole()){
[468]543 compiler.errorMessenger.Output(11,Parameter,cp);
[3]544 return;
545 }
546
547 if(type==DEF_DOUBLE){
548 //movlpd xmm0,qword ptr[rax]
[226]549 compiler.codeGenerator.op_movlpd_RM(REG_XMM0,REG_RAX,0,MOD_BASE);
[3]550 }
551 else if(type==DEF_SINGLE){
552 //movss xmm0,dword ptr[rax]
[226]553 compiler.codeGenerator.op_movss_RM(REG_XMM0,REG_RAX,0,MOD_BASE);
[3]554 }
555 else{
556 //mov rax,ptr[rax]
[308]557 compiler.codeGenerator.op_mov_RM(Type(type).GetSize(),REG_RAX,REG_RAX,0,MOD_BASE);
[3]558 }
559}
560
[331]561bool Opcode_CallFunc( const char *Parameter, const int FuncNum, const Type &baseType, Type &resultType, bool isCallOn )
562{
[3]563 switch(FuncNum){
564 case FUNC_LEN:
[75]565 if( isCallOn ) Opcode_Func_Len(Parameter);
566 resultType.SetBasicType( DEF_LONG );
[46]567 break;
[3]568 case FUNC_ADDRESSOF:
[339]569 Opcode_Func_AddressOf( Parameter, baseType, isCallOn, resultType );
[46]570 break;
[3]571 case FUNC_SIZEOF:
[75]572 if( isCallOn ) Opcode_Func_SizeOf(Parameter);
573 resultType.SetBasicType( DEF_LONG );
[46]574 break;
[3]575 case FUNC_VARPTR:
[75]576 Opcode_Func_VarPtr( Parameter, resultType, isCallOn );
[46]577 break;
[109]578 case FUNC_OBJPTR:
579 Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
580 break;
[330]581 case FUNC_DELEGATE_DYNAMICMETHOD_CALL:
582 Opcode_Func_delegate_call( Parameter, resultType, true, isCallOn );
[325]583 break;
[330]584 case FUNC_DELEGATE_STATICMETHOD_CALL:
585 Opcode_Func_delegate_call( Parameter, resultType, false, isCallOn );
586 break;
[357]587 case FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS:
588 if( isCallOn ) Exception::Opcode_Func_System_GetNowScopeCatchAddress();
[358]589 resultType.SetBasicType( DEF_PTR_VOID );
[357]590 break;
[359]591 case FUNC_SYSTEM_GET_NOW_SCOPE_FINALLY_ADDRESS:
592 if( isCallOn ) Exception::Opcode_Func_System_GetNowScopeFinallyAddress();
593 resultType.SetBasicType( DEF_PTR_VOID );
594 break;
[357]595 case FUNC_SYSTEM_GET_BP:
596 if( isCallOn ) Opcode_Func_System_Get_Bp();
[358]597 resultType.SetBasicType( DEF_INT64 );
[357]598 break;
[358]599 case FUNC_SYSTEM_GET_SP:
600 if( isCallOn ) Opcode_Func_System_Get_Sp();
601 resultType.SetBasicType( DEF_INT64 );
602 break;
[432]603 case FUNC_SYSTEM_GET_COM_VTBL:
604 if( isCallOn ) Opcode_Func_System_GetComVtbl( Parameter );
605 resultType.SetBasicType( DEF_PTR_VOID );
[427]606 break;
[432]607 case FUNC_SYSTEM_GET_VTBL_LIST:
608 if( isCallOn ) Opcode_Func_System_GetVtblList( Parameter );
609 resultType.SetBasicType( DEF_PTR_VOID );
610 break;
611 case FUNC_SYSTEM_GET_DEFAULT_CONSTRUCTOR:
612 if( isCallOn ) Opcode_Func_System_GetDefaultConstructor( Parameter );
613 resultType.SetBasicType( DEF_PTR_VOID );
614 break;
615 case FUNC_SYSTEM_GET_DESTRUCTOR:
616 if( isCallOn ) Opcode_Func_System_GetDestructor( Parameter );
617 resultType.SetBasicType( DEF_PTR_VOID );
618 break;
[3]619
620 case FUNC_GETDOUBLE:
[75]621 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE);
622 resultType.SetBasicType( DEF_DOUBLE );
[46]623 break;
[3]624 case FUNC_GETSINGLE:
[75]625 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_SINGLE);
626 resultType.SetBasicType( DEF_SINGLE );
[46]627 break;
[3]628 case FUNC_GETQWORD:
[75]629 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_QWORD);
630 resultType.SetBasicType( DEF_QWORD );
[46]631 break;
[3]632 case FUNC_GETDWORD:
[75]633 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DWORD);
634 resultType.SetBasicType( DEF_DWORD );
[46]635 break;
[3]636 case FUNC_GETWORD:
[75]637 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_WORD);
638 resultType.SetBasicType( DEF_WORD );
[46]639 break;
[3]640 case FUNC_GETBYTE:
[75]641 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_BYTE);
642 resultType.SetBasicType( DEF_BYTE );
[46]643 break;
[75]644 default:
645 return false;
[3]646 }
[75]647 return true;
[3]648}
Note: See TracBrowser for help on using the repository browser.