Changeset 641 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/src

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/ab5.0/abdev/BasicCompiler_Common/src

Files:

• Compiler.cpp (modified) (1 diff)
• LexicalAnalyzer_Procedure.cpp (modified) (1 diff)

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

@@ -402 +402 @@
 bool Compiler::IsGlobalAreaCompiling()
 {
-    return ( pCompilingUserProc == NULL );
+    if( pCompilingUserProc == NULL )
+    {
+        return true;
+    }
+    return ( pCompilingUserProc->GetName() == this->globalAreaProcName );
 }
 bool Compiler::IsLocalAreaCompiling()
 {
-    return ( pCompilingUserProc != NULL );
+    return !IsGlobalAreaCompiling();
 }
 const UserProc &Compiler::GetCompilingUserProc()
 {
-    if( !this->IsGlobalAreaCompiling() )
-    {
-        return *pCompilingUserProc;
+    if( pCompilingUserProc == NULL )
+    {
+        _ASSERTE( false );
+        throw;
+    }
+    return *pCompilingUserProc;
+}
+
+bool Compiler::IsCompilingClass()
+{
+    return ( pCompilingClass != NULL );
+}
+const CClass &Compiler::GetCompilingClass()
+{
+    if( this->IsCompilingClass() )
+    {
+        return *pCompilingClass;
     }
 
     throw;
 }
-
-bool Compiler::IsCompilingClass()
-{
-    return ( pCompilingClass != NULL );
-}
-const CClass &Compiler::GetCompilingClass()
-{
-    if( this->IsCompilingClass() )
-    {
-        return *pCompilingClass;
-    }
-
-    throw;
-}

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

@@ -915 +915 @@
     importedNamespaces.clear();
 
-    compiler.globalAreaProcName = "_System_GlobalArea_" + compiler.GetModuleName();
+    compiler.globalAreaProcName = "_GlobalArea_" + compiler.GetModuleName();
     sprintf(temporary,"%c%c%s()",1,ESC_SUB,compiler.globalAreaProcName.c_str());
     UserProc *pUserProc = ParseUserProc( namespaceScopes, importedNamespaces, temporary, 0, false, NULL, false );