Changeset 79 in dev for BasicCompiler_Common/calculation.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/calculation.cpp (modified) (2 diffs)

BasicCompiler_Common/calculation.cpp

@@ -483 +483 @@
                         type[pnum]=DEF_LONG;
 
-                        LONG_PTR lpIndex;
-                        i3=GetTypeFixed(temp2,&lpIndex);
-                        if(i3==-1){
-                            extern int cp;
+                        Type tempType;
+                        if( !Type::StringToType( temp2, tempType ) ){
                             if(enableerror) SetError(3,temp2,cp);
                             return false;
                         }
-                        i64nums[pnum]=GetTypeSize(i3,lpIndex);
+                        i64nums[pnum] = tempType.GetSize();
                         StrPtr[pnum]=0;
                     }
@@ -688 +686 @@
                         //////////////
 
-                        type[pnum]=GetTypeFixed(Parms,&before_index[pnum]);
-
-                        if(type[pnum]==-1){
-                            if(bDebuggingWatchList){
-                                if( pIsMemoryAccessError ) *pIsMemoryAccessError = true;
+                        {
+                            Type tempType;
+                            if( !Type::StringToType( Parms, tempType ) ){
+                                if(bDebuggingWatchList){
+                                    if( pIsMemoryAccessError ) *pIsMemoryAccessError = true;
+                                    return false;
+                                }
+                                //エラー
+                                if(enableerror) SetError(3,Parms,cp);
                                 return false;
                             }
-                            //エラー
-                            if(enableerror) SetError(3,Parms,cp);
-                            return false;
+
+                            type[pnum] = tempType.GetBasicType();
+                            before_index[pnum] = tempType.GetIndex();
                         }
+
 JumpConst:;
                     }