Changeset 89 in dev for BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/Compile_ProcOp.cpp (modified) (5 diffs)

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{