Changeset 643 in dev for trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp (modified) (9 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++){