diff options
author | Joel Brobecker <brobecker@adacore.com> | 2013-11-27 18:47:40 +0400 |
---|---|---|
committer | Joel Brobecker <brobecker@adacore.com> | 2013-12-03 16:04:26 +0400 |
commit | 7fb1b8b13f1fb3a72f0ab3ce72967549ea040e17 (patch) | |
tree | dcd7b5ffbdb8f6ba160acccf0a64cc3cce69bbaa /gold/target.cc | |
parent | 849f2b52ec2b71bc76188ac8c53f35fb57a5d41c (diff) | |
download | gdb-7fb1b8b13f1fb3a72f0ab3ce72967549ea040e17.zip gdb-7fb1b8b13f1fb3a72f0ab3ce72967549ea040e17.tar.gz gdb-7fb1b8b13f1fb3a72f0ab3ce72967549ea040e17.tar.bz2 |
Ada: Reserved word "all" should not need to be spelled in lowercase.
Consider the following code:
type Ptr is access all Integer;
IP : Ptr := new Integer'(123);
IP is the Ada exception of a pointer to an integer. To dereference
the pointer and get its value, the user uses the reserved word "all"
as follow:
(gdb) p ip.all
$1 = 123
Ada being a case-insensitive language, the casing should not matter.
Unfortunately, for the reserved word "all", things don't work. For
instance:
(gdb) p ip.ALL
Type integer is not a structure or union type
This patch fixes the problem.
gdb/ChangeLog:
* ada-lex.l (find_dot_all): Use strncasecmp instead of strncmp.
gdb/testsuite/ChangeLog:
* gdb.ada/dot_all: New testcase.
Diffstat (limited to 'gold/target.cc')
0 files changed, 0 insertions, 0 deletions