Avoid running out of dictionary space in onebench.fs

parent d8ed1cac
Pipeline #1249 passed with stage
in 11 minutes and 23 seconds
......@@ -36,7 +36,7 @@ align create list elements cells allot
: bubble ( -- )
\ ." bubbling..." cr
1 elements 1 do
elements 1 do
list elements i - cells mybounds do
i 2@ > if i 2@ swap i 2! then
cell +loop
......
......@@ -24,6 +24,8 @@
warnings off
marker onebench
: include-main-time ( addr u -- )
cputime d+ 2>r
included s" main" evaluate
......@@ -35,4 +37,5 @@ s" bubble.fs" include-main-time space
s" matrix.fs" include-main-time
s" fib.fs" include-main-time
s" fft-bench.fs" include-main-time
onebench
script? [IF] cr bye [THEN]
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment