Commit 7867f9b8 authored by Leigh Stoller's avatar Leigh Stoller

Fix more stupid bugs that were introduced when simplex pipe params

were introduced.
parent 37211963
......@@ -264,6 +264,9 @@ LanLink instproc rename_node {old new} {
$self instvar bandwidth
$self instvar delay
$self instvar loss
$self instvar rbandwidth
$self instvar rdelay
$self instvar rloss
set newnodelist {}
foreach nodeport $nodelist {
set node [lindex $nodeport 0]
......@@ -277,9 +280,15 @@ LanLink instproc rename_node {old new} {
set bandwidth($newnodeport) $bandwidth($nodeport)
set delay($newnodeport) $delay($nodeport)
set loss($newnodeport) $loss($nodeport)
set rbandwidth($newnodeport) $rbandwidth($nodeport)
set rdelay($newnodeport) $rdelay($nodeport)
set rloss($newnodeport) $rloss($nodeport)
unset bandwidth($nodeport)
unset delay($nodeport)
unset loss($nodeport)
unset rbandwidth($nodeport)
unset rdelay($nodeport)
unset rloss($nodeport)
}
set nodelist $newnodelist
}
......
......@@ -247,9 +247,10 @@ proc tb-set-link-loss {srclink args} {
set adjloss [expr 1-sqrt(1-$lossrate)]
foreach pair [array names loss] {
set loss($pair) $adjloss
set rloss(pair) $adjloss
set rloss($pair) $adjloss
}
}
proc tb-set-lan-loss {lan lossrate} {
var_import ::TBCOMPAT::FLOAT
if {[$lan info class] != "Lan"} {
......
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