Changeset 704 in dev for trunk

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/ab5.0/abdev/compiler_x64

Files:

• Compile_CallProc.cpp (modified) (1 diff)
• Compile_Object.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (3 diffs)
• Opcode.h (modified) (1 diff)

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

@@ -105 +105 @@
             return true;
         }
+    }
+    if( (dwFlags&PROCFLAG_PERMIT_CONSTRUCTOR) == 0 && pUserProc->IsConstructor() )
+    {
+        // コンストラクタの直接呼出しはエラーとする
+        compiler.errorMessenger.Output(145,NULL,cp);
+        return false;
+    }
+    if( (dwFlags&PROCFLAG_PERMIT_DESTRUCTOR) == 0 && pUserProc->IsDestructor() )
+    {
+        // デストラクタの直接呼出しはエラーとする
+        compiler.errorMessenger.Output(146,NULL,cp);
+        return false;
     }
 

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

@@ -69 +69 @@
     Opcode_CallProc(CreateParameter,
         pUserProc,
-        PROCFLAG_NEW,"");
+        PROCFLAG_NEW | PROCFLAG_PERMIT_CONSTRUCTOR,"");
 
     if(bSomeObjects){

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,
                         "");
                 }

trunk/ab5.0/abdev/compiler_x64/Opcode.h

@@ -328 +328 @@
 
 //Compile_CallProc.cpp
-#define PROCFLAG_NEW    1
+#define PROCFLAG_NEW                1
+#define PROCFLAG_PERMIT_CONSTRUCTOR 2
+#define PROCFLAG_PERMIT_DESTRUCTOR  4
 bool Opcode_CallProcPtr(const char *variable, const char *lpszParms,ProcPointer *pProcPointer);
 bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName);