diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2020-03-23 12:01:08 +0000 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2020-03-23 12:01:08 +0000 |
| commit | 5935fd15306c26ead8274cbeab3287770f2ac92a (patch) | |
| tree | 939a443eb948c67e9f727ac7b3891cfc20781890 /gdb/testsuite | |
| parent | 2957d8d05405c53b0d377e578fe1b770af732254 (diff) | |
| download | gdb-5935fd15306c26ead8274cbeab3287770f2ac92a.zip gdb-5935fd15306c26ead8274cbeab3287770f2ac92a.tar.gz gdb-5935fd15306c26ead8274cbeab3287770f2ac92a.tar.bz2 | |
gdb/testsuite: Remove hard coded addresses from expected results
In commit:
commit 6b8c53f2f1c0cf5bee46120d892d4c72571375eb
Date: Sat Feb 8 21:26:31 2020 +0000
gdb/testsuite/fortran: Add mixed language stack test
The test incorrectly included two hard coded addresses in the expected
output, this commit replaces them with the $hex pattern.
gdb/testsuite/ChangeLog:
* gdb.fortran/mixed-lang-stack.exp: Replace two hard coded address
with $hex.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/mixed-lang-stack.exp | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e7613f0..b2a94e8 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-03-23 Andrew Burgess <andrew.burgess@embecosm.com> + + * gdb.fortran/mixed-lang-stack.exp: Replace two hard coded address + with $hex. + 2020-03-20 Tom Tromey <tromey@adacore.com> * gdb.dwarf2/dw2-ranges-base.exp: Update regular expressions. diff --git a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp index df0807e..c0531c3 100644 --- a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp +++ b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp @@ -84,9 +84,9 @@ proc run_tests { lang } { gdb_test "info frame" "source language c\\+\\+\..*" \ "info frame in frame #2" if { $lang == "fortran" } { - set obj_pattern " = \\( base_one = \\( num1 = 1, num2 = 2, num3 = 3 \\), base_two = \\( string = 0x6184e0 'Something in C\\+\\+\\\\000', val = 3.5 \\), xxx = 9, yyy = 10.5 \\)" + set obj_pattern " = \\( base_one = \\( num1 = 1, num2 = 2, num3 = 3 \\), base_two = \\( string = $hex 'Something in C\\+\\+\\\\000', val = 3.5 \\), xxx = 9, yyy = 10.5 \\)" } else { - set obj_pattern " = \\{<base_one> = \\{num1 = 1, num2 = 2, num3 = 3\\}, <base_two> = \\{string = 0x6184e0 \"Something in C\\+\\+\", val = 3.5\\}, xxx = 9, yyy = 10.5\\}" + set obj_pattern " = \\{<base_one> = \\{num1 = 1, num2 = 2, num3 = 3\\}, <base_two> = \\{string = $hex \"Something in C\\+\\+\", val = 3.5\\}, xxx = 9, yyy = 10.5\\}" } gdb_test "print obj" "${obj_pattern}" |