Commit 9406c93f authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Merge branch 'master' into rspec

parents cc64d243 23b013d8
This diff is collapsed.
# -*- tcl -*-
# Copyright (c) 2000-2009 University of Utah and the Flux Group.
# Copyright (c) 2000-2010 University of Utah and the Flux Group.
# All rights reserved.
......@@ -487,6 +487,8 @@ Node instproc set_fixed {pnode} {
if {$issubnode} {
$pnode set subnodehost 1
$pnode set subnodechild $self
} elseif ($isvirt) {
# Need to check anything?
} else {
perror "\[set-fixed] Improper fix-node $self to $pnode!"
......@@ -38,10 +38,12 @@ Path instproc updatedb {DB} {
$self instvar sim
set idx 0
set layer 0
foreach link $mylinklist {
set fields [list "pathname" "segmentname" "segmentindex"]
set values [list $self $link $idx]
set layer [$link set layer]
set fields [list "pathname" "segmentname" "segmentindex" "layer"]
set values [list $self $link $idx $layer]
$sim spitxml_data "virt_paths" $fields $values
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