Changeset 643 in dev for trunk

Timestamp:

Jun 16, 2008, 12:12:06 AM (16 years ago)

Author:

dai_9181

Message:

[636][637][640][641][642]を64bit版にマージ。

Location:

trunk/ab5.0/abdev/compiler_x64

Files:

• Compile_ProcOp.cpp (modified) (9 diffs)
• Compile_Var.cpp (modified) (1 diff)
• MakePeHdr.cpp (modified) (11 diffs)

trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp

@@ -22 +22 @@
         }
 
-        const UserProc *pBackUserProc;
-        pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
-
         int BackCp;
         BackCp=cp;
@@ -59 +55 @@
         compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );
 
-        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
 
@@ -97 +92 @@
         compiler.codeGenerator.op_ret();
     }
-    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
+    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" )
+    {
         //sub rsp,8（※RSPを16バイト境界にあわせるため）
         compiler.codeGenerator.op_sub_rsp(0x8);
-
-        const UserProc *pBackUserProc;
-        pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
-
         compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
-
-        compiler.SetCompilingUserProc( pBackUserProc );
-
 
         //add rsp,8
@@ -143 +131 @@
         Compile_AddGlobalRootsForGc();
     }
-    else if( userProc.GetName() == compiler.globalAreaProcName ){
+    else if( userProc.GetName() == compiler.globalAreaProcName )
+    {
         ////////////////////////////////////////
         // グローバル領域をコンパイル
@@ -149 +138 @@
 
         UserProc::pGlobalProc = &userProc;
-
-        const UserProc *pBackUserProc = &compiler.GetCompilingUserProc();
-        compiler.StartGlobalAreaCompile();
 
         int BackCp = cp;
@@ -177 +163 @@
         }
 
-        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
     }
@@ -217 +202 @@
     pUserProc->CompleteCompile();
 
-    extern BOOL bSystemProc;
-    if(memcmp(pUserProc->GetName().c_str(),"_System_",8)==0) bSystemProc=1;
-    else bSystemProc=0;
-
     extern BOOL bDebugSupportProc;
     if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0){
@@ -233 +214 @@
     compiler.StartProcedureCompile( pUserProc );
 
-    if(pUserProc->IsSystem()){
+    if(pUserProc->IsAutoGenerationSystem()){
         ////////////////////
         // 特殊関数
@@ -256 +237 @@
     if( !pUserProc->IsAutoGeneration() )
     {
+        // 対象のソースコードを含むオブジェクトモジュールのインデックスを指定する
+        // ※テンプレート展開がされている場合、対象のソースコードが現在のオブジェクトモジュールではない場合がある
+        compiler.SetCurrentRelationalObjectModuleIndexForSource( pUserProc->GetSourceCodePosition().GetRelationalObjectModuleIndex() );
+        basbuf = const_cast<char *>(compiler.GetCurrentSource().GetBuffer());
+
         cp=pUserProc->GetSourceCodePosition().GetPos();
         for(;;cp++){

trunk/ab5.0/abdev/compiler_x64/Compile_Var.cpp

@@ -1341 +1341 @@
 }
 
-bool Compile_AddGlobalRootsForGc(){
+bool Compile_AddGlobalRootsForGc()
+{
     const UserProc *pUserProc_AddGlobalRootPtr = GetClassMethod( "_System_CGarbageCollection", "AddGlobalRootPtr" );
-    if( !pUserProc_AddGlobalRootPtr ){
+    if( !pUserProc_AddGlobalRootPtr )
+    {
         compiler.errorMessenger.Output(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
         return false;

trunk/ab5.0/abdev/compiler_x64/MakePeHdr.cpp

@@ -109 +109 @@
 
     // 静的リンク
+    compiler.PreStaticLink( compiler.staticLibraries );
     compiler.StaticLink( compiler.staticLibraries );
+
+    // 依存関係の解決
+    ActiveBasic::Common::Lexical::ResolveErrors resolveErrors;
+    compiler.GetObjectModule().Resolve( resolveErrors );
+    BOOST_FOREACH( const ResolveError &resolveError, resolveErrors )
+    {
+        compiler.errorMessenger.Output( ErrorInfo( 13, resolveError.GetTargetItemName(), -1 ) );
+    }
 
 
@@ -134 +143 @@
     {
         ActiveBasic::Compiler::LexicalAnalyzer::CollectEnums(
-            compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+            compiler.GetCurrentSource().GetBuffer(),
             compiler.enumInfoCollection
         );
@@ -147 +156 @@
     // 名前空間情報を取得
     ActiveBasic::Compiler::LexicalAnalyzer::CollectNamespaces(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetNamespaces()
     );
@@ -154 +163 @@
     {
         ActiveBasic::Compiler::LexicalAnalyzer::CollectDelegates(
-            compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+            compiler.GetCurrentSource().GetBuffer(),
             compiler.GetObjectModule().meta.GetDelegates()
         );
@@ -170 +179 @@
     //     ※オブジェクトの内容までは取得しない
     ActiveBasic::Compiler::LexicalAnalyzer::CollectClassesForNameOnly(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetClasses()
     );
@@ -176 +185 @@
     //TypeDef情報を収集
     ActiveBasic::Compiler::LexicalAnalyzer::CollectTypeDefs(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetTypeDefs()
     );
@@ -191 +200 @@
     //定数情報を取得
     ActiveBasic::Compiler::LexicalAnalyzer::CollectConsts(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetGlobalConsts(),
         compiler.GetObjectModule().meta.GetGlobalConstMacros()
@@ -199 +208 @@
     compiler.SetCompilingClass( NULL );
     ActiveBasic::Compiler::LexicalAnalyzer::CollectProcedures(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetUserProcs(),
         compiler.GetObjectModule().meta.GetDllProcs()
@@ -206 +215 @@
     // クラス情報を取得（※注 - CollectProceduresの後に呼び出す）
     ActiveBasic::Compiler::LexicalAnalyzer::CollectClasses(
-        compiler.GetObjectModule().GetCurrentSource().GetBuffer(),
+        compiler.GetCurrentSource().GetBuffer(),
         compiler.GetObjectModule().meta.GetClasses()
     );
@@ -245 +254 @@
     if(pSub_System_GetEip=GetSubHash("_System_GetEip",1)){
         pSub_System_GetEip->Using();
-        pSub_System_GetEip->ThisIsSystemProc();
+        pSub_System_GetEip->ThisIsAutoGenerationSystemProc();
     }
 
     if(pSub_System_InitDllGlobalVariables=GetSubHash("_System_InitDllGlobalVariables",1)){
         pSub_System_InitDllGlobalVariables->Using();
-        pSub_System_InitDllGlobalVariables->ThisIsSystemProc();
+        pSub_System_InitDllGlobalVariables->ThisIsAutoGenerationSystemProc();
     }
 
     if(pSub_System_InitStaticLocalVariables=GetSubHash("_System_InitStaticLocalVariables",1)){
         pSub_System_InitStaticLocalVariables->Using();
-        pSub_System_InitStaticLocalVariables->ThisIsSystemProc();
+        pSub_System_InitStaticLocalVariables->ThisIsAutoGenerationSystemProc();
     }
 
     if(pSub_System_Call_Destructor_of_GlobalObject=GetSubHash("_System_Call_Destructor_of_GlobalObject",1)){
         pSub_System_Call_Destructor_of_GlobalObject->Using();
-        pSub_System_Call_Destructor_of_GlobalObject->ThisIsSystemProc();
+        pSub_System_Call_Destructor_of_GlobalObject->ThisIsAutoGenerationSystemProc();
     }
 
@@ -483 +492 @@
     {
         // 静的リンクライブラリ
+
+        // 外部参照をlibから取り除く
+        ActiveBasic::Common::Environment::SetRemoveExternalMark( true );
 
         // 格納先ディレクトリを作る