From 4c817355a01dce1909ea4f860741dc2080251603 Mon Sep 17 00:00:00 2001
From: "Maciej W. Rozycki" <macro@redhat.com>
Date: Mon, 17 Jun 2024 23:28:20 +0100
Subject: GAS/testsuite: Add a helper for paths outside the source dir

Implement a helper to construct a relative path from $srcdir/$subdir,
where `gas_run' operates, to an arbitrary place in the filesystem, for
example a file in the test object directory.
---
 gas/testsuite/lib/gas-defs.exp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 60f2b42..bf08fcb 100644
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -104,6 +104,19 @@ proc gas_host_run { cmd redir } {
     return [list [lindex $status 0] "$to_return"]
 }
 
+# gas_srcdir_path FILENAME
+#
+# Return a path to FILENAME relative to the directory we normally get
+# sources from in the current script.  For use when the actual source
+# is for example in the test output directory.
+
+proc gas_srcdir_path { filename } {
+    global srcdir
+    global subdir
+
+    return [get_relative_path $srcdir/$subdir $filename]
+}
+
 proc gas_run { prog as_opts redir } {
     global AS
     global ASFLAGS
-- 
cgit v1.1