Add support for floating point data statements.

Author: dmsc

manual.md

@@ -1878,6 +1878,14 @@ General Statements
   (abbreviated `W.`). If no type is
   given, a word data is assumed.
 
+  If the name _arr_ ends with a `%`
+  symbol, this defines a floating point
+  array, in this case you can't specify
+  a type. It is important that at least
+  the first element of each line in the
+  data has a decimal point to force
+  storing the data as floating point.
+
   If you end the `DATA` statement with
   a comma, the following line must be
   another `DATA` statement without the

src/compiler/vartype.cc

@@ -117,6 +117,8 @@ void labelType::set_type(std::string str)
         type = 128;
     else if(str == "VT_ARRAY_BYTE")
         type = 129;
+    else if(str == "VT_ARRAY_FLOAT")
+        type = 130;
     else
         throw std::runtime_error("invalid label type " + str);
 }

src/syntax/float.syn

@@ -88,6 +88,7 @@ FP_FUNCS:
 ADR_EXPR:
         emit { TOK_VAR_LOAD, VT_ARRAY_FLOAT  } E_VAR_SEARCH "%"
         emit { TOK_VAR_ADDR, VT_FLOAT } E_VAR_SEARCH "%"
+        emit { TOK_NUM, VT_ARRAY_FLOAT } E_LABEL "%"
 
 INT_FUNCTIONS:
         "Int"    FP_T_EXPR emit TOK_FP_INT
@@ -135,6 +136,16 @@ DIM_VAR_TYPE:<
 DIM_VAR:
         emit { VT_FLOAT  } E_VAR_SEARCH "%" E_PUSH_VAR
 
+DATA_FLOATS: data number
+        "," E_NUMBER_FP DATA_FLOATS
+        pass
+
+DATA_TYPE:
+        emit { VT_ARRAY_FLOAT } DATA_EXT_TYPE EQUAL E_LABEL_SET_TYPE E_NUMBER_FP DATA_FLOATS
+
+DATA_VAR:
+        E_LABEL_CREATE "%()" emit { TOK_JUMP } E_LABEL_DEF DATA_TYPE
+
 # Can create Float variables now
 VAR_CREATE_TYPE:
         "%" emit VT_FLOAT

testsuite/tests/floatadr.bas

@@ -16,6 +16,10 @@ A%(2) = 0.03125
 @SUM &A%, 3
 ? SUM%
 
+DATA B%() = -0.125, 0.0625, 0.03125
+@SUM &B%, 3
+? SUM%
+
 X%=1234.5
 
 @SUM &X%, 1

testsuite/tests/floatadr.chk

@@ -2,4 +2,5 @@ Name: Test for using address of floating point vars
 Test: run-fp
 Output:
 0.21875
+-0.03125
 1234.5