Changeset 89 in dev for BasicCompiler64

Timestamp:

Apr 4, 2007, 2:03:09 AM (17 years ago)

Author:

dai_9181

Message:

実行時型情報の生成に対応。
関数の戻り値の型に抽象クラスを指定できるようにした。

Location:

BasicCompiler64

Files:

• BasicCompiler.vcproj (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (5 diffs)
• Compile_Var.cpp (modified) (2 diffs)
• MakePeHdr.cpp (modified) (1 diff)

BasicCompiler64/BasicCompiler.vcproj

@@ -1321 +1321 @@
                 </File>
                 <File
-                    RelativePath="..\BasicCompiler_Common\preprocessor.cpp"
-                    >
-                </File>
-                <File
                     RelativePath="..\BasicCompiler_Common\RSrcSection.cpp"
                     >

BasicCompiler64/Compile_ProcOp.cpp

@@ -195 +195 @@
         obp+=31;
     }
-    else if( userProc.GetName() == "InitializeUserTypes" ){
+    else if( userProc.GetName() == "InitializeUserTypes"
+        && userProc.HasParentClass()
+        && (string)userProc.GetParentClass().name == "_System_TypeBase" ){
+
+            pobj_DBClass->Compile_System_InitializeUserTypes();
     }
     else{
@@ -233 +237 @@
     pUserProc->beginOpAddress=obp;
 
+    //コンパイル中の関数が属するクラス
+    pobj_CompilingClass=pUserProc->GetParentClassPtr();
+
+    //コンパイルスタートをクラス管理クラスに追加
+    pobj_DBClass->StartCompile( pUserProc );
+
+    //コンパイル中の関数
+    UserProc::CompileStartForUserProc( pUserProc );
+
     if(pUserProc->IsSystem()){
         ////////////////////
@@ -351 +364 @@
     extern int LocalVar_ThisPtrOffset;
     LocalVar_ThisPtrOffset=AllLocalVarSize;
-
-    //コンパイル中の関数が属するクラス
-    pobj_CompilingClass=pUserProc->GetParentClassPtr();
-
-    //コンパイルスタートをクラス管理クラスに追加
-    pobj_DBClass->StartCompile( pUserProc );
-
-    //コンパイル中の関数
-    UserProc::CompileStartForUserProc( pUserProc );
 
     //スタックフレーム管理用クラスを初期化
@@ -446 +450 @@
         }
         else{
-            //戻り値用の変数の定義
-            sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, pUserProc->ReturnType().ToString().c_str() );
+            if( pUserProc->ReturnType().IsObject() ){
+                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, pUserProc->ReturnType().ToString().c_str() );
+            }
+            else{
+                //戻り値用の変数の定義
+                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, pUserProc->ReturnType().ToString().c_str() );
+            }
 
             OpcodeDim(temporary,0);
@@ -520 +529 @@
                     RemoveStringPare(temporary);
 
-                    Opcode_CallProc(temporary,
-                        pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc,
-                        0,
-                        "",
-                        0);
+                    Type dummyType;
+                    CallProc( PROC_DEFAULT
+                        , pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc
+                        , pobj_CompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc->GetName().c_str()
+                        , temporary
+                        , dummyType );
                 }
                 else{

BasicCompiler64/Compile_Var.cpp

@@ -1207 +1207 @@
     }
 
+    /*
+    TODO: 消す
+    変数は抽象クラスでもOK
     if( type.IsObject() ){
         if( type.GetClass().IsAbstract() ){
@@ -1213 +1216 @@
         }
     }
+    */
 }
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar){

BasicCompiler64/MakePeHdr.cpp

@@ -157 +157 @@
     //クラス情報を取得（※注 - GetSubInfoの後に呼び出す）
     pobj_DBClass->GetAllClassInfo();
-
-    // 実行時型情報の確定コード（InitializeUserTypesメソッドの実装コード）を生成
-    pobj_DBClass->GenerateRuntimeTypeInfo();
 
     //コードと行番号の関係