Changeset 7 in dev for BasicCompiler_Common/calculation.cpp

Timestamp:

Dec 7, 2006, 3:09:44 AM (17 years ago)

Author:

dai_9181

Message:

Constステートメントで定数変数を宣言できるように改良。

File:

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

BasicCompiler_Common/calculation.cpp

@@ -627 +627 @@
                         //定数
                         /////////
-                        double dbl;
                         StrPtr[pnum]=0;
-                        type[pnum]=GetConstValue(Parms,&dbl,temporary,&before_index[pnum]);
-                        if(type[pnum]!=-1){
+                        type[pnum] = CDBConst::obj.GetType(Parms);
+                        if(type[pnum]){
                             if(IsRealNumberType(type[pnum])){
                                 //実数型
-                                nums[pnum]=dbl;
-                            }
-                            else if(Is64Type(type[pnum])){
-                                //64ビット整数
-                                memcpy(&i64nums[pnum],&dbl,sizeof(_int64));
+                                nums[pnum] = CDBConst::obj.GetDoubleData(Parms);
                             }
                             else if(IsWholeNumberType(type[pnum])){
                                 //整数
-                                i64nums[pnum]=(_int64)dbl;
+                                i64nums[pnum] = CDBConst::obj.GetWholeData(Parms);
                             }
-                            else if(type[pnum]==DEF_STRING){
+/*                          else if(type[pnum]==DEF_STRING){
                                 //リテラル文字列
 
@@ -652 +647 @@
                                 memcpy(Parms,temporary,(int)nums[pnum]);
                                 goto StrLiteral;
-                            }
+                            }*/
                             else{
                                 //エラー
@@ -671 +666 @@
                             if(bDebuggingWatchList) return -1;
                             //エラー
-                            if(enableerror) SetError(33,NULL,cp);
+                            if(enableerror) SetError(3,Parms,cp);
                             return 0;
                         }
@@ -1204 +1199 @@
 int IsStrCalculation(char *Command){
     int i,i2,i3,i4,type,PareNum;
-    double dbl;
     char temporary[VN_SIZE],temp2[8192];
 
@@ -1300 +1294 @@
 
                 //定数
-                i3=GetConstValue(Command+i2,&dbl,temporary,0);
+                i3 = CDBConst::obj.GetType(Command+i2);
                 if(i3==DEF_STRING) return 1;    //文字列
-                if(i3!=-1) return 0;            //数値
+                if(i3) return 0;            //数値
 
                 //変数