Changeset 90 in dev for BasicCompiler_Common/ParamImpl.cpp

Timestamp:

Apr 7, 2007, 3:02:29 PM (18 years ago)

Author:

dai_9181

Message:

実行時型情報の生成にほぼ対応した。

File:

• BasicCompiler_Common/ParamImpl.cpp (modified) (6 diffs)

BasicCompiler_Common/ParamImpl.cpp

@@ -10 +10 @@
 #define OVERLOAD_MAX_LEVEL 4
 #define OVERLOAD_LEVEL0 0       // 型調整なし。厳密に等しい
-#define OVERLOAD_LEVEL1 1       // 型調整なし。整数型/実数型レベルでの同一性チェック
-#define OVERLOAD_LEVEL2 2       // 型調整あり。厳密に等しい
-#define OVERLOAD_LEVEL3 3       // 型調整あり。整数型/実数型レベルでの同一性チェック
-#define OVERLOAD_LEVEL4 4       // 型調整あり。数値型/クラス型レベルでの同一性チェック
+#define OVERLOAD_LEVEL1 1       // 型調整なし。レベル1以上はオブジェクトの場合は派生関係を考慮
+#define OVERLOAD_LEVEL2 2       // 型調整なし。整数型/実数型レベルでの同一性チェック
+#define OVERLOAD_LEVEL3 3       // 型調整あり。厳密に等しい
+#define OVERLOAD_LEVEL4 4       // 型調整あり。整数型/実数型レベルでの同一性チェック
+#define OVERLOAD_LEVEL5 5       // 型調整あり。数値型/クラス型レベルでの同一性チェック
 
 ParamImpl::ParamImpl(const char *buffer):
@@ -127 +128 @@
 
             NumOpe_GetType(Parms[i],
-                (level==OVERLOAD_LEVEL0 || level == OVERLOAD_LEVEL1)? nullParam : param,
+                ( level <= OVERLOAD_LEVEL2 )? nullParam : param,
                 argType);
         }
@@ -135 +136 @@
 
         if(argType.GetBasicType()!=param.GetBasicType()){
-            if( level == OVERLOAD_LEVEL0 || level==OVERLOAD_LEVEL2 ){
+            if( level == OVERLOAD_LEVEL0 || level == OVERLOAD_LEVEL1 || level==OVERLOAD_LEVEL3 ){
                 return false;
             }
-            else if( level == OVERLOAD_LEVEL1 || level==OVERLOAD_LEVEL3){
+            else if( level == OVERLOAD_LEVEL2 || level==OVERLOAD_LEVEL4){
                 if(!(
                     argType.IsWhole()&&param.IsWhole()||
@@ -146 +147 @@
                 }
             }
-            else if(level==OVERLOAD_LEVEL4){
+            else if(level==OVERLOAD_LEVEL5){
                 if(argType.IsObject()||param.IsObject()) return false;
             }
@@ -158 +159 @@
             }
             else if( NATURAL_TYPE(argType.GetBasicType())==DEF_OBJECT ){
-                if( !param.GetClass().IsEqualsOrSubClass( &argType.GetClass() ) ){
-                    return false;
+                if( level == OVERLOAD_LEVEL0 ){
+                    if( !param.GetClass().IsEquals( &argType.GetClass() ) ){
+                        return false;
+                    }
+                }
+                else{
+                    if( !param.GetClass().IsEqualsOrSubClass( &argType.GetClass() ) ){
+                        return false;
+                    }
                 }
             }
@@ -191 +199 @@
 
                 pUserProc = pTempUserProc;
-                break;
             }
         }