Changeset 641 in dev for trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp

Timestamp:

Jun 15, 2008, 11:59:46 PM (16 years ago)

Author:

dai_9181

Message:

・デバッグトレース時、グローバル領域の終端行でステップインまたはステップアウトしたときにデバッグ情報の取得に失敗して強制終了してしまう不具合を修正。
・グローバル領域のデバッグ実行ができなくなっている不具合を修正。

File:

• trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp (modified) (3 diffs)

trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp

@@ -44 +44 @@
     , realSecondParmNum( 1 )
     , isExport( isExport )
-    , isSystem( false )
+    , isAutoGenerationSystem( false )
     , isAutoGeneration( false )
     , isCompiled( false )
@@ -65 +65 @@
     , realSecondParmNum( userProc.realSecondParmNum )
     , isExport( userProc.isExport )
-    , isSystem( userProc.isSystem )
+    , isAutoGenerationSystem( userProc.isAutoGenerationSystem )
     , isAutoGeneration( userProc.isAutoGeneration )
     , isCompiled( false )
@@ -138 +138 @@
     return false;
 }
+bool UserProc::IsSystem() const
+{
+    // "_System_" を名前の先頭に含む関数
+    if( memcmp( this->GetName().c_str(), "_System_", 8 ) == 0 )
+    {
+        return true;
+    }
+
+    // "_System_" を名前の先頭に含むクラスのメソッド
+    if( this->HasParentClass() )
+    {
+        if( memcmp( this->GetParentClass().GetName().c_str(), "_System_", 8 ) == 0 )
+        {
+            return true;
+        }
+    }
+
+    return false;
+}
 const NamespaceScopes &UserProc::GetNamespaceScopes() const
 {