diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-23 12:09:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-23 12:09:38 +0200 |
| commit | 0d354370f2e1b51efcf45c9241cabd0c7873b977 (patch) | |
| tree | 4cf2eac6922db590544ebbe8c49c46f4c7b45b6c /gcc/ada/xref_lib.adb | |
| parent | 85b7d482bb14e368989797ff40e6ae09dde2e820 (diff) | |
| download | gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.zip gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.tar.gz gcc-0d354370f2e1b51efcf45c9241cabd0c7873b977.tar.bz2 | |
[multiple changes]
2009-06-23 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Remove_Limited_With_Clause): Clean up code that handles
incomplete type declarations. Previous code was potentially quadratic
in the number of visible declarations in any package appearing in a
limited_with_clause.
2009-06-23 Robert Dewar <dewar@adacore.com>
* prj-conf.ads, prj-part.adb, prj-proc.adb, prj-proc.ads, sem_ch8.adb,
xref_lib.adb: Minor reformatting
From-SVN: r148843
Diffstat (limited to 'gcc/ada/xref_lib.adb')
| -rw-r--r-- | gcc/ada/xref_lib.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index f3c8fa3..93529132 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -49,7 +49,7 @@ package body Xref_Lib is No_Xref_Information : exception; -- Exception raised when there is no cross-referencing information in - -- the .ali files + -- the .ali files. procedure Parse_EOL (Source : not null access String; @@ -708,9 +708,9 @@ package body Xref_Lib is Ptr := Ptr + 1; end loop; - if Source (Ptr) /= EOF then - -- Skip CR or LF + -- Skip CR or LF if not at end of file + if Source (Ptr) /= EOF then Ptr := Ptr + 1; end if; |