diff options
author | Paul N. Hilfinger <hilfinger@adacore.com> | 2004-07-01 10:11:11 +0000 |
---|---|---|
committer | Paul N. Hilfinger <hilfinger@adacore.com> | 2004-07-01 10:11:11 +0000 |
commit | 19c1ef65d7309fbce692396866d54e7ede61e7dd (patch) | |
tree | 7a0e7c17558878d7d8468846030ab87cabf7914c /gdb/ada-lang.c | |
parent | cc83d33996dbcc01826c424664eed56a903545c6 (diff) | |
download | gdb-19c1ef65d7309fbce692396866d54e7ede61e7dd.zip gdb-19c1ef65d7309fbce692396866d54e7ede61e7dd.tar.gz gdb-19c1ef65d7309fbce692396866d54e7ede61e7dd.tar.bz2 |
Address complaints from gdb_ari.sh:
* ada-exp.y: Include gdb_string.h rather than string.h.
(convert_char_literal): Reformat declaration.
* ada-lang.h: Include opaque struct declaration for struct frame_info.
* ada-lex.l: Change use of free to xfree (the macro would do so
anyway, but this is harmless).
Include gdb_string.h rather than string.h.
* ada-valprint.c (ada_val_print_stub): Change PTR => void*.
* ada-lang.c (parse): Remove K&Rism in parameter list.
(is_name_suffix): Correct Linux => GNU/Linux in comment.
Diffstat (limited to 'gdb/ada-lang.c')
-rw-r--r-- | gdb/ada-lang.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 6ec5044..2d9aa35 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -2596,9 +2596,9 @@ resolve_subexp (struct expression **expp, int *pos, int deprocedure_p, break; case OP_STRING: - (*pos) += 3 - + BYTES_TO_EXP_ELEM (longest_to_int (exp->elts[pc + 1].longconst) + - 1); + (*pos) += 3 + + BYTES_TO_EXP_ELEM (longest_to_int (exp->elts[pc + 1].longconst) + + 1); break; case TERNOP_SLICE: @@ -4755,7 +4755,8 @@ ada_lookup_symbol_nonlocal (const char *name, names (e.g., XVE) are not included here. Currently, the possible suffixes are given by either of the regular expression: - (__[0-9]+)?\.[0-9]+ [nested subprogram suffix, on platforms such as Linux] + (__[0-9]+)?\.[0-9]+ [nested subprogram suffix, on platforms such + as GNU/Linux] ___[0-9]+ [nested subprogram suffix, on platforms such as HP/UX] (X[nb]*)?((\$|__)[0-9](_?[0-9]+)|___(LJM|X([FDBUP].*|R[^T]?)))?$ */ @@ -10098,7 +10099,7 @@ emit_char (int c, struct ui_file *stream, int quoter) } static int -parse () +parse (void) { warnings_issued = 0; return ada_parse (); |