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

Timestamp:

May 5, 2008, 12:39:50 AM (17 years ago)

Author:

dai_9181

Message:

・PutWithScheduleメソッドを追加。
・NativeCodeクラスが持つCompilerクラスへの依存度を除去した。

Location:

trunk/ab5.0/abdev/BasicCompiler_Common/src

Files:

• CommonCodeGenerator.cpp (modified) (1 diff)
• NativeCode.cpp (modified) (3 diffs)

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

@@ -10 +10 @@
 
 
+void CodeGenerator::PutWithSchedule( long l, Schedule::Type scheduleType )
+{
+    if( scheduleType == Schedule::CatchAddress )
+    {
+        const UserProc *pCurrentUserProc = compiler.IsGlobalAreaCompiling()
+            ? UserProc::pGlobalProc
+            : &compiler.GetCompilingUserProc();
+
+        this->pNativeCode->PutCatchAddressSchedule( pCurrentUserProc, l );
+    }
+    else
+    {
+        this->pNativeCode->PutEx( l, scheduleType );
+    }
+}
+
 void CodeGenerator::ResolveExitSubSchedule()
 {

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

@@ -57 +57 @@
 void NativeCode::PutEx( long l, Schedule::Type scheduleType )
 {
-    if( scheduleType == Schedule::CatchAddress )
+    if( scheduleType != Schedule::None )
     {
-        const UserProc *pUserProc = &compiler.GetCompilingUserProc();
-        if( compiler.IsGlobalAreaCompiling() )
-        {
-            pUserProc = UserProc::pGlobalProc;
-        }
-        PutCatchAddressSchedule( pUserProc, l );
+        schedules.push_back( Schedule( scheduleType, GetSize() ) );
     }
-    else
-    {
-        if( scheduleType != Schedule::None )
-        {
-            schedules.push_back( Schedule( scheduleType, GetSize() ) );
-        }
 
-        Put( l );
-    }
+    Put( l );
 }
 
@@ -120 +108 @@
 }
 
-void NativeCode::NextSourceLine()
+void NativeCode::NextSourceLine( int currentSourceIndex )
 {
     if( sourceLines.size() )
@@ -146 +134 @@
             (long)sourceLines.size(),
             GetSize(),
-            compiler.GetObjectModule().GetCurrentSourceIndex(),
+            currentSourceIndex,
             cp,
             sourceLineType