From 84860e85919f7f09328ae1f84303435ff2e6ee64 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Fri, 10 Jun 2022 08:46:17 +0200 Subject: [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 ( 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 ( 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 --- gdb/testsuite/gdb.ada/ghost.exp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gdb') diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp index 7f92b13..ece03db 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 '!'" -- cgit v1.1