arch replumbing: Provide $ho->{Arch} and $gho->{Arch}

With existing flights these are $r{arch} and GUEST_arch.
Nothing uses these yet.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
v2: Correctly set $gho->{Arch} in selectguest, not $ho->{Arch}

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index bb50355919f90f69c8f6273b80083357deceaebb..18566d32fdf9956af54259f355daf8ad867e5968 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -1178,6 +1178,7 @@ sub selecthost ($;$) {
         NestingLevel => 0,
         Info => [],
     };
+    $ho->{Arch} = target_var($ho, 'arch') or warn "unknown arch for $ident";
     if (defined $job) {
        $ho->{Suite} = target_var($ho, "suite") // $c{DebianSuite};
        $ho->{DiVersion} = target_var($ho, "di_version")
@@ -1809,6 +1810,7 @@ sub selectguest ($$) {
        Host => $ho,
        Suite => $r{"${gn}_suite"},
     };
+    $gho->{Arch} = target_var($ho, 'arch') or warn "unknown arch for $gn";
     foreach my $opt (guest_var_commalist($gho,'options')) {
         $gho->{Options}{$opt}++;
     }