COMMON: fix problem with SEQ command

Author: chrisws

ChangeLog

@@ -1,3 +1,6 @@
+2018-08-08 (0.12.13)
+	COMMON: fix problem with SEQ command
+
 2018-08-08 (0.12.13)
 	ANDROID: remove hardcoded references to "/sdcard" path
 

samples/distro-examples/tests/strings.bas

@@ -171,4 +171,6 @@ end
 cmd_str1("")
 cmd_str1(0)
 
+expect = [0,0.26179938779915,0.5235987755983,0.78539816339745,1.0471975511966,1.30899693899575,1.5707963267949,1.83259571459405,2.0943951023932,2.35619449019234,2.61799387799149,2.87979326579064,3.14159265358979,3.40339204138894,3.66519142918809,3.92699081698724,4.18879020478639,4.45058959258554,4.71238898038469,4.97418836818384,5.23598775598299,5.49778714378214,5.75958653158129,6.02138591938044,6.28318530717958]
+if expect != seq(0, 2*pi, 360/15+1) then throw "SEQ error"
 

src/common/blib_func.c

@@ -2857,18 +2857,17 @@ void cmd_genfunc(long funcCode, var_t *r) {
     //
   case kwSEQ: {
     var_int_t count;
-    var_num_t xmin, xmax, dx;
-
+    var_num_t xmin, xmax;
     par_massget("FFI", &xmin, &xmax, &count);
-
     if (!prog_error) {
       // create the array
       if (count > 1) {
         v_toarray1(r, count);
-        dx = (xmax - xmin) / (count - 1);
+        var_num_t dx = (xmax - xmin) / (count - 1);
+        var_num_t x = xmin;
 
         // add the entries
-        for (int i = 0, x = xmin; i < count; i++, x += dx) {
+        for (int i = 0; i < count; i++, x += dx) {
           var_t *elem_p = v_elem(r, i);
           elem_p->type = V_NUM;
           elem_p->v.n = x;