Changeset 90 in dev for BasicCompiler64/Compile_Object.cpp

Timestamp:

Apr 7, 2007, 3:02:29 PM (17 years ago)

Author:

dai_9181

Message:

実行時型情報の生成にほぼ対応した。

File:

• BasicCompiler64/Compile_Object.cpp (modified) (1 diff)

BasicCompiler64/Compile_Object.cpp

@@ -48 +48 @@
         pUserProc,
         PROCFLAG_NEW,"",0);
+
+    {
+        // 動的型情報をセットする
+        // obj._System_SetType( _System_TypeBase.Search( strNamespace, name ) )
+        subs.clear();
+        pobj_c->EnumMethod( "_System_SetType", subs );
+        if( subs.size() == 1 ){
+            char temporary[VN_SIZE];
+            sprintf( temporary, "_System_TypeBase.Search(\"\",\"%s\"))", pobj_c->name );
+
+            Opcode_CallProc(temporary,
+                subs[0],
+                PROCFLAG_NEW,"",0);
+        }
+        else{
+            SetError();
+        }
+    }
 
     if(bSomeObjects){