Raise BF cycle limits to more reasonable levels.
This commit is contained in:
parent
e7cfc3e170
commit
e675cad49b
|
@ -6,7 +6,7 @@
|
||||||
01 STATE USAGE COMPUTATIONAL.
|
01 STATE USAGE COMPUTATIONAL.
|
||||||
03 IN-PTR PIC 9(3) VALUE 1.
|
03 IN-PTR PIC 9(3) VALUE 1.
|
||||||
03 IP PIC 9(3) VALUE 1.
|
03 IP PIC 9(3) VALUE 1.
|
||||||
03 CYCLES PIC 9(5) VALUE 0.
|
03 CYCLES PIC 9(8) VALUE 0.
|
||||||
03 OUT-PTR PIC 9(3) VALUE 1.
|
03 OUT-PTR PIC 9(3) VALUE 1.
|
||||||
03 LOOP-DEPTH PIC 99 VALUE 0.
|
03 LOOP-DEPTH PIC 99 VALUE 0.
|
||||||
03 LOOP-WORK PIC 99 VALUE 0.
|
03 LOOP-WORK PIC 99 VALUE 0.
|
||||||
|
@ -54,7 +54,7 @@
|
||||||
03 BF-INPUT PIC X(999).
|
03 BF-INPUT PIC X(999).
|
||||||
03 BF-CODE PIC X(999).
|
03 BF-CODE PIC X(999).
|
||||||
03 BF-OUTPUT PIC X(999).
|
03 BF-OUTPUT PIC X(999).
|
||||||
03 CYCLE-LIMIT PIC 9(5).
|
03 CYCLE-LIMIT PIC 9(8).
|
||||||
|
|
||||||
PROCEDURE DIVISION USING BF-I-O.
|
PROCEDURE DIVISION USING BF-I-O.
|
||||||
MOVE 1 TO IN-PTR.
|
MOVE 1 TO IN-PTR.
|
||||||
|
|
12
WOPO.COB
12
WOPO.COB
|
@ -144,11 +144,11 @@
|
||||||
- "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
|
- "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
|
||||||
03 BF-OUTPUT PIC X(999)
|
03 BF-OUTPUT PIC X(999)
|
||||||
VALUE SPACES.
|
VALUE SPACES.
|
||||||
03 CYCLE-LIMIT PIC 9(5)
|
03 CYCLE-LIMIT PIC 9(8)
|
||||||
VALUE 0.
|
VALUE 0.
|
||||||
|
|
||||||
01 BF-STATE.
|
01 BF-STATE.
|
||||||
03 MAYBE-CYCLE-LIMIT PIC 9(5)
|
03 MAYBE-CYCLE-LIMIT PIC 9(8)
|
||||||
VALUE 0.
|
VALUE 0.
|
||||||
|
|
||||||
01 INTERPRETER-STATE.
|
01 INTERPRETER-STATE.
|
||||||
|
@ -1087,13 +1087,13 @@
|
||||||
MOVE 1 TO PTR(SRC)
|
MOVE 1 TO PTR(SRC)
|
||||||
PERFORM GET-PARAM
|
PERFORM GET-PARAM
|
||||||
MOVE R(1) TO CYCLE-LIMIT.
|
MOVE R(1) TO CYCLE-LIMIT.
|
||||||
IF CYCLE-LIMIT > 999 THEN
|
IF CYCLE-LIMIT > 250000 THEN
|
||||||
IF USER-LEVEL < 90 THEN
|
IF USER-LEVEL < 90 THEN
|
||||||
IF USER-LEVEL < 70 THEN
|
IF USER-LEVEL < 70 THEN
|
||||||
MOVE 999 TO CYCLE-LIMIT
|
MOVE 250000 TO CYCLE-LIMIT
|
||||||
PERFORM BF-CYCLES-LIMITED
|
PERFORM BF-CYCLES-LIMITED
|
||||||
ELSE IF CYCLE-LIMIT > 9999 THEN
|
ELSE IF CYCLE-LIMIT > 1900000 THEN
|
||||||
MOVE 9999 TO CYCLE-LIMIT
|
MOVE 1900000 TO CYCLE-LIMIT
|
||||||
PERFORM BF-CYCLES-LIMITED.
|
PERFORM BF-CYCLES-LIMITED.
|
||||||
|
|
||||||
BF-CYCLES-LIMITED.
|
BF-CYCLES-LIMITED.
|
||||||
|
|
Loading…
Reference in New Issue