[binutils-gdb] [gdb/testsuite] Fix timeout in gdb.ada/ghost.exp

[Tom de Vries]

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

commit 84860e85919f7f09328ae1f84303435ff2e6ee64
Author: Tom de Vries <tdevries@suse.de>
Date:   Fri Jun 10 08:46:17 2022 +0200

    [gdb/testsuite] Fix timeout in gdb.ada/ghost.exp
    
    On openSUSE Tumbleweed with gcc-12, I run into a timeout:
    ...
    (gdb) print value^M
    Multiple matches for value^M
    [0] cancel^M
    [1] ada.strings.maps.value (<ref> ada.strings.maps.character_mapping; \
        character) return character at a-strmap.adb:599^M
    [2] pck.value at src/gdb/testsuite/gdb.ada/ghost/pck.ads:17^M
    [3] system.object_reader.value (<ref> system.object_reader.object_symbol) \
        return system.object_reader.uint64 at s-objrea.adb:2279^M
    [4] system.traceback.symbolic.value (system.address) return string at \
        s-trasym.adb:200^M
    > FAIL: gdb.ada/ghost.exp: print value (timeout)
    print ghost_value^M
    Argument must be choice number^M
    (gdb) FAIL: gdb.ada/ghost.exp: print ghost_value
    ...
    
    Fix this by prefixing value (as well as the other printed values) with the
    package name:
    ...
    (gdb) print pck.value^M
    ...
    
    Tested on x86_64-linux.
    
    Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=29055

Diff:
---
 gdb/testsuite/gdb.ada/ghost.exp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp
index 7f92b130eff..ece03dbe2f8 100644
--- a/gdb/testsuite/gdb.ada/ghost.exp
+++ b/gdb/testsuite/gdb.ada/ghost.exp
@@ -32,6 +32,6 @@ if ![runto "main.adb:$bp_location" ] then {
   return
 }
 
-gdb_test "print value" " = 64 '@'"
-gdb_test "print ghost_value" " = 64 '@'"
-gdb_test "print value2" " = 33 '!'"
+gdb_test "print pck.value" " = 64 '@'"
+gdb_test "print pck.ghost_value" " = 64 '@'"
+gdb_test "print gpck.value2" " = 33 '!'"