Commit 0b9c2c4d authored by bernd's avatar bernd

Cleanup ack-class related stuff

parent c532163f
......@@ -86,7 +86,7 @@ reply-table $@ inherit-table ack-table
:noname ack ; ack-class to start-req
$20 net2o: ack-addrtime ( utime addr -- ) \ packet at addr received at time
parent @ .net2o:ack-addrtime ;
net2o:ack-addrtime ;
+net2o: ack-resend ( flag -- ) \ set resend toggle flag
64>n parent @ .net2o:ack-resend ;
+net2o: set-rate ( urate udelta-t -- ) \ set rate
......
......@@ -1441,14 +1441,14 @@ timestats buffer: stat-tuple
ELSE o> rdrop 0 0 THEN ;
: net2o:ack-addrtime ( ticks addr -- )
ack@ .>timestamp over IF
>timestamp over IF
dup tick-init 1+ timestamp * u>
IF + dup >r ts-ticks 64@
r@ tick-init 1+ timestamp * - ts-ticks 64@
64dup 64-0<= >r 64over 64-0<= r> or
IF 64drop 64drop ELSE 64- ack@ .lastdeltat 64! THEN r>
IF 64drop 64drop ELSE 64- lastdeltat 64! THEN r>
ELSE + THEN
ts-ticks 64@ ack@ .timestat
ts-ticks 64@ timestat
ELSE 2drop 64drop THEN ;
: net2o:ack-b2btime ( ticks addr -- )
......
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