diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-03 12:05:20 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-03 12:05:20 +0100 |
| commit | 6f5c2c4b49db5e9eafff76c7beae96e585afbfe6 (patch) | |
| tree | 74bfeef98783647d44456e2701c329b3314c4d99 /gcc/ada/xref_lib.adb | |
| parent | 02217452f075702efcab7aceff594d8c4952600e (diff) | |
| download | gcc-6f5c2c4b49db5e9eafff76c7beae96e585afbfe6.zip gcc-6f5c2c4b49db5e9eafff76c7beae96e585afbfe6.tar.gz gcc-6f5c2c4b49db5e9eafff76c7beae96e585afbfe6.tar.bz2 | |
[multiple changes]
2013-01-03 Emmanuel Briot <briot@adacore.com>
* xref_lib.adb (Parse_Identifier_Info): Fix handling of arrays, which
have information in the ALI file for both the index and the component
types.
2013-01-03 Emmanuel Briot <briot@adacore.com>
* projects.texi: Fix error in documenting the project path
computed for an aggregate project.
2013-01-03 Javier Miranda <miranda@adacore.com>
* sem_warn.adb (Warn_On_Overlapping_Actuals): Adding documentation
plus restricting the functionality of this routine to cover the
cases described in the Ada 2012 reference manual. The previous
extended support is now available under -gnatX.
* s-tassta.adb (Finalize_Global_Tasks): Addition of a dummy
variable to call Timed_Sleep. Required to avoid warning on
overlapping out-mode actuals.
* opt.ads (Extensions_Allowed): Update documentation.
2013-01-03 Tristan Gingold <gingold@adacore.com>
* s-arit64.ads: Use Multiply_With_Ovflo_Check as __gnat_mulv64.
* arit64.c: Removed
* gcc-interface/Makefile.in: Remove reference to arit64.c.
2013-01-03 Thomas Quinot <quinot@adacore.com>
* checks.adb, checks.ads (Apply_Address_Clause_Check): The check must
be generated at the start of the freeze actions for the entity, not
before (or after) the freeze node.
2013-01-03 Thomas Quinot <quinot@adacore.com>
* exp_aggr.adb (Exp_Aggr.Convert_Aggregate_In_Obj_Decl):
Reorganize code to capture initialization statements in a block,
so that freeze nodes are excluded from the captured block.
From-SVN: r194848
Diffstat (limited to 'gcc/ada/xref_lib.adb')
| -rw-r--r-- | gcc/ada/xref_lib.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index 4110368..56a28ef 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -925,10 +925,11 @@ package body Xref_Lib is end; end if; - if Ali (Ptr) = '<' - or else Ali (Ptr) = '(' - or else Ali (Ptr) = '{' - then + while Ptr <= Ali'Last + and then (Ali (Ptr) = '<' + or else Ali (Ptr) = '(' + or else Ali (Ptr) = '{') + loop -- Here we have a type derivation information. The format is -- <3|12I45> which means that the current entity is derived from the -- type defined in unit number 3, line 12 column 45. The pipe and @@ -1065,7 +1066,7 @@ package body Xref_Lib is end loop; Ptr := Ptr + 1; end if; - end if; + end loop; -- To find the body, we will have to parse the file too |