[binutils-gdb] GAS/testsuite: Add a helper for paths outside the source dir

[Maciej W. Rozycki]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=4c817355a01dce1909ea4f860741dc2080251603

commit 4c817355a01dce1909ea4f860741dc2080251603
Author: Maciej W. Rozycki <macro@redhat.com>
Date:   Mon Jun 17 23:28:20 2024 +0100

    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.

Diff:
---
 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 60f2b420f4e..bf08fcb67d6 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