diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:36:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:36:25 +0000 |
| commit | 81d55fa4ada403b403542a7fcca84790470b790d (patch) | |
| tree | 0adf4bc70f43fad200dd4b7b096f51a799772df1 /gcc/ada/sem_elim.adb | |
| parent | 62b5359e4e034ec45811dccdd7582bbbd9bc1aac (diff) | |
| download | gcc-81d55fa4ada403b403542a7fcca84790470b790d.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92835 138bc75d-0d04-0410-961f-82ee72b054a4
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; |