diff options
| author | Tom Tromey <tromey@adacore.com> | 2021-03-15 08:20:24 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2021-03-15 08:20:24 -0600 |
| commit | 6813ceb03f889f4ed0dd163866b6eaa42a097838 (patch) | |
| tree | 312d1f2933bda27b6b1d5a1195d567687c3561d3 /gdb/testsuite | |
| parent | 3b5c4de0cf93667ffc98f112db7dcbea92292e32 (diff) | |
| download | gdb-6813ceb03f889f4ed0dd163866b6eaa42a097838.zip gdb-6813ceb03f889f4ed0dd163866b6eaa42a097838.tar.gz gdb-6813ceb03f889f4ed0dd163866b6eaa42a097838.tar.bz2 | |
Fix unary + in Ada
My previous Ada patches introduced a bug that I found after checkin.
I had incorrectly implemented unary +. There was a test for the
overloaded case, but no test for the ordinary case.
This patch adds the tests and fixes the bug.
Tested on x86-64 Fedora 32.
gdb/ChangeLog
2021-03-15 Tom Tromey <tromey@adacore.com>
* ada-exp.y (simple_exp): Always push a result for unary '+'.
gdb/testsuite/ChangeLog
2021-03-15 Tom Tromey <tromey@adacore.com>
* gdb.ada/fixed_points.exp: Add tests of unary + and -.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/fixed_points.exp | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index aa6cacb..6ed26d1 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2021-03-15 Tom Tromey <tromey@adacore.com> + * gdb.ada/fixed_points.exp: Add tests of unary + and -. + +2021-03-15 Tom Tromey <tromey@adacore.com> + * gdb.ada/varsize_limit.exp: Add new test. * gdb.ada/varsize_limit/vsizelim.adb: Update. diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp index 7267c31..69565e7 100644 --- a/gdb/testsuite/gdb.ada/fixed_points.exp +++ b/gdb/testsuite/gdb.ada/fixed_points.exp @@ -76,6 +76,11 @@ foreach_with_prefix scenario {all minimal} { gdb_test "print fp2_var - 0" \ " = -0.01" + gdb_test "print + fp2_var" \ + " = -0.01" + gdb_test "print - fp2_var" \ + " = 0.01" + set fp4 "= 2e-07" gdb_test "print fp4_var" $fp4 gdb_test "print fp4_var * 1" $fp4 |