From 7d7c64775689625d0997b880fc2783d17c6143e8 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Wed, 10 Jul 2013 00:10:37 +0000 Subject: Fix FAIL: gdb.ada/small_reg_param.exp: continue to call_me If enough information is provided by the compiler, the debugger now prints the entry value of various parameters: (gdb) continue Continuing. Breakpoint 2, pck.call_me (w=w@entry=50) at [...] 20 Last_Word := W; This patch adjusts the expected output to allow an optional "w@entry=" in the parameter value. gdb/testsuite/ChangeLog: * gdb.ada/small_reg_param.exp: Accept optional entry value for parameter "w". --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.ada/small_reg_param.exp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gdb/testsuite') diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 4688b38..a55b7e3 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2013-07-09 Joel Brobecker + * gdb.ada/small_reg_param.exp: Accept optional entry value + for parameter "w". + +2013-07-09 Joel Brobecker + * gdb.ada/small_reg_param.exp: Remove trailing space. 2013-07-09 Doug Evans diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp index 4a18a9a..b3cf2d8 100644 --- a/gdb/testsuite/gdb.ada/small_reg_param.exp +++ b/gdb/testsuite/gdb.ada/small_reg_param.exp @@ -33,7 +33,7 @@ gdb_breakpoint "call_me" # Continue until we hit the breakpoint inside `Call_Me'. We verify # that the parameter value is correct. gdb_test "continue" \ - "Breakpoint .*, pck\\.call_me \\(w=50\\) at .*/pck.adb:.*" \ + "Breakpoint .*, pck\\.call_me \\(w=(w@entry=)?50\\) at .*/pck.adb:.*" \ "continue to call_me" # And just to make sure, we also verify that the parameter value -- cgit v1.1