Fix bounds checking on UNREAD-INSTRUCTION.
This commit is contained in:
parent
0316aaefe0
commit
ad88c521c1
1 changed files with 1 additions and 1 deletions
|
@ -192,7 +192,7 @@
|
||||||
ADD 1 TO LOOP-WORK.
|
ADD 1 TO LOOP-WORK.
|
||||||
|
|
||||||
UNREAD-INSTRUCTION.
|
UNREAD-INSTRUCTION.
|
||||||
IF IP IS GREATER THAN 1 THEN
|
IF IP IS GREATER THAN 3 THEN
|
||||||
SUBTRACT 2 FROM IP
|
SUBTRACT 2 FROM IP
|
||||||
UNSTRING BF-CODE INTO CURRENT-INSTRUCTION WITH POINTER IP
|
UNSTRING BF-CODE INTO CURRENT-INSTRUCTION WITH POINTER IP
|
||||||
ELSE
|
ELSE
|
||||||
|
|
Loading…
Reference in a new issue