diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-25 15:17:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-25 15:17:25 +0000 |
| commit | f572eafb46e7e4db7a058b9199a41300cac12301 (patch) | |
| tree | fb430d94bc43da0b5a140cd3a1e77684ce6e44dc /gcc/ada/sem_eval.adb | |
| parent | e12ab46d570d8d37cf186f06027a1d9a1cb607e9 (diff) | |
| download | linaro-gcc-f572eafb46e7e4db7a058b9199a41300cac12301.tar.gz linaro-gcc-f572eafb46e7e4db7a058b9199a41300cac12301.tar.bz2 linaro-gcc-f572eafb46e7e4db7a058b9199a41300cac12301.zip | |
2012-04-25 Gary Dismukes <dismukes@adacore.com>
* exp_ch9.adb: Add comments on the usage of the
lock-free data structures.
2012-04-25 Vincent Pucci <pucci@adacore.com>
* exp_intr.adb (Expand_Shift): Convert the left
operand and the operator when the type of the call differs from
the type of the operator.
2012-04-25 Geert Bosch <bosch@adacore.com>
* stand.ads: Minor comment fix.
2012-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch4.adb (Analyze_Slice): Handle the case where the prefix
is a string literal. Retrieve the first index from the base type
when slicing a string literal.
* sem_ch12.adb (Check_Private_View): Move the initialization
of the type inside the loop to reflect the changing index.
* sem_eval.adb (Eval_Relational_Op): Retrieve the first index
from the base type when dealing with a string literal.
* sem_res.adb (Resolve_Slice): Retrieve the first index from
the base type when slicing a string literal.
* sem_util.adb (Is_Internally_Generated_Renaming): New routine.
(Is_Object_Reference): String literals may act
as object references only when they are renamed internally.
(Proper_First_Index): New routine.
* sem_util.ads (Proper_First_Index): New routine.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@186829 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 18a59af25d0..6cd045823a4 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -2747,7 +2747,7 @@ package body Sem_Eval is -- General case - T := Etype (First_Index (Etype (Op))); + T := Etype (Proper_First_Index (Etype (Op))); -- The simple case, both bounds are known at compile time |