Changeset 89 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

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

BasicCompiler32/BasicCompiler.vcproj

@@ -605 +605 @@
                 <File
                     RelativePath="..\BasicCompiler_Common\Overload.cpp"
-                    >
-                    <FileConfiguration
-                        Name="Debug|Win32"
-                        >
-                        <Tool
-                            Name="VCCLCompilerTool"
-                            PreprocessorDefinitions=""
-                        />
-                    </FileConfiguration>
-                    <FileConfiguration
-                        Name="Release|Win32"
-                        >
-                        <Tool
-                            Name="VCCLCompilerTool"
-                            PreprocessorDefinitions=""
-                        />
-                    </FileConfiguration>
-                    <FileConfiguration
-                        Name="English_Rel|Win32"
-                        >
-                        <Tool
-                            Name="VCCLCompilerTool"
-                            PreprocessorDefinitions=""
-                        />
-                    </FileConfiguration>
-                </File>
-                <File
-                    RelativePath="..\BasicCompiler_Common\preprocessor.cpp"
                     >
                     <FileConfiguration

BasicCompiler32/Compile_ProcOp.cpp

@@ -204 +204 @@
         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{
@@ -243 +247 @@
     pUserProc->beginOpAddress=obp;
 
+    //コンパイル中の関数が属するクラス
+    pobj_CompilingClass=pUserProc->GetParentClassPtr();
+
+    //コンパイルスタートをクラス管理クラスに追加
+    pobj_DBClass->StartCompile( pUserProc );
+
+    //コンパイル中の関数
+    UserProc::CompileStartForUserProc( pUserProc );
+
     if(pUserProc->IsSystem()){
+        ////////////////////
+        // 特殊関数
+        ////////////////////
+
         extern int AllLocalVarSize;
         AllLocalVarSize=0;
@@ -313 +330 @@
     AllLocalVarSize+=sizeof(long);
 
-    //コンパイル中の関数が属するクラス
-    pobj_CompilingClass=pUserProc->GetParentClassPtr();
-
-    //コンパイルスタートをクラス管理クラスに追加
-    pobj_DBClass->StartCompile( pUserProc );
-
-    //コンパイル中の関数
-    UserProc::CompileStartForUserProc( pUserProc );
-
 
     ///////////////////////
@@ -358 +366 @@
         }
         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);
@@ -464 +477 @@
                     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{

BasicCompiler32/Compile_Var.cpp

@@ -1219 +1219 @@
     }
 
+    /*
+    TODO: 消す
+    変数は抽象クラスでもOK
     if( type.IsObject() ){
         if( type.GetClass().IsAbstract() ){
@@ -1225 +1228 @@
         }
     }
+    */
 }