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

Timestamp:

Oct 3, 2007, 3:42:05 AM (17 years ago)

Author:

dai_9181

Message:

64ビットコンパイラもデリゲートに対応させた

File:

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

trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

@@ -198 +198 @@
                     return false;
                 }
-                if( pMethod->IsProtected() ){
+                if( !pMethod->GetUserProc().GetParentClass().IsEqualsOrSubClass( pobj_c ) && pMethod->IsProtected() ){
                     SetError(110,pUserProc->GetName(),cp);
                     return false;
@@ -477 +477 @@
 void Opcode_CallDelegate( const Delegate &dg, const char *methodPtrValueStr, const char *objPtrValueStr, const char *params )
 {
+    extern BOOL bDebugCompile;
+    extern BOOL bDebugSupportProc;
+    if(bDebugCompile&&bDebugSupportProc==0)
+        Call_DebugSys_SaveContext();
+
+
     ///////////////////////////////////////////////////////////////
     // _System_LocalThisのダミーをセット
@@ -482 +488 @@
 
     char temporary[VN_SIZE]={0};
+    bool isDynamicCall = false;
     if( objPtrValueStr && objPtrValueStr[0] ){
         //_System_LocalThis（第一パラメータ）のダミーを作成
         lstrcpy(temporary,"0,");
+
+        isDynamicCall = true;
     }
     if( dg.ReturnType().IsStruct() ){
@@ -495 +504 @@
     else lstrcat(temporary,params);
 
-
-    ParamImpl *pobj_parameter = new ParamImpl( params );
+    const Parameters *pParams = &dg.Params();
+    if( isDynamicCall )
+    {
+        pParams = &dg.GetDynamicParams();
+    }
+
+
+    ParamImpl *pobj_parameter = new ParamImpl( temporary );
 
     //スタックフレームに存在する既存のパラメータをバックアップ
-    pobj_parameter->BackupParameter( (int)dg.Params().size() );
+    pobj_parameter->BackupParameter( (int)pParams->size() );
 
     //一時オブジェクトを生成
-    pobj_parameter->NewTempParameters( dg.GetName(), dg.Params() );
+    pobj_parameter->NewTempParameters( dg.GetName(), *pParams );
 
     //レジスタ、スタックフレームにセット
-    pobj_parameter->SetParameter( dg.GetName(), dg.Params() );
+    pobj_parameter->SetParameter( dg.GetName(), *pParams );
 
 
@@ -551 +566 @@
 
     //スタックフレームに存在する既存のパラメータを復元
-    pobj_parameter->RestoreParameter( (int)dg.Params().size() );
+    pobj_parameter->RestoreParameter( (int)pParams->size() );
 
     //パラメータオブジェクトを破棄