Relax expected output in gdb.ada/access_tagged_param.exp test
One of the tests in gdb.ada/access_tagged_param.exp verifies the value of the parameters being printed by GDB when stopping at a breakpoint inside procedure Pck.Inspect. In particular, one of these parameters is actually generated internally by the compiler, and does only indirectly depend on the user-level code. A recent change in AdaCore's compiler caused the code expansion to change a little bit, and as a result, the value of that parameter has changed from 2 to 3. This can be evindenced by looking at the code post expansion, using the -gnatDG command-line switch to generate the .dg files: $ gnatmake -g -gnatDG foo.adb $ vi foo.adb.dg We can see that the call to pck.inspect used to be: pck__inspect (P8b, objL => 2); With a recent version of GNAT Pro, it is now: pck__inspect (P9b, objL => 3); This change causes a spurious FAIL when running this testcase. The objL parameter being, at heart, a simple counter of the nesting level, this commit relaxes the expected output to accept any single- digit number. We could accept any decimal, but given the example program, I dout that number will reach double-digit level. If it does, we'll double-check that this is normal, and relax the expected output further. gdb/testsuite/ChangeLog: * gdb.ada/access_tagged_param.exp: Relax expected output for value of "ObjL" in "continue" to pck.inspect breakpoint test. Tested on x86_64-linux.
This commit is contained in:
parent
102e9361c8
commit
30066b0b00
|
@ -1,3 +1,9 @@
|
|||
2018-01-08 Joel Brobecker <brobecker@adacore.com>
|
||||
|
||||
* gdb.ada/access_tagged_param.exp: Relax expected output
|
||||
for value of "ObjL" in "continue" to pck.inspect breakpoint
|
||||
test.
|
||||
|
||||
2018-01-08 Joel Brobecker <brobecker@adacore.com>
|
||||
|
||||
* gdb.ada/arr_enum_idx_w_gap.exp
|
||||
|
|
|
@ -37,4 +37,4 @@ gdb_breakpoint "pck.inspect"
|
|||
# the value of all the parameters.
|
||||
|
||||
gdb_test "continue" \
|
||||
".*Breakpoint $decimal, pck\\.inspect \\(obj=$hex, <objL>=2\\) at .*"
|
||||
".*Breakpoint $decimal, pck\\.inspect \\(obj=$hex, <objL>=\[1-9\]\\) at .*"
|
||||
|
|
Loading…
Reference in New Issue