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

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