Changeset 704 in dev for trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp

Timestamp:

Jul 21, 2008, 2:31:24 PM (16 years ago)

Author:

dai_9181

Message:

[702]を64bit版にマージ。

File:

• trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp (modified) (3 diffs)

trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp

@@ -445 +445 @@
             compiler.GetCompilingClass().NotifyStartConstructorCompile();
 
-            //基底クラスかどうかの識別
-            //（継承元がインターフェイスの場合も基底クラスと見なす）
-            BOOL bThisIsSuperClass;
-            if( !compiler.GetCompilingClass().HasSuperClass() ) bThisIsSuperClass=1;
-            else if( compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod() == NULL ){
-                //インターフェイスを継承したときはコンストラクタを持たない
-                bThisIsSuperClass=1;
-            }
-            else bThisIsSuperClass=0;
-
-            if(!bThisIsSuperClass){
+            if( compiler.GetCompilingClass().HasSuperClass() )
+            {
                 /* サブクラスコンストラクタをコンパイルしているときは、
                     基底クラスのコンストラクタを呼び出す */
@@ -483 +474 @@
                     RemoveStringPare(temporary);
 
-                    Type dummyType;
-                    CallProc( PROC_DEFAULT
-                        , &compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc()
-                        , compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
-                        , temporary
-                        , Type()        // baseTypeはなし
-                        , dummyType
-                    );
+
+                    ////////////////////////
+                    // オーバーロードを解決
+                    ////////////////////////
+
+                    std::vector<const UserProc *> subs;
+                    compiler.GetCompilingClass().GetSuperClass().GetDynamicMethods().Enum( compiler.GetCompilingClass().GetSuperClass().GetName().c_str(), subs );
+
+                    const UserProc *pUserProc = NULL;
+                    if( subs.size() > 0 )
+                    {
+                        //オーバーロードを解決
+                        pUserProc=OverloadSolutionWithStrParam(  compiler.GetCompilingClass().GetSuperClass().GetName().c_str(),
+                            subs,temporary,"");
+                    }
+                    if( !pUserProc )
+                    {
+                        compiler.errorMessenger.Output(1,NULL,cp);
+                    }
+                    else
+                    {
+                        Type dummyType;
+                        CallProc( PROC_DEFAULT
+                            , pUserProc
+                            , pUserProc->GetName().c_str()
+                            , temporary
+                            , Type()        // baseTypeはなし
+                            , dummyType
+                            , true
+                            , PROCFLAG_PERMIT_CONSTRUCTOR
+                        );
+                    }
                 }
                 else{
-                    //基底クラスのコンストラクタを暗黙的に呼び出す
-                    Opcode_CallProc("",
-                        &compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc(),
-                        0,
-                        "");
+                    if( compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod() != NULL )
+                    {
+                        // 基底クラスがデフォルトコンストラクタを保有するとき
+
+                        // 基底クラスのコンストラクタを暗黙的に呼び出す
+                        Opcode_CallProc("",
+                            &compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc(),
+                            PROCFLAG_PERMIT_CONSTRUCTOR,
+                            ""
+                        );
+                    }
                 }
             }
@@ -555 +576 @@
                     Opcode_CallProc("",
                         &method->GetUserProc(),
-                        0,
+                        PROCFLAG_PERMIT_DESTRUCTOR,
                         "");
                 }