Raise BF cycle limits to more reasonable levels.
This commit is contained in:
parent
e7cfc3e170
commit
e675cad49b
2 changed files with 8 additions and 8 deletions
|
@ -6,7 +6,7 @@
|
|||
01 STATE USAGE COMPUTATIONAL.
|
||||
03 IN-PTR 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 LOOP-DEPTH PIC 99 VALUE 0.
|
||||
03 LOOP-WORK PIC 99 VALUE 0.
|
||||
|
@ -54,7 +54,7 @@
|
|||
03 BF-INPUT PIC X(999).
|
||||
03 BF-CODE 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.
|
||||
MOVE 1 TO IN-PTR.
|
||||
|
|
12
WOPO.COB
12
WOPO.COB
|
@ -144,11 +144,11 @@
|
|||
- "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
|
||||
03 BF-OUTPUT PIC X(999)
|
||||
VALUE SPACES.
|
||||
03 CYCLE-LIMIT PIC 9(5)
|
||||
03 CYCLE-LIMIT PIC 9(8)
|
||||
VALUE 0.
|
||||
|
||||
01 BF-STATE.
|
||||
03 MAYBE-CYCLE-LIMIT PIC 9(5)
|
||||
03 MAYBE-CYCLE-LIMIT PIC 9(8)
|
||||
VALUE 0.
|
||||
|
||||
01 INTERPRETER-STATE.
|
||||
|
@ -1087,13 +1087,13 @@
|
|||
MOVE 1 TO PTR(SRC)
|
||||
PERFORM GET-PARAM
|
||||
MOVE R(1) TO CYCLE-LIMIT.
|
||||
IF CYCLE-LIMIT > 999 THEN
|
||||
IF CYCLE-LIMIT > 250000 THEN
|
||||
IF USER-LEVEL < 90 THEN
|
||||
IF USER-LEVEL < 70 THEN
|
||||
MOVE 999 TO CYCLE-LIMIT
|
||||
MOVE 250000 TO CYCLE-LIMIT
|
||||
PERFORM BF-CYCLES-LIMITED
|
||||
ELSE IF CYCLE-LIMIT > 9999 THEN
|
||||
MOVE 9999 TO CYCLE-LIMIT
|
||||
ELSE IF CYCLE-LIMIT > 1900000 THEN
|
||||
MOVE 1900000 TO CYCLE-LIMIT
|
||||
PERFORM BF-CYCLES-LIMITED.
|
||||
|
||||
BF-CYCLES-LIMITED.
|
||||
|
|
Loading…
Reference in a new issue