From fc2572dc832bbffe69b9af8e087f111553caf4e7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 26 Apr 2019 14:17:25 +0100
Subject: [PATCH] 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}
---
 Osstest/TestSupport.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index bb503559..18566d32 100644
--- 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}++;
     }
-- 
2.39.5