Changeset 308 in dev for trunk/abdev/BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev/BasicCompiler32

Files:

• Compile_Calc_PushVar.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (4 diffs)
• MakePeHdr.cpp (modified) (7 diffs)
• NumOpe_Logical.cpp (modified) (1 diff)
• Opcode.h (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_Calc_PushVar.cpp

@@ -59 +59 @@
     }
 }
-void SetReg_WholeVariable( Type &type, RELATIVE_VAR *pRelativeVar,int reg, bool is64Head)
+void SetReg_WholeVariable( const Type &type, RELATIVE_VAR *pRelativeVar,int reg, bool is64Head)
 {
     int varSize;

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 );
     }
 

trunk/abdev/BasicCompiler32/MakePeHdr.cpp

@@ -7 +7 @@
 #include <jenga/include/smoothie/Smoothie.h>
 
-#include <LexicalScope.h>
 #include <Class.h>
 #include <Compiler.h>
-#include <NamespaceSupporter.h>
 
 #include <../Enum.h>
@@ -18 +16 @@
 #include "Opcode.h"
 
-extern int GlobalOpBufferSize;
-
 
 ////////////////////////////
@@ -28 +24 @@
 const UserProc
     *pSub_System_StartupProgram,
+    *pSub_System_GlobalArea,
     *pSub_DebugSys_StartProc,
     *pSub_DebugSys_EndProc,
@@ -106 +103 @@
 
 
-void DebugVariable(void){
-    char temporary[255];
-    if( compiler.GetObjectModule().meta.GetGlobalVars().Find( Symbol( "_DebugSys_dwThreadID" ) ) == NULL )
-    {
-        // 未定義の場合は定義する
-        sprintf(temporary,"_DebugSys_dwThreadID[255]%c%cDWord",1,ESC_AS);
-        OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
-        sprintf(temporary,"_DebugSys_ProcNum[255]%c%cDWord",1,ESC_AS);
-        OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
-        sprintf(temporary,"_DebugSys_lplpObp[255]%c%c*ULONG_PTR",1,ESC_AS);
-        OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
-        sprintf(temporary,"_DebugSys_lplpSpBase[255]%c%c*ULONG_PTR",1,ESC_AS);
-        OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
-    }
-}
-
 void Compile(void){
     extern HWND hMainDlg;
@@ -220 +201 @@
         pSub_System_StartupProgram->Using();
 
+    if(pSub_System_GlobalArea=GetSubHash(compiler.globalAreaProcName.c_str(),1))
+    {
+        pSub_System_GlobalArea->Using();
+        pSub_System_GlobalArea->ThisIsAutoGenerationProc();
+    }
+
     if(pSub_DebugSys_StartProc=GetSubHash("_DebugSys_StartProc",1))
         pSub_DebugSys_StartProc->Using();
@@ -392 +379 @@
             if(bDebugCompile)
             {
-                //デバッグ用の変数を定義
+                // デバッグ用の変数を定義
                 DebugVariable();
             }
 
-            //GC用の変数を定義
+            // GC用の変数を定義
             InitGCVariables();
 
-            //_System_StartupProgramの呼び出し
+            // _System_StartupProgram の呼び出し
             compiler.codeGenerator.op_call(pSub_System_StartupProgram);
         }
 
-        //クラスに属する静的メンバを定義
-        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{
-                sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
-                SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
-            }
-        }
-
+        // _System_GlobalArea の呼び出し
+        compiler.codeGenerator.op_call( pSub_System_GlobalArea );
 
         if( !compiler.IsStaticLibrary() )
@@ -444 +415 @@
 
         //グローバル実行領域のコードサイズ
+        extern int GlobalOpBufferSize;
         GlobalOpBufferSize = compiler.linker.GetNativeCode().GetSize();
 

trunk/abdev/BasicCompiler32/NumOpe_Logical.cpp

@@ -450 +450 @@
 
         //cmp eax,0
-        compiler.codeGenerator.op_cmp_value(Type(type[sp-1],-1).GetSize(),REG_EAX,0);
+        compiler.codeGenerator.op_cmp_value(Type(type[sp-1]).GetSize(),REG_EAX,0);
 
         //setne al

trunk/abdev/BasicCompiler32/Opcode.h

@@ -147 +147 @@
 //Compile_Calc_PushVar.cpp
 void SetReg_RealVariable(int type,RELATIVE_VAR *pRelativeVar);
-void SetReg_WholeVariable( Type &type, RELATIVE_VAR *pRelativeVar,int reg, bool is64Head = false);
+void SetReg_WholeVariable( const Type &type, RELATIVE_VAR *pRelativeVar,int reg, bool is64Head = false);
 void PushLongVariable(RELATIVE_VAR *pRelativeVar);