Commit 35688822 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix bug in tb-set-link-loss.

parent 5c8b558e
......@@ -242,8 +242,8 @@ proc tb-set-link-loss {srclink args} {
($lossrate > 1.0)} {
perror "\[tb-set-link-loss] $lossrate is not a valid loss rate."
}
$srclink instvar loss
$srclink instvar rloss
$reallink instvar loss
$reallink instvar rloss
set adjloss [expr 1-sqrt(1-$lossrate)]
foreach pair [array names loss] {
set loss($pair) $adjloss
......
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