2019-06-14 Tom Tromey <tromey@adacore.com>
+ * ada-lex.l: Allow "_" in attribute names.
+
+2019-06-14 Tom Tromey <tromey@adacore.com>
+
PR gdb/24653:
* regcache.c (registers_changed): Don't call alloca.
* top.c (execute_command): Don't call alloca.
/* ATTRIBUTES */
-{TICK}[a-zA-Z][a-zA-Z]+ { BEGIN INITIAL; return processAttribute (yytext+1); }
+{TICK}[a-zA-Z][a-zA-Z_]+ { BEGIN INITIAL; return processAttribute (yytext+1); }
/* PUNCTUATION */
2019-06-14 Tom Tromey <tromey@adacore.com>
+ * gdb.ada/formatted_ref.exp (test_p_x_addr): Check
+ 'unchecked_access and 'unrestricted_access as well.
+
+2019-06-14 Tom Tromey <tromey@adacore.com>
+
PR ada/24539:
* gdb.ada/vla.exp: Update tests.
* gdb.ada/vla/vla.adb (Record_Type): Use No_Component_Reordering
proc test_p_x_addr { var addr } {
global gdb_prompt
- set test "print/x $var'access"
- gdb_test_multiple $test $test {
- -re "\\$\[0-9\]+ = $addr.*$gdb_prompt $" {
- pass $test
- }
- -re "\\$\[0-9\]+ = 0x\[a-f0-9+\]+.*$gdb_prompt $" {
- fail "$test (prints unexpected address)"
- }
+ foreach attr {access unchecked_access unrestricted_access} {
+ set test "print/x $var'$attr"
+ gdb_test_multiple $test $test {
+ -re "\\$\[0-9\]+ = $addr.*$gdb_prompt $" {
+ pass $test
+ }
+ -re "\\$\[0-9\]+ = 0x\[a-f0-9+\]+.*$gdb_prompt $" {
+ fail "$test (prints unexpected address)"
+ }
+ }
}
return 0
}