Changeset 79 in dev for BasicCompiler32/NumOpe.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/NumOpe.cpp (modified) (5 diffs)

BasicCompiler32/NumOpe.cpp

@@ -151 +151 @@
     int sp;
     int type_stack[255];
+    bool isNothing_stack[255];
     LONG_PTR index_stack[255];
     BOOL bUseHeap[255];
@@ -160 +161 @@
         if(idCalc){
             if(type_stack[sp-2]==DEF_OBJECT){
-                //オーバーロードされたオペレータを呼び出す
-                i2=CallOperatorProc(idCalc,baseType,type_stack,index_stack,bUseHeap,sp);
-                if(i2==0){
-                    if(idCalc==CALC_EQUAL) lstrcpy(temp2,"==");
-                    else GetCalcName(idCalc,temp2);
-                    sprintf(temporary,"Operator %s",temp2);
-                    SetError(27,temporary,cp);
-                    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演算子を呼び出さない
                 }
-                else if(i2==-1) goto error;
-
-                continue;
+                else{
+                    //オーバーロードされたオペレータを呼び出す
+                    i2=CallOperatorProc(idCalc,baseType,type_stack,index_stack,bUseHeap,sp);
+                    if(i2==0){
+                        if(idCalc==CALC_EQUAL) lstrcpy(temp2,"==");
+                        else GetCalcName(idCalc,temp2);
+                        sprintf(temporary,"Operator %s",temp2);
+                        SetError(27,temporary,cp);
+                        goto error;
+                    }
+                    else if(i2==-1) goto error;
+
+                    continue;
+                }
             }
 
@@ -181 +190 @@
             case 0:
                 index_stack[sp]=-1;
+                isNothing_stack[sp] = false;
                 bUseHeap[sp]=0;
 
@@ -363 +373 @@
                     // Nothing
                     if( lstrcmp( term, "Nothing" ) == 0 ){
+                        isNothing_stack[sp] = true;
+
                         type_stack[sp] = DEF_OBJECT;
                         if( baseType.IsObject() ){
@@ -489 +501 @@
                     // 型名の場合
                     //////////////
-
-                    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;
                     }
-