diff options
| author | Tom Tromey <tromey@adacore.com> | 2023-01-04 09:36:59 -0700 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2023-02-27 08:09:02 -0700 |
| commit | 935d48567d9e12e1321d97d3867d42d59eda1daa (patch) | |
| tree | 4da5037321be9c8ded1e679dd89656e76593eb7d /gdb/testsuite/gdb.ada/ax-ada/prog.adb | |
| parent | 013a623f4cb70060556cf302f4ae54d5f96e66e1 (diff) | |
| download | binutils-935d48567d9e12e1321d97d3867d42d59eda1daa.zip binutils-935d48567d9e12e1321d97d3867d42d59eda1daa.tar.gz binutils-935d48567d9e12e1321d97d3867d42d59eda1daa.tar.bz2 | |
Handle range types in ax-gdb.c
A range type can usually be treated the same as its underlying integer
type, at least for the purposes of agent expressions. This patch
arranges for range types to be handled this way in ax-gdb.c, letting a
somewhat larger subset of Ada expressions be compiled.
Diffstat (limited to 'gdb/testsuite/gdb.ada/ax-ada/prog.adb')
| -rw-r--r-- | gdb/testsuite/gdb.ada/ax-ada/prog.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/ax-ada/prog.adb b/gdb/testsuite/gdb.ada/ax-ada/prog.adb index 3852711..85148d0 100644 --- a/gdb/testsuite/gdb.ada/ax-ada/prog.adb +++ b/gdb/testsuite/gdb.ada/ax-ada/prog.adb @@ -14,7 +14,10 @@ -- along with this program. If not, see <http://www.gnu.org/licenses/>. procedure Prog is + type Range_Type is range -15 .. 73; + Variable : Integer := 23; + Range_Variable : Range_Type := 23; begin null; -- START end Prog; |