Fixes bug in floating point VAL, we don't use integer stack.

dmsc · dmsc · commit c9eed2bc0bc5 · 2020-02-03T22:56:30.000-03:00
Bug found by "Quiver" at AtariAge, see https://atariage.com/forums/topic/301411-fb-floating-point-arrays/
diff --git a/src/interp/fp_val.asm b/src/interp/fp_val.asm
@@ -28,7 +28,7 @@
 ; --------------------------------
 
         .import         push_fr0, get_str_eol
-        .importzp       IOERROR, next_ins_incsp
+        .importzp       IOERROR, next_instruction
 
         .include "atari.inc"
 
@@ -41,7 +41,7 @@
         bcc     :+
         lda     #18
         sta     IOERROR
-:       jmp     next_ins_incsp
+:       jmp     next_instruction
 .endproc
 
         .include "../deftok.inc"
diff --git a/testsuite/tests/fp-input.bas b/testsuite/tests/fp-input.bas
@@ -0,0 +1,8 @@
+' Test for statement "INPUT"
+? "Start"
+input a%
+? err(), a%
+input ; b%
+? err(), b%
+input a%
+? err()
diff --git a/testsuite/tests/fp-input.chk b/testsuite/tests/fp-input.chk
@@ -0,0 +1,11 @@
+Name: Test statement "INPUT"
+Test: run-fp
+Input:
+1
+2
+.
+Output:
+Start
+?1        1
+1         2
+?18

-Original file line number
+Diff line change
@@ @@ -0,0 +1,11 @@ @@
 +Name: Test statement "INPUT"
 +Test: run-fp
 +Input:
 +1
 +2
 +.
 +Output:
 +Start
 +?1        1
 +1         2
 +?18