Changeset 206 in dev for trunk/abdev/BasicCompiler64/MakePeHdr.cpp

Timestamp:

Jul 12, 2007, 2:58:26 AM (17 years ago)

Author:

dai_9181

Message:

コード全体のリファクタリングを実施

File:

• trunk/abdev/BasicCompiler64/MakePeHdr.cpp (modified) (14 diffs)

trunk/abdev/BasicCompiler64/MakePeHdr.cpp

@@ +1 @@
+#include "stdafx.h"
+
 #include <jenga/include/common/Environment.h>
 
@@ -4 +6 @@
 
 #include <LexicalScopingImpl.h>
-#include <ClassImpl.h>
+#include <Class.h>
 #include <Compiler.h>
 
+#include <../Enum.h>
+
 #include "../BasicCompiler_Common/common.h"
+#include "../BasicCompiler_Common/DebugSection.h"
 #include "Opcode.h"
 
@@ -16 +21 @@
 
 // グローバル関数、静的メソッド
-UserProc
+const UserProc
     *pSub_System_StartupProgram,
     *pSub_DebugSys_StartProc,
@@ -36 +41 @@
 
 // 動的メソッド
-UserProc
+const UserProc
     *pUserProc_System_CGarbageCollection_RegisterGlobalRoots;
 
@@ -160 +165 @@
 
     //クラス名を取得（詳細情報はGetAllClassInfoで取得）
-    //   GetSubInfo関数の中で参照されるオブジェクト名を事前に取得する。
+    //   CollectUserProcs関数の中で参照されるオブジェクト名を事前に取得する。
     //     ※オブジェクトの内容までは取得しない
     compiler.GetMeta().GetClasses().CollectClassesForNameOnly( Smoothie::Lexical::source );
@@ -171 +176 @@
 
     //サブルーチン（ユーザー定義、DLL関数）の識別子、アドレスを取得
-    Smoothie::Temp::pCompilingClass = NULL;
-    GetSubInfo();
-
-    //クラス情報を取得（※注 - GetSubInfoの後に呼び出す）
+    compiler.pCompilingClass = NULL;
+    UserProcs::CollectUserProcs( Smoothie::Lexical::source, compiler.GetMeta().GetUserProcs() );
+
+    // クラス情報を取得（※注 - CollectUserProcsの後に呼び出す）
     compiler.GetMeta().GetClasses().GetAllClassInfo();
 
-    compiler.GetMeta().AutoWrite( Jenga::Common::Environment::GetAppDir() + "\\meta_test.xml" );
+    // サブルーチン（ユーザー定義、DLL関数）のイテレータの準備
+    compiler.GetMeta().GetUserProcs().Iterator_Init();
+
+    /*
+    if( !compiler.GetMeta().Write( Jenga::Common::Environment::GetAppDir() + "\\meta_test.xml" ) )
+    {
+        MessageBox(0,"XML書き込みに失敗","test",0);
+    }
+    MetaImpl *pTempMeta = new MetaImpl();
+    if( !pTempMeta->Read( Jenga::Common::Environment::GetAppDir() + "\\meta_test.xml" ) )
+    {
+        MessageBox(0,"XML読み込みに失敗","test",0);
+    }
+    compiler.GetMeta() = (*pTempMeta);
+    */
 
     //コードと行番号の関係
@@ -347 +366 @@
         extern CStackFrame *pobj_sf;
         pobj_sf=new CStackFrame();
+
+        trace_for_sourcecodestep( "★★★ グローバル領域のコンパイルを開始" );
 
 
@@ -399 +420 @@
 
         //call _System_Call_Destructor_of_GlobalObject
-        extern UserProc *pSub_System_Call_Destructor_of_GlobalObject;
+        extern const UserProc *pSub_System_Call_Destructor_of_GlobalObject;
         op_call(pSub_System_Call_Destructor_of_GlobalObject);
 
@@ -557 +578 @@
         ExportNamesLength=lstrlen(lpExportNames)+1;
 
-        extern GlobalProc **ppSubHash;
-        GlobalProc *pUserProc,*psi2;
+        UserProc *pUserProc,*psi2;
         while(1){
             //辞書順にサーチ
             temporary[0]=0;
-            for(i=0,psi2=0;i<MAX_HASH;i++){
-                pUserProc=ppSubHash[i];
-                while(pUserProc){
-                    if(pUserProc->IsExport()){
-                        if(temporary[0]=='\0'){
+            compiler.GetMeta().GetUserProcs().Iterator_Reset();
+            while( compiler.GetMeta().GetUserProcs().Iterator_HasNext() )
+            {
+                pUserProc = compiler.GetMeta().GetUserProcs().Iterator_GetNext();
+                if(pUserProc->IsExport()){
+                    if(temporary[0]=='\0'){
+                        lstrcpy(temporary,pUserProc->GetName().c_str());
+                        psi2=pUserProc;
+                    }
+                    else{
+                        i3=lstrlen(temporary);
+                        i4=(int)pUserProc->GetName().size();
+                        if(i3<i4) i3=i4;
+                        if(memcmp(temporary,pUserProc->GetName().c_str(),i3)>0){
                             lstrcpy(temporary,pUserProc->GetName().c_str());
                             psi2=pUserProc;
                         }
-                        else{
-                            i3=lstrlen(temporary);
-                            i4=(int)pUserProc->GetName().size();
-                            if(i3<i4) i3=i4;
-                            if(memcmp(temporary,pUserProc->GetName().c_str(),i3)>0){
-                                lstrcpy(temporary,pUserProc->GetName().c_str());
-                                psi2=pUserProc;
-                            }
-                        }
                     }
-                    pUserProc=pUserProc->pNextData;
                 }
             }
@@ -589 +608 @@
 
             if( pUserProc->GetName() == "DllMain" ){
-                DllMain_EntryPoint=pUserProc->beginOpAddress;
+                DllMain_EntryPoint=pUserProc->GetBeginOpAddress();
             }
 
             lpdwExportAddressTable=(DWORD *)HeapReAlloc(hHeap,0,lpdwExportAddressTable,(ExportNum+1)*sizeof(DWORD));
-            lpdwExportAddressTable[ExportNum]=pUserProc->beginOpAddress;
+            lpdwExportAddressTable[ExportNum]=pUserProc->GetBeginOpAddress();
 
             lpdwExportNamePointerTable=(DWORD *)HeapReAlloc(hHeap,0,lpdwExportNamePointerTable,(ExportNum+1)*sizeof(DWORD));
@@ -800 +819 @@
     //（デバッグ情報で利用される）
     extern int AllInitGlobalVarSize;
-    BOOST_FOREACH( Variable *pVar, globalVars ){
-        if(pVar->offset&0x80000000){
-            pVar->offset=(pVar->offset&0x7FFFFFFF)+AllInitGlobalVarSize;
+    BOOST_FOREACH( Variable *pVar, compiler.GetMeta().GetGlobalVars() ){
+        if(pVar->GetOffsetAddress()&0x80000000){
+            pVar->SetOffsetAddress(
+                (pVar->GetOffsetAddress()&0x7FFFFFFF)+AllInitGlobalVarSize
+            );
         }
     }
@@ -1088 +1109 @@
     // ※x86はRVAからのオフセット。x64はRPI（実行中アドレス）からのオフセット
     for(i=0;i<pobj_ImportAddrSchedule->num;i++){
-        DllProc *pDllProc;
-        pDllProc=pobj_ImportAddrSchedule->ppdi[i];
+        const DllProc *pDllProc = pobj_ImportAddrSchedule->ppdi[i];
         *((long *)(OpBuffer+pobj_ImportAddrSchedule->pObpValues[i]))=
             MemPos_ImportSection+
@@ -1101 +1121 @@
     // プロシージャポインタスケジュール
     for(i=0;i<pobj_SubAddrSchedule->num;i++){
-        if(pobj_SubAddrSchedule->ppsi[i]->beginOpAddress==0
-            &&pobj_SubAddrSchedule->ppsi[i]->endOpAddress==0){
+        if(pobj_SubAddrSchedule->ppsi[i]->GetBeginOpAddress()==0
+            &&pobj_SubAddrSchedule->ppsi[i]->GetEndOpAddress()==0){
             SetError(300,NULL,-1);
         }
@@ -1108 +1128 @@
         if(pobj_SubAddrSchedule->pbCall[i]){
             *((long *)(OpBuffer+pobj_SubAddrSchedule->pObpValues[i]))=
-                pobj_SubAddrSchedule->ppsi[i]->beginOpAddress-(pobj_SubAddrSchedule->pObpValues[i]+sizeof(long));
+                pobj_SubAddrSchedule->ppsi[i]->GetBeginOpAddress()-(pobj_SubAddrSchedule->pObpValues[i]+sizeof(long));
         }
         else{
             *((long *)(OpBuffer+pobj_SubAddrSchedule->pObpValues[i]))=
-                pobj_SubAddrSchedule->ppsi[i]->beginOpAddress+ImageBase+MemPos_CodeSection;
+                pobj_SubAddrSchedule->ppsi[i]->GetBeginOpAddress()+ImageBase+MemPos_CodeSection;
         }
     }