Changeset 75 in dev for BasicCompiler_Common/Const.cpp

Timestamp:

Mar 20, 2007, 4:36:16 AM (17 years ago)

Author:

dai_9181

Message:

TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。

File:

• BasicCompiler_Common/Const.cpp (modified) (1 diff)

BasicCompiler_Common/Const.cpp

@@ -153 +153 @@
 }
 void CDBConst::AddConst(char *Name, char *Expression){
-    LONG_PTR lpIndex;
     _int64 i64data;
-    int Type = StaticCalculation(false, Expression, 0, &i64data, &lpIndex);
-
-    if(Type){
-        //リテラル値の場合
-        //登録を行う
-
-        CConst *newconst = new CConst(Name, Type, i64data);
-
-        AddConst(Name, newconst);
-    }
-    else{
+    Type resultType;
+    if( !StaticCalculation(false, Expression, 0, &i64data, resultType) ){
         //変数の場合
         //何もしない（実行領域コンパイル時にdim宣言として扱う）
-    }
+        return;
+    }
+
+    //リテラル値の場合
+    //登録を行う
+
+    CConst *newconst = new CConst(Name, resultType.GetBasicType(), i64data);
+
+    AddConst(Name, newconst);
 }
 void CDBConst::AddConst(char *Name, int value){