Changeset 183 in dev for trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Jun 24, 2007, 6:50:40 PM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp (modified) (20 diffs)

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ +1 @@
+#include <jenga/include/smoothie/Smoothie.h>
+#include <jenga/include/smoothie/LexicalAnalysis.h>
+
 #include <Program.h>
+#include <LexicalScopingImpl.h>
+#include <ClassImpl.h>
 
 #include "../BasicCompiler_Common/common.h"
@@ -51 +56 @@
 
         //クラスに属する静的メンバを定義
-        CMember::InitStaticMember();
+        Smoothie::GetMeta().GetClasses().InitStaticMember();
 
         GetGlobalDataForDll();
@@ -75 +80 @@
         StackFrameSchedule=obp-sizeof(long);
 
-        foreach( Variable *pVar, globalVars ){
+        BOOST_FOREACH( Variable *pVar, globalVars ){
             if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
                 //コンストラクタ呼び出し
@@ -110 +115 @@
         UserProc::CompileStartForGlobalArea();
 
-        obj_LexScopes.CallDestructorsOfScopeEnd();
+        GetLexicalScopes().CallDestructorsOfScopeEnd();
 
         UserProc::CompileStartForUserProc( pBackUserProc );
@@ -210 +215 @@
         && userProc.GetParentClass().GetName() == "_System_TypeBase" ){
 
-            pobj_DBClass->Compile_System_InitializeUserTypes();
+            Smoothie::GetMeta().GetClasses().Compile_System_InitializeUserTypes();
     }
     else if( userProc.GetName() == "RegisterGlobalRoots"
@@ -255 +260 @@
 
     //コンパイル中の関数が属するクラス
-    pobj_CompilingClass=pUserProc->GetParentClassPtr();
+    Smoothie::Temp::pCompilingClass=pUserProc->GetParentClassPtr();
 
     //コンパイルスタートをクラス管理クラスに追加
-    pobj_DBClass->StartCompile( pUserProc );
+    Smoothie::GetMeta().GetClasses().StartCompile( pUserProc );
 
     //コンパイル中の関数
@@ -264 +269 @@
 
     // コンパイル中の関数が属する名前空間
-    Smoothie::Lexical::liveingNamespaceScopes = pUserProc->GetNamespaceScopes();
+    Smoothie::Temp::liveingNamespaceScopes = pUserProc->GetNamespaceScopes();
 
     // コンパイル中の関数でImportsされている名前空間
@@ -342 +347 @@
 
     //レキシカルスコープ情報を初期化
-    obj_LexScopes.Init(obp);
+    GetLexicalScopes().Init(obp);
 
 
@@ -377 +382 @@
 
         //レキシカルスコープ情報
-        pVar->ScopeLevel=obj_LexScopes.GetNowLevel();
-        pVar->ScopeStartAddress=obj_LexScopes.GetStartAddress();
+        pVar->ScopeLevel=GetLexicalScopes().GetNowLevel();
+        pVar->ScopeStartAddress=GetLexicalScopes().GetStartAddress();
         pVar->bLiving=TRUE;
 
@@ -504 +509 @@
     }
 
-    if(pobj_CompilingClass){
-        if( pUserProc->GetName() == pobj_CompilingClass->GetName() ){
+    if(Smoothie::Temp::pCompilingClass){
+        if( pUserProc->GetName() == Smoothie::Temp::pCompilingClass->GetName() ){
             ////////////////////////////////////
             // コンストラクタをコンパイルするとき
@@ -511 +516 @@
 
             //コンストラクタのコンパイル開始を通知
-            pobj_CompilingClass->NotifyStartConstructorCompile();
+            Smoothie::Temp::pCompilingClass->NotifyStartConstructorCompile();
 
             //基底クラスかどうかの識別
             //（継承元がインターフェイスの場合も基底クラスと見なす）
             BOOL bThisIsSuperClass;
-            if(pobj_CompilingClass->pobj_InheritsClass==0) bThisIsSuperClass=1;
-            else if( pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod() == NULL ){
+            if(Smoothie::Temp::pCompilingClass->pobj_InheritsClass==0) bThisIsSuperClass=1;
+            else if( Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod() == NULL ){
                 //インターフェイスを継承したときはコンストラクタを持たない
                 bThisIsSuperClass=1;
@@ -536 +541 @@
                     temporary[i4]=basbuf[i3];
                 }
-                if( pobj_CompilingClass->pobj_InheritsClass->GetName() == temporary ){
+                if( Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetName() == temporary ){
                     //基底クラスのコンストラクタを呼び出す
                     cp=i3;
@@ -553 +558 @@
                     Type dummyType;
                     CallProc( PROC_DEFAULT
-                        , pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc
-                        , pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc->GetName().c_str()
+                        , Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc
+                        , Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc->GetName().c_str()
                         , temporary
                         , dummyType );
@@ -561 +566 @@
                     //基底クラスのコンストラクタを暗黙的に呼び出す
                     Opcode_CallProc("",
-                        pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc,
+                        Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc,
                         0,
                         "",
@@ -569 +574 @@
 
             //仮想関数テーブルを初期化
-            if( pobj_CompilingClass->IsExistVirtualFunctions()
-                && !pobj_CompilingClass->IsAbstract() ){
+            if( Smoothie::Temp::pCompilingClass->IsExistVirtualFunctions()
+                && !Smoothie::Temp::pCompilingClass->IsAbstract() ){
                     //関数テーブルに値をセット
-                    int offset = (int)pobj_CompilingClass->GetVtblGlobalOffset();
+                    int offset = (int)Smoothie::Temp::pCompilingClass->GetVtblGlobalOffset();
 
                     //mov rax,offset
@@ -591 +596 @@
 
             //デストラクタのコンパイル開始を通知
-            pobj_CompilingClass->NotifyStartDestructorCompile();
+            Smoothie::Temp::pCompilingClass->NotifyStartDestructorCompile();
         }
     }
@@ -617 +622 @@
     //////////////////////////////////////////
 
-    if( pobj_CompilingClass ){
-
-        if( pobj_CompilingClass->IsCompilingConstructor() ){
+    if( Smoothie::Temp::pCompilingClass ){
+
+        if( Smoothie::Temp::pCompilingClass->IsCompilingConstructor() ){
             // コンストラクタをコンパイルしていたとき
 
             // コンストラクタのコンパイルが完了したことを通知
-            pobj_CompilingClass->NotifyFinishConstructorCompile();
+            Smoothie::Temp::pCompilingClass->NotifyFinishConstructorCompile();
         }
         else if( pUserProc->IsDestructor() ){
@@ -631 +636 @@
 
             // デストラクタのコンパイルが完了したことを通知
-            pobj_CompilingClass->NotifyFinishDestructorCompile();
-
-            if(pobj_CompilingClass->pobj_InheritsClass){
+            Smoothie::Temp::pCompilingClass->NotifyFinishDestructorCompile();
+
+            if(Smoothie::Temp::pCompilingClass->pobj_InheritsClass){
                 /* サブクラスのデストラクタをコンパイルしているときは、
                     基底クラスのデストラクタを呼び出す */
 
-                const CMethod *method = pobj_CompilingClass->pobj_InheritsClass->GetDestructorMethod();
+                const CMethod *method = Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetDestructorMethod();
                 if( method ){
                     Opcode_CallProc("",
@@ -677 +682 @@
 
     //ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
-    obj_LexScopes.CallDestructorsOfScopeEnd();
+    GetLexicalScopes().CallDestructorsOfScopeEnd();
 
     //プロシージャ抜け出しスケジュール（Exit Sub/Function）
@@ -738 +743 @@
     }
     HeapDefaultFree(pLocalVarAddrSchedule);
-    foreach( Variable *pVar, pUserProc->localVars ){
+    BOOST_FOREACH( Variable *pVar, pUserProc->localVars ){
         //後にデバッグで利用する
         pVar->offset = AllLocalVarSize + pobj_sf->GetFrameSize() - pVar->offset;