Changeset 45 in dev

Timestamp:

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

Author:

dai_9181

Message:

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

Files:

• BasicCompiler32/CParameter.cpp (modified) (2 diffs)
• BasicCompiler32/Compile_CallProc.cpp (modified) (3 diffs)
• BasicCompiler64/CParameter.cpp (modified) (2 diffs)
• BasicCompiler64/Compile_CallProc.cpp (modified) (2 diffs)
• BasicCompiler_Common/common.h (modified) (1 diff)
• BasicCompiler_Common/error.cpp (modified) (5 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;
 

BasicCompiler64/CParameter.cpp

@@ -391 +391 @@
                 StackOffsetOfTempObject[i2] = pobj_sf->push(reg);
 
-                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;
+                }
             }
         }
@@ -415 +425 @@
             //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 );
+            }
 
             //メモリを解放する

BasicCompiler64/Compile_CallProc.cpp

@@ -546 +546 @@
     pobj_parameter->BackupParameter(pdi->ParmNum);
 
+    //一時オブジェクトを生成
+    pobj_parameter->NewTempParameters( pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum );
+
     //レジスタ、スタックフレームにセット
     pobj_parameter->SetParameter(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
@@ -564 +567 @@
     }*/
 
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
     //スタックフレームに存在する既存のパラメータを復元
     pobj_parameter->RestoreParameter(pdi->ParmNum);

BasicCompiler_Common/common.h

@@ -578 +578 @@
 void SetError(int ErrorNum,const char *KeyWord,int pos);
 void CompileMessage(char *buffer);
-void CheckDifferentType(int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum);
+bool CheckDifferentType(int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum);
 
 //Compile.cpp

BasicCompiler_Common/error.cpp

@@ -393 +393 @@
     if(iWarning==1) SetError(-101,temporary,cp);
     else if(iWarning==2) SetError(-102,temporary,cp);
+    else if(iWarning==3) SetError(50,temporary,cp);
 }
 
-void CheckDifferentType(int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum){
+bool CheckDifferentType(int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum){
 
     if(VarType==DEF_OBJECT||CalcType==DEF_OBJECT){
         //オブジェクトインスタンスの場合
         if(!(VarType==CalcType&&lpVarIndex==lpCalcIndex)){
-            DifferentTypeError(VarType,lpVarIndex,CalcType,lpCalcIndex,2,pszFuncName,ParmNum);
-            return;
+            DifferentTypeError(VarType,lpVarIndex,CalcType,lpCalcIndex,3,pszFuncName,ParmNum);
+            return false;
         }
     }
@@ -407 +408 @@
     //#strictが指定されていないときは型チェックを行わないようにする
     extern BOOL bStrict;
-    if(bStrict==0) return;
+    if(bStrict==0) return true;
 
     if(CalcType&FLAG_PTR){
@@ -421 +422 @@
         if(IsPtrType(VarType)&&lpCalcIndex==LITERAL_NULL){
             //リテラルNULL値の場合
-            return;
+            return true;
         }
 
         if(VarType==DEF_PTR_VOID){
             //左辺がVoidPtr型の場合は、ポインタ型すべてを受け入れる
-            if(IsPtrType(CalcType)) return;
+            if(IsPtrType(CalcType)) return true;
         }
 
         if(CalcType==DEF_PTR_VOID){
             //右辺がVoidPtr型の場合は、ポインタ型すべてを受け入れる
-            if(IsPtrType(VarType)) return;
+            if(IsPtrType(VarType)) return true;
         }
 
         if(VarType!=CalcType){
             DifferentTypeError(VarType,lpVarIndex,CalcType,lpCalcIndex,2,pszFuncName,ParmNum);
-            return;
+            return true;
         }
 
@@ -449 +450 @@
                     if(lpVarIndex==(LONG_PTR)pobj_tempClass){
                         //継承先が等しいとき
-                        return;
+                        return true;
                     }
                 }
                 DifferentTypeError(VarType,lpVarIndex,CalcType,lpCalcIndex,2,pszFuncName,ParmNum);
-                return;
+                return true;
             }
         }
@@ -507 +508 @@
         }
     }
+
+    return true;
 }