Changeset 45 in dev for BasicCompiler32

Timestamp:

Feb 2, 2007, 2:58:14 AM (18 years ago)

Author:

dai_9181

Message:

・オーバーロードが解決できない場合のエラーが表示されないバグを修正。
・DLL関数のByRefパラメータに変数以外の数値を指定すると正常にコンパイルされないバグを修正。

Location:

BasicCompiler32

Files:

• CParameter.cpp (modified) (2 diffs)
• Compile_CallProc.cpp (modified) (3 diffs)

BasicCompiler32/CParameter.cpp

@@ -395 +395 @@
                 //↑ここでスタックに積む
 
-                useTempParameters[i2] = true;
-                useTempObject = true;
-
-                types[i2].type = type;
-                types[i2].u.lpIndex = lpVarIndex;
+                bool result = CheckDifferentType(
+                    DummyTypeInfo.type,
+                    DummyTypeInfo.u.lpIndex,
+                    type,
+                    lpVarIndex,
+                    FuncName,
+                    i2);
+
+                if( result ){
+                    useTempParameters[i2] = true;
+                    useTempObject = true;
+
+                    types[i2].type = type;
+                    types[i2].u.lpIndex = lpVarIndex;
+                }
 
                 nCountOfTempObjects++;
@@ -430 +440 @@
             //call destructor
             int i5 = types[i2].u.pobj_Class->DestructorMemberSubIndex;
-            op_call( types[i2].u.pobj_Class->ppobj_Method[i5]->psi );
+            if( i5 != -1 ){
+                op_call( types[i2].u.pobj_Class->ppobj_Method[i5]->psi );
+            }
 
 

BasicCompiler32/Compile_CallProc.cpp

@@ -357 +357 @@
 
     //エラーチェック
-    if( !pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum) ){
+    if( !pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->SecondParmNum) ){
         //パラメータにエラーがあるときは処理を終える
         return;
@@ -524 +524 @@
     }
 
+    //一時オブジェクトを生成
+    pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
+
     //レジスタ、スタックフレームにセット
     int ParmSize;
     ParmSize=pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
-
-    //パラメータオブジェクトを破棄
-    delete pobj_parameter;
 
 
@@ -545 +545 @@
     }
 
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
+    //パラメータオブジェクトを破棄
+    delete pobj_parameter;
+
     if(plpIndex) *plpIndex=pdi->u.ReturnIndex;