Changeset 45 in dev for BasicCompiler_Common

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler_Common

Files:

• common.h (modified) (1 diff)
• error.cpp (modified) (5 diffs)

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