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

Timestamp:

May 10, 2008, 12:19:15 PM (15 years ago)

Author:

dai_9181

Message:

[530]～[583]を64bit版にマージ。

File:

• trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp (modified) (21 diffs)

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

@@ -27 +27 @@
         }
 
-        const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
-        UserProc::CompileStartForGlobalArea();
+        const UserProc *pBackUserProc;
+        pBackUserProc = &compiler.GetCompilingUserProc();
+        compiler.StartGlobalAreaCompile();
 
         int BackCp;
@@ -51 +52 @@
 
         //クラスに属する静的メンバを定義
-        compiler.GetObjectModule().meta.GetClasses().InitStaticMember();
+        ActiveBasic::Compiler::ProcedureGenerator::Generate_InitStaticMember(
+            compiler.GetObjectModule().meta.GetClasses()
+        );
 
         GetGlobalDataForDll();
@@ -61 +64 @@
         compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );
 
-        UserProc::CompileStartForUserProc( pBackUserProc );
+        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
 
@@ -103 +106 @@
         compiler.codeGenerator.op_sub_rsp(0x8);
 
-
-        const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
-        UserProc::CompileStartForGlobalArea();
+        const UserProc *pBackUserProc;
+        pBackUserProc = &compiler.GetCompilingUserProc();
+        compiler.StartGlobalAreaCompile();
 
         compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
 
-        UserProc::CompileStartForUserProc( pBackUserProc );
+        compiler.SetCompilingUserProc( pBackUserProc );
 
 
@@ -127 +130 @@
         && userProc.GetParentClass().GetName() == "_System_TypeBase" )
     {
-        compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
+        ActiveBasic::Compiler::ProcedureGenerator::Generate_System_InitializeUserTypes(
+            compiler.GetObjectModule().meta.GetClasses()
+        );
     }
     else if( userProc.GetName() == "InitializeUserTypesForBaseType"
@@ -133 +138 @@
         && userProc.GetParentClass().GetName() == "_System_TypeBase" )
     {
-        compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypesForBaseType();
+        ActiveBasic::Compiler::ProcedureGenerator::Generate_System_InitializeUserTypesForBaseType(
+            compiler.GetObjectModule().meta.GetClasses()
+        );
     }
     else if( userProc.GetName() == "RegisterGlobalRoots"
@@ -148 +155 @@
         UserProc::pGlobalProc = &userProc;
 
-        const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
-        UserProc::CompileStartForGlobalArea();
+        const UserProc *pBackUserProc = &compiler.GetCompilingUserProc();
+        compiler.StartGlobalAreaCompile();
 
         int BackCp = cp;
@@ -155 +162 @@
 
         //クラスに属する静的メンバを定義
-        compiler.GetObjectModule().meta.GetClasses().InitStaticMember();
+        ActiveBasic::Compiler::ProcedureGenerator::Generate_InitStaticMember(
+            compiler.GetObjectModule().meta.GetClasses()
+        );
 
         //グローバル実行領域をコンパイル開始
@@ -173 +182 @@
         }
 
-        UserProc::CompileStartForUserProc( pBackUserProc );
+        compiler.SetCompilingUserProc( pBackUserProc );
         cp=BackCp;
     }
@@ -227 +236 @@
     else bDebugSupportProc=0;
 
-    //コンパイル中の関数が属するクラス
-    compiler.pCompilingClass=pUserProc->GetParentClassPtr();
-
-    //コンパイルスタートをクラス管理クラスに追加
-    compiler.GetObjectModule().meta.GetClasses().StartCompile( pUserProc );
-
-    //コンパイル中の関数
-    UserProc::CompileStartForUserProc( pUserProc );
-
-    // コンパイル中の関数が属する名前空間
-    compiler.GetNamespaceSupporter().SetLivingNamespaceScopes( pUserProc->GetNamespaceScopes() );
-
-    // コンパイル中の関数でImportsされている名前空間
-    compiler.GetNamespaceSupporter().SetImportedNamespaces( pUserProc->GetImportedNamespaces() );
-
-    // コード生成対象を選択
-    compiler.codeGenerator.Select( (const_cast<UserProc *>(pUserProc))->GetNativeCode() );
+    compiler.StartProcedureCompile( pUserProc );
 
     if(pUserProc->IsSystem()){
@@ -290 +283 @@
     WithInfo.num=0;
 
-    //重複エラー情報管理のメモリを確保
-    extern char **SynonymErrorWords;
-    extern int SynonymErrorNum;
-    SynonymErrorNum=0;
-    SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);
-
     //Continueアドレスを初期化
     compiler.codeGenerator.ClearContinueArea();
@@ -315 +302 @@
         Parameter &param = *pUserProc->RealParams()[i3];
 
-        Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "", false );
+        Variable *pVar = new Variable(
+            ActiveBasic::Compiler::LexicalAnalyzer::FullNameToSymbol( param.GetVarName().c_str() ),
+            param,
+            false,
+            param.IsRef(),
+            "",
+            false
+        );
 
         if( param.IsArray() ){
@@ -463 +457 @@
     }
 
-    if(compiler.pCompilingClass){
-        if( pUserProc->GetName() == compiler.pCompilingClass->GetName() ){
+    if( compiler.IsCompilingClass() ){
+        if( pUserProc->GetName() == compiler.GetCompilingClass().GetName() ){
             ////////////////////////////////////
             // コンストラクタをコンパイルするとき
@@ -470 +464 @@
 
             //コンストラクタのコンパイル開始を通知
-            compiler.pCompilingClass->NotifyStartConstructorCompile();
+            compiler.GetCompilingClass().NotifyStartConstructorCompile();
 
             //基底クラスかどうかの識別
             //（継承元がインターフェイスの場合も基底クラスと見なす）
             BOOL bThisIsSuperClass;
-            if( !compiler.pCompilingClass->HasSuperClass() ) bThisIsSuperClass=1;
-            else if( compiler.pCompilingClass->GetSuperClass().GetConstructorMethod() == NULL ){
+            if( !compiler.GetCompilingClass().HasSuperClass() ) bThisIsSuperClass=1;
+            else if( compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod() == NULL ){
                 //インターフェイスを継承したときはコンストラクタを持たない
                 bThisIsSuperClass=1;
@@ -495 +489 @@
                     temporary[i4]=basbuf[i3];
                 }
-                if( compiler.pCompilingClass->GetSuperClass().GetName() == temporary ){
+                if( compiler.GetCompilingClass().GetSuperClass().GetName() == temporary ){
                     //基底クラスのコンストラクタを呼び出す
                     cp=i3;
@@ -512 +506 @@
                     Type dummyType;
                     CallProc( PROC_DEFAULT
-                        , &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc()
-                        , compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
+                        , &compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc()
+                        , compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
                         , temporary
                         , Type()        // baseTypeはなし
@@ -522 +516 @@
                     //基底クラスのコンストラクタを暗黙的に呼び出す
                     Opcode_CallProc("",
-                        &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc(),
+                        &compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc(),
                         0,
                         "");
@@ -532 +526 @@
 
             //デストラクタのコンパイル開始を通知
-            compiler.pCompilingClass->NotifyStartDestructorCompile();
+            compiler.GetCompilingClass().NotifyStartDestructorCompile();
         }
     }
@@ -558 +552 @@
     //////////////////////////////////////////
 
-    if( compiler.pCompilingClass ){
-
-        if( compiler.pCompilingClass->IsCompilingConstructor() ){
+    if( compiler.IsCompilingClass() ){
+
+        if( compiler.GetCompilingClass().IsCompilingConstructor() ){
             // コンストラクタをコンパイルしていたとき
 
             // コンストラクタのコンパイルが完了したことを通知
-            compiler.pCompilingClass->NotifyFinishConstructorCompile();
+            compiler.GetCompilingClass().NotifyFinishConstructorCompile();
         }
         else if( pUserProc->IsDestructor() ){
@@ -572 +566 @@
 
             // デストラクタのコンパイルが完了したことを通知
-            compiler.pCompilingClass->NotifyFinishDestructorCompile();
-
-            if( compiler.pCompilingClass->HasSuperClass() ){
+            compiler.GetCompilingClass().NotifyFinishDestructorCompile();
+
+            if( compiler.GetCompilingClass().HasSuperClass() ){
                 /* サブクラスのデストラクタをコンパイルしているときは、
                     基底クラスのデストラクタを呼び出す */
 
-                const CMethod *method = compiler.pCompilingClass->GetSuperClass().GetDestructorMethod();
+                const CMethod *method = compiler.GetCompilingClass().GetSuperClass().GetDestructorMethod();
                 if( method ){
                     Opcode_CallProc("",
@@ -705 +699 @@
 
 
-    //重複エラー情報管理のメモリを解放
-    for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
-    HeapDefaultFree(SynonymErrorWords);
+    compiler.FinishProcedureCompile();
+
+
+    //ローカル変数のネーム情報は後に解放する
 }