Commit f7e4f9d2 authored by Anton Ertl's avatar Anton Ertl

more divspeed measurements; minor fix

parent ef84dc54
......@@ -73,19 +73,22 @@ s" :noname [ xt @ >name name>string ] 2literal type ms@" 2constant s1
testA /
testA MOD
testB /MOD
testA U/
testA UMOD
testB U/MOD
testE */
testC */MOD
testC FM/MOD
testC SM/REM
testD UM/MOD ( testC causes overflow for UM/MOD )
testF M*/
9 table tests
12 table tests
: .elapsed ( starttime -- ) ms@ 9 emit swap - 4 .r ." ms" ;
: run-tests
cr ." Speed Tests:"
9 0 DO cr I cells tests + @ execute .elapsed LOOP cr ;
12 0 DO cr I cells tests + @ execute .elapsed LOOP cr ;
run-tests
......@@ -123,7 +123,7 @@ definitions
: next-head ( addr1 -- addr2 ) \ gforth
\G find the next header starting after addr1, up to here (unreliable).
here swap u+do
i xt? -2 and if
i xt? if
i name>string drop cell negate and unloop exit
then
cell +loop
......
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