sem_eval.adb (Eval_Concatenation): If left operand is a null string, get bounds from...
authorGeert Bosch <bosch@gcc.gnu.org>
Wed, 5 Dec 2001 21:13:00 +0000 (22:13 +0100)
committerGeert Bosch <bosch@gcc.gnu.org>
Wed, 5 Dec 2001 21:13:00 +0000 (22:13 +0100)
commitf91b40db076d74d756aee965a90fc2fa823126af
tree2c0ad494ce36ef9b36a04906e911710725525931
parentef3d4d6ed8217f439001ded7ba1b7e3b85c51113
sem_eval.adb (Eval_Concatenation): If left operand is a null string, get bounds from right operand.

* sem_eval.adb (Eval_Concatenation): If left operand is a null string,
get bounds from right operand.

* sem_eval.adb: Minor reformatting

* exp_util.adb (Make_Literal_Range): use bound of literal rather
than Index'First, its lower bound may be different from 1.

* exp_util.adb: Undo earlier change, fixes ACVC regressions C48009B
and C48009J

* prj-nmsc.adb Minor reformatting

* prj-nmsc.adb (Language_Independent_Check): Reset Library flag if
set and libraries are not supported.

* sem_ch3.adb (Build_Derived_Private_Type): set Public status of
private view explicitly, so the back-end can treat as a global
when appropriate.

From-SVN: r47692
gcc/ada/ChangeLog
gcc/ada/exp_util.adb
gcc/ada/prj-nmsc.adb
gcc/ada/sem_ch3.adb
gcc/ada/sem_eval.adb