Changeset 702 in dev for trunk/ab5.0/abdev/compiler_x86/Compile_ProcOp.cpp

Timestamp:

Jul 21, 2008, 2:25:54 PM (16 years ago)

Author:

dai_9181

Message:

• コンストラクタ、デストラクタの直接呼出しをエラー扱いにした。
  • コンストラクタ … New演算子にて、呼ばれるものとする。また、コンストラクタの1ステップ目にて、基底クラスのコンストラクタ呼び出しを許可する。
  • デストラクタ … Delete演算子にて呼ばれるものとする。また、デストラクタ内にて、基底クラスのコンストラクタ呼び出しが自動的に行われるものとする。

※まずは32bit版のみ対応。速やかに64bit版にマージすること。

File:

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

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

@@ -469 +469 @@
             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() )
+            {
                 /* サブクラスコンストラクタをコンパイルしているときは、
                     基底クラスのコンストラクタを呼び出す */
@@ -507 +498 @@
                     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,
+                            ""
+                        );
+                    }
                 }
             }
@@ -580 +600 @@
                     Opcode_CallProc("",
                         &method->GetUserProc(),
-                        0,
+                        PROCFLAG_PERMIT_DESTRUCTOR,
                         ""
                     );