Fix bounds checking on UNREAD-INSTRUCTION.

2015-09-30 13:22:32 -06:00 · 2015-09-30 13:22:32 -06:00 · ad88c521c1
parent 0316aaefe0
commit ad88c521c1
1 changed files with 1 additions and 1 deletions
--- a/BF-RUN.COB
+++ b/BF-RUN.COB
@ -192,7 +192,7 @@
                       ADD 1 TO LOOP-WORK.

       UNREAD-INSTRUCTION.
-           IF IP IS GREATER THAN 1 THEN
+           IF IP IS GREATER THAN 3 THEN
               SUBTRACT 2 FROM IP
               UNSTRING BF-CODE INTO CURRENT-INSTRUCTION WITH POINTER IP
           ELSE