Changeset 540 in dev for trunk/ab5.0/abdev/BasicCompiler_Common

Timestamp:

May 4, 2008, 12:17:40 AM (17 years ago)

Author:

dai_9181

Message:

StartCompileメソッドを廃止し、Usingメソッドのオーバーロードに差し替えた。

Location:

trunk/ab5.0/abdev/BasicCompiler_Common

Files:

• include/Class.h (modified) (2 diffs)
• src/Class.cpp (modified) (2 diffs)
• src/Compiler.cpp (modified) (1 diff)

trunk/ab5.0/abdev/BasicCompiler_Common/include/Class.h

@@ -176 +176 @@
     }
 
+    virtual void Using() const;
+
     void Readed(){
         isReady = true;
@@ -497 +499 @@
     const CClass *Find( const std::string &fullName ) const;
 
-    void StartCompile( const UserProc *pUserProc );
-
 
     /////////////////////////////

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class.cpp

@@ -14 +14 @@
 using namespace ActiveBasic::Compiler;
 
+void CClass::Using() const
+{
+    if( this->IsUsing() )
+    {
+        // 既に使用することになっている
+        return;
+    }
+
+    Prototype::Using();
+
+    // 仮想関数になるメソッドに使用チェックをつける
+    const CClass &objThis = *this;
+    BOOST_FOREACH( const CMethod *pMethod, objThis.GetDynamicMethods() )
+    {
+        if( pMethod->IsVirtual() )
+        {
+            pMethod->GetUserProc().Using();
+        }
+    }
+}
 
 bool CClass::IsClass() const
@@ -1153 +1173 @@
     return Find( NamespaceScopes( AreaName ), NestName );
 }
-void Classes::StartCompile( const UserProc *pUserProc ){
-    const CClass *pParentClass = pUserProc->GetParentClassPtr();
-    if( pParentClass ){
-        pParentClass->Using();
-
-        // 仮想関数になるメソッドに使用チェックをつける
-        BOOST_FOREACH( const CMethod *pMethod, pParentClass->GetDynamicMethods() )
-        {
-            if( pMethod->IsVirtual() )
-            {
-                pMethod->GetUserProc().Using();
-            }
-        }
-    }
-}
 
 const CClass *Classes::GetStringClassPtr() const

trunk/ab5.0/abdev/BasicCompiler_Common/src/Compiler.cpp

@@ -239 +239 @@
     this->SetCompilingUserProc( pUserProc );
 
-    //コンパイルスタートをクラス管理クラスに追加
-    this->GetObjectModule().meta.GetClasses().StartCompile( pUserProc );
+    if( pUserProc->HasParentClass() )
+    {
+        // クラスの使用チェック
+        pUserProc->GetParentClass().Using();
+    }
 
     // コンパイル中の関数が属する名前空間