Changeset 308 in dev for trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

Aug 29, 2007, 9:05:22 AM (17 years ago)

Author:

dai_9181

Message:

静的リンクライブラリにより、複数のグローバル領域が存在することになったのでそれぞれを関数ベースに分けた

File:

• trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp (modified) (4 diffs)

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -226 +226 @@
             Compile_AddGlobalRootsForGc();
     }
+    else if( userProc.GetName() == compiler.globalAreaProcName ){
+        ////////////////////////////////////////
+        // グローバル領域をコンパイル
+        ////////////////////////////////////////
+
+        const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
+        UserProc::CompileStartForGlobalArea();
+
+        int BackCp = cp;
+        cp=-1;
+
+        //クラスに属する静的メンバを定義
+        compiler.GetObjectModule().meta.GetClasses().InitStaticMember();
+
+        //グローバル実行領域をコンパイル開始
+        CompileBuffer(0,0);
+
+        //Goto未知ラベルスケジュールが存在したらエラーにする
+        BOOST_FOREACH( const GotoLabelSchedule *pGotoLabelSchedule, compiler.codeGenerator.gotoLabelSchedules )
+        {
+            if(pGotoLabelSchedule->GetName().size()>0){
+                SetError(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
+            }
+            else{
+                char temporary[255];
+                sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
+                SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
+            }
+        }
+
+        UserProc::CompileStartForUserProc( pBackUserProc );
+        cp=BackCp;
+    }
     else{
         SetError();
@@ -422 +455 @@
     //Continueアドレスを初期化
     compiler.codeGenerator.ClearContinueArea();
+
+    //レキシカルスコープ情報を初期化
+    compiler.codeGenerator.lexicalScopes.Init( compiler.codeGenerator.GetNativeCodeSize() );
 
     const PertialSchedule *pEspOffsetPertialSchedule = NULL;
@@ -768 +804 @@
 }
 void CompileLocal(){
-    if( compiler.IsDll() ){
+    if( compiler.IsDll() )
+    {
         //DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
         const UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
@@ -775 +812 @@
         }
         else SetError(300,NULL,cp);
+    }
+    else
+    {
+        // グローバル領域を一番初めにコンパイルする
+        extern const UserProc *pSub_System_GlobalArea;
+        CompileBufferInProcedure( *pSub_System_GlobalArea );
     }