Commit 115f54ed authored by Christopher Alfeld's avatar Christopher Alfeld

Only try to reserve each node once. Now that we can have two nodes per

virtual node we were getting a double reserve of delay nodes.
parent e3beebd9
......@@ -107,6 +107,7 @@ if (&tbs_exec("postparse $tbcmdfile $irfile")) {
$run = 0;
$done = 0;
&tbs_out("Starting assignment.\n");
%unodes = ();
while ($done == 0) {
$run++;
if ($run > $maxruns) {
......@@ -144,7 +145,13 @@ while ($done == 0) {
}
&tbs_out("Attempting to reserve resources.\n");
if (&tbs_exec("nalloc $pid $eid " . join(" ",@nodes))) {
# make nodes unique
undef %unodes;
foreach (@nodes) {
$unodes{$_} = 1;
}
if (&tbs_exec("nalloc $pid $eid " . join(" ",keys(%unodes)))) {
&tbs_out("Could not reserve resources.\n");
} else {
&tbs_out("Resources successfully reserved.\n");
......
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