uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Raise BF cycle limits to more reasonable levels.

This commit is contained in:
Quinn Evans 2017-04-06 21:29:25 -06:00
parent e7cfc3e170
commit e675cad49b
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BF-RUN.COB
View File

@ -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
View File

@ -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.