diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:36:25 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:36:25 +0100 |
| commit | 42de0044766f78d4dc915b46f5de94a6a5846ae2 (patch) | |
| tree | 0adf4bc70f43fad200dd4b7b096f51a799772df1 /gcc/ada/sem_elim.adb | |
| parent | 050d31e81515eeaaad6768904faf40fd0ce7f1dc (diff) | |
| download | gcc-42de0044766f78d4dc915b46f5de94a6a5846ae2.tar.gz | |
exp_aggr.adb (Packed_Array_Aggregate_Handled): The values of the bounds can be negative, and must be declared Int, not Nat.
* exp_aggr.adb (Packed_Array_Aggregate_Handled): The values of the
bounds can be negative, and must be declared Int, not Nat.
* sem_elim.adb (Line_Num_Match): Correct wrong code when index in an
array is checked after using the index in the array.
* makegpr.adb (Add_Switches): Check if there is a package for the
processor. If there is no package, do not look for switches.
From-SVN: r92835
Diffstat (limited to 'gcc/ada/sem_elim.adb')
| -rw-r--r-- | gcc/ada/sem_elim.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index f5200ca5406..b823b7bf781 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -521,14 +521,14 @@ package body Sem_Elim is if Get_Physical_Line_Number (P) = Physical_Line_Number (N) then - while Sloc_Trace (Idx) /= '[' - and then Idx <= Last + while Idx <= Last and then + Sloc_Trace (Idx) /= '[' loop Idx := Idx + 1; end loop; - if Sloc_Trace (Idx) = '[' - and then Idx < Last + if Idx <= Last and then + Sloc_Trace (Idx) = '[' then Idx := Idx + 1; Idx := Skip_Spaces; |