Changeset 391 in dev

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev

Files:

• BasicCompiler32/Compile_Object.cpp (modified) (2 diffs)
• BasicCompiler64/Compile_Object.cpp (modified) (2 diffs)
• BasicCompiler64/Compile_Statement.cpp (modified) (1 diff)
• BasicCompiler_Common/error.cpp (modified) (1 diff)
• BasicCompiler_Common/src/Exception.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_Object.cpp

@@ -50 +50 @@
     }
 
-    //コンストラクタを呼び出す
-    Opcode_CallProc(CreateParameter,
-        pUserProc,
-        PROCFLAG_NEW,"");
-
     {
         // 動的型情報をセットする
@@ -75 +70 @@
         // TODO: 実装
     }
+
+    //コンストラクタを呼び出す
+    Opcode_CallProc(CreateParameter,
+        pUserProc,
+        PROCFLAG_NEW,"");
 
 

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);
     }

trunk/abdev/BasicCompiler_Common/error.cpp

@@ -170 +170 @@
     if(num==71) lstrcpy(msg,"Finallyの後ろにCatchを記述することはできません。");
     if(num==72) lstrcpy(msg,"Catchのパラメータの型が指定されていません。");
-    if(num==73) lstrcpy(msg,"Catchのパラメータの型はクラス型でなければなりません。");
+    if(num==73) lstrcpy(msg,"\"%s\" Catchのパラメータの型はクラス型でなければなりません。");
+    if(num==74) sprintf(msg,"\"%s\" 型として認識できません。",tempKeyWord);
 
 

trunk/abdev/BasicCompiler_Common/src/Exception.cpp

@@ -277 +277 @@
             if( !compiler.StringToType( typeName, paramType ) )
             {
-                SetError(73,NULL,cp);
+                SetError(74,typeName,cp);
+            }
+            else
+            {
+                if( !paramType.IsObject() )
+                {
+                    SetError(73,typeName,cp);
+                }
             }
         }