Commit 9defdfa0 authored by Kirk Webb's avatar Kirk Webb

Bugfixes for TCL stupidity.

parent 3c06a7c8
......@@ -562,13 +562,14 @@ proc parse_bw {bspec {islink 1}} {
# Special cases
#
# "*" means let assign pick the bandwidth. Make it zero.
if {"$bspec" == "*"} {
return 0
}
#
# "~" means "best effort" bandwidth - not conservatively allocated.
# Used when links may be multiplexed onto hosts, where the hosts
# should not attempt to guarantee bandwidth. Make this case -1.
elseif {"$bspec" == "~"} {
#
if {"$bspec" == "*"} {
return 0
} elseif {"$bspec" == "~"} {
return -1
}
......
......@@ -572,8 +572,7 @@ Simulator instproc run {} {
if {[$child info class Node]} {
set childtype [$child set type]
$node add-desire "hosts-$childtype" 1.0
}
elseif {[$child info class Blockstore]} {
} elseif {[$child info class Blockstore]} {
$node add-desire "sanhost" 1.0
}
}
......
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