Changeset 330 in dev for trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

Timestamp:

Sep 26, 2007, 3:00:09 AM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler64/Compile_CallProc.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

@@ -24 +24 @@
 }
 
-bool Opcode_CallProcPtr( const char *variable, const char *lpszParms,ProcPointer *pProcPointer){
-
+bool Opcode_CallProcPtr( const char *variable, const char *lpszParms,ProcPointer *pProcPointer)
+{
     extern BOOL bDebugCompile;
     extern BOOL bDebugSupportProc;
@@ -475 +475 @@
 }
 
-void UnsafeCall( const char *methodPtrValueStr, const char *params )
+void Opcode_CallDelegate( const Delegate &dg, const char *methodPtrValueStr, const char *objPtrValueStr, const char *params )
 {
+    ///////////////////////////////////////////////////////////////
+    // _System_LocalThisのダミーをセット
+    ///////////////////////////////////////////////////////////////
+
+    char temporary[VN_SIZE]={0};
+    if( objPtrValueStr && objPtrValueStr[0] ){
+        //_System_LocalThis（第一パラメータ）のダミーを作成
+        lstrcpy(temporary,"0,");
+    }
+    if( dg.ReturnType().IsStruct() ){
+        // ※ByRef _System_ReturnValue パラメータのダミーをセット
+        lstrcat(temporary,"0,");
+    }
+
+    if(params[0]=='\0'&&temporary[0])
+        temporary[lstrlen(temporary)-1]=0;
+    else lstrcat(temporary,params);
+
+
+    ParamImpl *pobj_parameter = new ParamImpl( params );
+
+    //スタックフレームに存在する既存のパラメータをバックアップ
+    pobj_parameter->BackupParameter( (int)dg.Params().size() );
+
+    //一時オブジェクトを生成
+    pobj_parameter->NewTempParameters( dg.GetName(), dg.Params() );
+
+    //レジスタ、スタックフレームにセット
+    pobj_parameter->SetParameter( dg.GetName(), dg.Params() );
+
+
+    if( objPtrValueStr && objPtrValueStr[0] )
+    {
+        RELATIVE_VAR RelativeVar;
+        //Constアクセスが不可能なメソッドの場合
+        if( !GetVarOffsetReadWrite( objPtrValueStr, &RelativeVar, Type() ) ){
+            Jenga::Throw( "Opcode_CallDelegate関数内で呼ばれるGetVarOffsetReadWrite関数に失敗" );
+            return;
+        }
+
+        SetVarPtrToReg(REG_RCX,&RelativeVar);
+
+        // 参照を実体ポインタにする
+        //mov rcx,qword ptr[rcx]
+        compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
+    }
+
+
+    {
+        ////////////////////////
+        // call
+        ////////////////////////
+        RELATIVE_VAR RelativeVar;
+        GetVarOffsetReadOnly( methodPtrValueStr, &RelativeVar, Type() );
+        SetVarPtrToReg(REG_RAX,&RelativeVar);
+
+        //mov rax,qword ptr[rax]
+        compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
+
+        //call rax
+        compiler.codeGenerator.PutOld(
+            (char)0xFF,
+            (char)0xD0
+        );
+    }
+
+
+    //レジスタのブロッキングを解除        ※パラメータセット時にロックされたレジスタ
+    pobj_BlockReg->clear();
+
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
+    //スタックフレームに存在する既存のパラメータを復元
+    pobj_parameter->RestoreParameter( (int)dg.Params().size() );
+
+    //パラメータオブジェクトを破棄
+    delete pobj_parameter;
 }