Commit 1e72bf93 authored by bernd's avatar bernd

Fixed problem with last-time

parent 73d9f49d
......@@ -9,7 +9,8 @@ UValue test# 0 to test#
: >timing ( -- )
[: ." timing" .test# ;] $tmp w/o create-file throw >r
['] .rec-timing r@ outfile-execute r> close-file throw ;
['] .rec-timing r@ outfile-execute
r> close-file throw ;
: >cache ( addr u -- addr' u' ) [: ." .cache" .test# ." /" type ;] $tmp ;
......
......@@ -1303,7 +1303,7 @@ reply buffer: dummy-reply
stats( timing-stat 0 rot $del ) ;
: .rec-timing ( addr u -- )
ack-context @ >o track-timing $@ \ do some dumps
ack-context @ .track-timing $@ \ do some dumps
bounds ?DO
I ts-delta sf@ f>64 last-time 64+!
last-time 64@ 64>f 1n f* fdup f.
......@@ -1315,7 +1315,8 @@ reply buffer: dummy-reply
I ts-rate sf@ f/ f.
I ts-grow sf@ 1u f* f.
." timing" cr
timestats +LOOP track-timing $off o> ;
timestats +LOOP
ack-context @ .track-timing $off ;
: net2o:rec-timing ( addr u -- ) track-timing $+! ;
......
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