Changeset 325 in dev for trunk/abdev/BasicCompiler32/Compile_CallProc.cpp

Timestamp:

Sep 25, 2007, 8:56:38 AM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler32/Compile_CallProc.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -424 +424 @@
     return true;
 }
+
+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->NewTempParameters( dg.GetName(), dg.Params() );
+
+    //レジスタ、スタックフレームにセット
+    int ParmSize = 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;
+        }
+
+        SetVarPtrToEax(&RelativeVar);
+
+        // 参照を実体ポインタにする
+        compiler.codeGenerator.op_mov_RM( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
+
+        //push ecx
+        compiler.codeGenerator.op_push(REG_ECX);
+    }
+
+
+    {
+        ////////////////////////
+        // call
+        ////////////////////////
+        RELATIVE_VAR RelativeVar;
+        GetVarOffsetReadOnly( methodPtrValueStr, &RelativeVar, Type() );
+        SetVarPtrToEax( &RelativeVar );
+
+        //mov eax,dword ptr[eax]
+        compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 0, MOD_BASE );
+
+        //call eax
+        compiler.codeGenerator.op_call_R( REG_EAX );
+    }
+
+
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
+    //パラメータオブジェクトを破棄
+    delete pobj_parameter;
+}