Changeset 391 in dev for trunk/abdev/BasicCompiler64

Timestamp:

Feb 14, 2008, 2:50:50 AM (18 years ago)

Author:

dai_9181

Message:

・コンストラクタを呼び出す前に動的型情報を用意するようにした。
・Foreachの一時オブジェクトの初期値をNothingにした（64bit）
・Catchステートメントのエラーメッセージを改修した。

Location:

trunk/abdev/BasicCompiler64

Files:

• Compile_Object.cpp (modified) (2 diffs)
• Compile_Statement.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler64/Compile_Object.cpp

@@ -48 +48 @@
     }
 
-    //コンストラクタを呼び出す
-    Opcode_CallProc(CreateParameter,
-        pUserProc,
-        PROCFLAG_NEW,"");
-
     {
         // 動的型情報をセットする
@@ -70 +65 @@
         }
     }
+
+    //コンストラクタを呼び出す
+    Opcode_CallProc(CreateParameter,
+        pUserProc,
+        PROCFLAG_NEW,"");
 
     if(bSomeObjects){

trunk/abdev/BasicCompiler64/Compile_Statement.cpp

@@ -502 +502 @@
 
         // 未定義の場合は自動的に定義する
-        sprintf(temporary,"%s%c%c%s", variable, 1, ESC_AS, collectionType.GetActualGenericType(0).GetClass().GetFullName().c_str() );
+        sprintf(temporary,"%s=Nothing%c%c%s", variable, 1, ESC_AS, collectionType.GetActualGenericType(0).GetClass().GetFullName().c_str() );
         OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
     }