Commit 426457f0 authored by Leigh B. Stoller's avatar Leigh B. Stoller

More bug fixes; make sure we retry if some nodes could not be

allocated.
parent ffd44243
......@@ -3098,7 +3098,7 @@ sub AllocNodes($)
# if the return value of nalloc (number of nodes not allocated) does
# not equal the number of nodes we tried to allocate.
#
return (($tcount == $exitval) ? 1 : 2);
return (($tcount == $exitval) ? -1 : 1);
}
#
......
......@@ -577,9 +577,13 @@ sub RunAssign($$)
"Cancel flag set; aborting assign run!\n");
return -1;
}
if ($vtop->AllocNodes() != 0) {
print("Could not allocate nodes.\n");
return -1;
my $retval = $vtop->AllocNodes();
if ($retval != 0) {
if ($retval < 1) {
print("Could not allocate any nodes.\n");
return -1;
}
return 1;
}
TBDebugTimeStamp("AllocNodes ended, InterpLinks Started");
if ($vtop->InterpLinks() != 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