diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:17:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:17:25 +0200 |
| commit | 03ad478dc5a08e2f5b20296035ab14fc2019aab4 (patch) | |
| tree | fb430d94bc43da0b5a140cd3a1e77684ce6e44dc /gcc/ada/sem_eval.adb | |
| parent | 39ad16657c9de8b8c1736e2145f8e8f38cb8bff1 (diff) | |
| download | gcc-03ad478dc5a08e2f5b20296035ab14fc2019aab4.zip gcc-03ad478dc5a08e2f5b20296035ab14fc2019aab4.tar.gz gcc-03ad478dc5a08e2f5b20296035ab14fc2019aab4.tar.bz2 | |
[multiple changes]
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.
From-SVN: r186829
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 18a59af..6cd0458 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 |