Changeset 79 in dev for BasicCompiler_Common/NumOpe_GetType.cpp

Timestamp:

Mar 25, 2007, 5:58:57 AM (17 years ago)

Author:

dai_9181

Message:

バージョンをβ17にした。
#strictをデフォルトの状態で適用するようにした（#90）。
Dimステートメントにおいて、初期値式とAsが同時に指定されていたとき、As以降も初期値式の一部として捉えるよう、変更（#91）。
GetTypeDef関数を完全廃止。

File:

• BasicCompiler_Common/NumOpe_GetType.cpp (modified) (5 diffs)

BasicCompiler_Common/NumOpe_GetType.cpp

@@ -340 +340 @@
     int type_stack[255];
     LONG_PTR index_stack[255];
+    bool isNothing_stack[255];
     _int64 i64data;
     int idCalc;
@@ -347 +348 @@
         if(idCalc){
             if(type_stack[sp-2]==DEF_OBJECT){
-                //オーバーロードされたオペレータを呼び出す
-                if(!GetReturnType_OperatorProc(idCalc,baseType,type_stack,index_stack,sp)){
-                    goto error;
+                if( idCalc == CALC_AS
+                    && type_stack[sp-1] == ( DEF_OBJECT | FLAG_CAST )
+                    && index_stack[sp-1] == index_stack[sp-2]
+                    || isNothing_stack[sp-2] ){
+                        // 同一の型、またはNothingに対するAsはAs演算子を呼び出さない
                 }
-
-                continue;
+                else{
+                    //オーバーロードされたオペレータを呼び出す
+                    if(!GetReturnType_OperatorProc(idCalc,baseType,type_stack,index_stack,sp)){
+                        goto error;
+                    }
+
+                    continue;
+                }
             }
 
@@ -362 +371 @@
             case 0:
                 index_stack[sp]=-1;
+                isNothing_stack[sp] = false;
 
                 char *term;
@@ -490 +500 @@
                     // Nothing
                     if( lstrcmp( term, "Nothing" ) == 0 ){
+                        isNothing_stack[sp] = true;
+
                         type_stack[sp] = DEF_OBJECT;
                         if( baseType.IsObject() ){
@@ -558 +570 @@
                     //////////////
 
-                    LONG_PTR lp;
-                    i3=GetTypeFixed(term,&lp);
-                    if(i3!=-1){
-                        type_stack[sp]=i3|FLAG_CAST;
-                        index_stack[sp]=lp;
+                    Type tempType;
+                    if( Type::StringToType( term, tempType ) ){
+                        type_stack[sp] = tempType.GetBasicType() | FLAG_CAST;
+                        index_stack[sp] = tempType.GetIndex();
                         sp++;
                         break;
                     }
-