diff options
author | Simon Marchi <simon.marchi@polymtl.ca> | 2025-08-06 15:28:14 -0400 |
---|---|---|
committer | Simon Marchi <simon.marchi@efficios.com> | 2025-08-27 15:57:29 -0400 |
commit | 4a20896e866290797924bd3c531deae4cc3d53ca (patch) | |
tree | 9759d058de336e92740a3f618883df2996ad9b15 | |
parent | c54f82572d62cce056cdef8e184fb73f22b42aca (diff) | |
download | binutils-4a20896e866290797924bd3c531deae4cc3d53ca.zip binutils-4a20896e866290797924bd3c531deae4cc3d53ca.tar.gz binutils-4a20896e866290797924bd3c531deae4cc3d53ca.tar.bz2 |
gdb/testsuite: namespace procs in lib/selftest-support.exp
Rename some procs in lib/selftest-support.exp that are only used
internally, to make it a bit clearer that they are just internal
helpers.
Change-Id: Icd399ac42698209fbc8e798bf43a7d8464aa848c
Reviewed-By: Keith Seitz <keiths@redhat.com>
-rw-r--r-- | gdb/testsuite/lib/selftest-support.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/testsuite/lib/selftest-support.exp b/gdb/testsuite/lib/selftest-support.exp index 97be023..7de6aea 100644 --- a/gdb/testsuite/lib/selftest-support.exp +++ b/gdb/testsuite/lib/selftest-support.exp @@ -16,7 +16,7 @@ # Find a pathname to a file that we would execute if the shell was asked # to run $arg using the current PATH. -proc find_gdb { arg } { +proc _selftest_find_gdb { arg } { # If the arg directly specifies an existing executable file, then # simply use it. @@ -43,7 +43,7 @@ proc find_gdb { arg } { # Return 0 in case of success, -1 in case of failure, and -2 in case of # skipping the test-case. -proc selftest_setup { executable function } { +proc _selftest_setup { executable function } { global gdb_prompt global INTERNAL_GDBFLAGS @@ -132,7 +132,7 @@ proc selftest_prepare {} { # ... or with a stub-like server? I.e., gdbserver + "target # remote"? In that case we won't be able to pass command line - # arguments to GDB, and selftest_setup wants to do exactly that. + # arguments to GDB, and _selftest_setup wants to do exactly that. if [use_gdb_stub] { return } @@ -140,7 +140,7 @@ proc selftest_prepare {} { # Run the test with self. Copy the file executable file in case # this OS doesn't like to edit its own text space. - set gdb_fullpath [find_gdb $::GDB] + set gdb_fullpath [_selftest_find_gdb $::GDB] if {[is_remote host]} { set xgdb x$::tool @@ -170,7 +170,7 @@ proc do_self_tests {function body} { # time, especially if the build is non-optimized. Bump the timeout for the # duration of the test. with_timeout_factor 10 { - set result [selftest_setup $file $function] + set result [_selftest_setup $file $function] if {$result == 0} { set result [uplevel $body] } |