[backend] implement 'genmetaalgo' build flag support

This makes it possible to set the meta algorithm for a project via the project config.
openSUSE · Jun 4, 2018 · 6f20063 · 6f20063
1 parent 918c361
commit 6f20063
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 7 deletions.
diff --git a/src/backend/BSSched/Checker.pm b/src/backend/BSSched/Checker.pm
@@ -230,6 +230,12 @@ sub setup {
     $gctx->{'lastcheck'}->{$prp} = $oldlastcheck;
   }
   $ctx->{'lastcheck'} = $gctx->{'lastcheck'}->{$prp};
+
+  my $genmetaalgo = $bconf->{'buildflags:genmetaalgo'};
+  $genmetaalgo = $gctx->{'genmetaalgo'} unless defined $genmetaalgo;
+  return ('broken', 'unsupported genmetaalgo') if $genmetaalgo < 0 || $genmetaalgo > $gctx->{'maxgenmetaalgo'};
+  BSBuild::setgenmetaalgo($genmetaalgo);
+  BSSolv::setgenmetaalgo($genmetaalgo) if $gctx->{'maxgenmetaalgo'};
   return ('scheduling', undef);
 }
 

diff --git a/src/backend/bs_sched b/src/backend/bs_sched
@@ -467,21 +467,31 @@ my $gctx = {
   'prplastcheck' => {},			# XXX: currently not used
 };
 
-# configure gen_meta algorithm
+# find max gen_meta algorithm
+my $maxgenmetaalgo = 0;
+if (defined(&BSSolv::setgenmetaalgo)) {
+  $maxgenmetaalgo = BSBuild::setgenmetaalgo(-1);
+  my $solvgenmetaalgo = BSSolv::setgenmetaalgo(-1);
+  $maxgenmetaalgo = $solvgenmetaalgo if $solvgenmetaalgo < $maxgenmetaalgo;
+}
+
+# find gen_meta algorithm to use
 if (defined($BSConfig::genmetaalgo)) {
   $genmetaalgo = $BSConfig::genmetaalgo;
 } else {
   $genmetaalgo = BSBuild::setgenmetaalgo($genmetaalgo);
-  my $solvgenmetaalgo = 0;
-  $solvgenmetaalgo = BSSolv::setgenmetaalgo(-1) if defined &BSSolv::setgenmetaalgo;
-  if ($solvgenmetaalgo < $genmetaalgo) {
-    warn("downgraded genmetaalgo from $genmetaalgo to $solvgenmetaalgo because of old perl-BSSolv\n");
-    $genmetaalgo = $solvgenmetaalgo;
+  if ($genmetaalgo > $maxgenmetaalgo) {
+    warn("downgraded genmeta algorithm from $genmetaalgo to $maxgenmetaalgo because of old perl-BSSolv\n");
+    $genmetaalgo = $maxgenmetaalgo;
   }
 }
-BSSolv::setgenmetaalgo($genmetaalgo) if defined &BSSolv::setgenmetaalgo;
+die("perl-BSSolv is too old for meta algo $genmetaalgo\n") if $genmetaalgo && !defined(&BSSolv::setgenmetaalgo);
+
+# configure gen_meta algorithm
 BSBuild::setgenmetaalgo($genmetaalgo);
+BSSolv::setgenmetaalgo($genmetaalgo) if defined(&BSSolv::setgenmetaalgo);
 $gctx->{'genmetaalgo'} = $genmetaalgo;
+$gctx->{'maxgenmetaalgo'} = $maxgenmetaalgo;
 
 # create rpc context
 my $rctx = BSSched::RPC->new(