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

Timestamp:

Aug 29, 2007, 9:05:22 AM (17 years ago)

Author:

dai_9181

Message:

静的リンクライブラリにより、複数のグローバル領域が存在することになったのでそれぞれを関数ベースに分けた

File:

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

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ -182 +182 @@
     else bDebugSupportProc=0;
 
-    pUserProc->_beginOpAddressOld = obp;
-
     //コンパイル中の関数が属するクラス
     compiler.pCompilingClass=pUserProc->GetParentClassPtr();
@@ -211 +209 @@
 
         //スタックフレーム管理用オブジェクトを初期化
-        extern CStackFrame *pobj_sf;
-        pobj_sf=new CStackFrame();
+        extern StackFrame *pobj_sf;
+        pobj_sf=new StackFrame();
 
         SystemProc(*pUserProc);
@@ -220 +218 @@
         pobj_sf=0;
 
-        pUserProc->_endOpAddressOld = obp;
         return;
     }
@@ -232 +229 @@
     //プロシージャ抜け出しスケジュール（Exit Sub/Function）
     compiler.codeGenerator.exitSubCodePositions.clear();
-    compiler.codeGenerator._exitSubCodePositions_ObpOld.clear();
 
     //ラベル用のメモリを確保
@@ -260 +256 @@
 
     //レキシカルスコープ情報を初期化
-    compiler.codeGenerator.lexicalScopes.Init(obp);
+    compiler.codeGenerator.lexicalScopes.Init( compiler.codeGenerator.GetNativeCodeSize() );
 
 
@@ -271 +267 @@
         Parameter &param = *pUserProc->RealParams()[i3];
 
-        Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "" );
+        Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "", false );
 
         if( param.IsArray() ){
@@ -307 +303 @@
 
     //スタックフレーム管理用クラスを初期化
-    extern CStackFrame *pobj_sf;
-    pobj_sf=new CStackFrame();
+    extern StackFrame *pobj_sf;
+    pobj_sf=new StackFrame();
 
 
@@ -390 +386 @@
         else{
             if( pUserProc->ReturnType().IsObject() ){
-                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
+                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
             }
             else{
                 //戻り値用の変数の定義
-                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
+                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
             }
 
@@ -477 +473 @@
                         &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc(),
                         0,
-                        "",
-                        0);
+                        "");
                 }
             }
@@ -553 +548 @@
                         &method->GetUserProc(),
                         0,
-                        "",
-                        0);
+                        "");
                 }
             }
@@ -612 +606 @@
         else if(IsWholeNumberType(i3)){
             //整数型
-            SetReg_WholeVariable(i3,&RelativeVar,REG_RAX);
+            SetReg_WholeVariable(Type(i3),&RelativeVar,REG_RAX);
         }
         else SetError(300,NULL,cp);
@@ -666 +660 @@
     delete pobj_sf;
     pobj_sf=0;
-
-
-    pUserProc->_endOpAddressOld = obp;