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

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

[Tom de Vries]

Hi,

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

Committed to trunk.

Thanks,
- Tom

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

---
 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 '!'"