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

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

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

@@ -24 +24 @@
         }
 
-        const UserProc *pBackUserProc;
-        pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
-
         int BackCp;
         BackCp=cp;
@@ -52 +48 @@
         GetGlobalDataForDll();
 
-        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
 
@@ -81 +76 @@
         compiler.codeGenerator.op_ret();
     }
-    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
-
-        const UserProc *pBackUserProc;
-        pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
-
+    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" )
+    {
         compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
 
         compiler.SetCompilingUserProc( pBackUserProc );
-
 
         //ret
@@ -213 +203 @@
     else if( userProc.GetName() == "RegisterGlobalRoots"
         && userProc.HasParentClass()
-        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){
-
-            Compile_AddGlobalRootsForGc();
-    }
-    else if( userProc.GetName() == compiler.globalAreaProcName ){
+        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" )
+    {
+        Compile_AddGlobalRootsForGc();
+    }
+    else if( userProc.GetName() == compiler.globalAreaProcName )
+    {
         ////////////////////////////////////////
         // グローバル領域をコンパイル
@@ -223 +214 @@
 
         UserProc::pGlobalProc = &userProc;
-
-        const UserProc *pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
 
         int BackCp = cp;
@@ -251 +239 @@
         }
 
-        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
     }
@@ -293 +280 @@
     pUserProc->CompleteCompile();
 
-    extern BOOL bSystemProc;
-    if(memcmp(pUserProc->GetName().c_str(),"_System_",8)==0) bSystemProc=1;
-    else bSystemProc=0;
-
     extern BOOL bDebugSupportProc;
     if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0)
@@ -316 +299 @@
     compiler.StartProcedureCompile( pUserProc );
 
-    if(pUserProc->IsSystem()){
+    if(pUserProc->IsAutoGenerationSystem()){
         ////////////////////
         // 特殊関数