Changeset 34 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Jan 14, 2007, 6:11:23 AM (17 years ago)

Author:

dai_9181

Message:

スコープ処理を統一した。関数の途中でReturnしても、スコープにあるローカルオブジェクトを正確に破棄できるようにした。

File:

• BasicCompiler64/Compile_ProcOp.cpp (modified) (3 diffs)

BasicCompiler64/Compile_ProcOp.cpp

@@ -109 +109 @@
         bCompilingGlobal=1;
 
-        CallDestrouctorsOfScope();
+        obj_LexScopes.CallDestructorsOfScopeEnd();
 
         bCompilingGlobal=bBackCompilingGlobal;
@@ -700 +700 @@
     }
 
-    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
-    for(i3=0;i3<ExitSubScheduleNum;i3++){
-        *((long *)(OpBuffer+pExitSubSchedule[i3]))=obp-(pExitSubSchedule[i3]+sizeof(long));
-    }
-    HeapDefaultFree(pExitSubSchedule);
-
-    if(bDebugCompile&&bDebugSupportProc==0){
-        //call _DebugSys_EndProc
-        extern SUBINFO *pSub_DebugSys_EndProc;
-        op_call(pSub_DebugSys_EndProc);
-    }
-
     //ラベル用のメモリを解放
     for(i3=0;i3<MaxLabelNum;i3++){
@@ -744 +732 @@
 
     //ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
-    CallDestrouctorsOfScope();
+    obj_LexScopes.CallDestructorsOfScopeEnd();
+
+    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
+    for(i3=0;i3<ExitSubScheduleNum;i3++){
+        *((long *)(OpBuffer+pExitSubSchedule[i3]))=obp-(pExitSubSchedule[i3]+sizeof(long));
+    }
+    HeapDefaultFree(pExitSubSchedule);
+
+    if(bDebugCompile&&bDebugSupportProc==0){
+        //call _DebugSys_EndProc
+        extern SUBINFO *pSub_DebugSys_EndProc;
+        op_call(pSub_DebugSys_EndProc);
+    }
 
     if(psi->ReturnType!=-1){