diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-05 22:13:00 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-05 22:13:00 +0100 |
| commit | f91b40db076d74d756aee965a90fc2fa823126af (patch) | |
| tree | 2c0ad494ce36ef9b36a04906e911710725525931 /gcc/ada/prj-nmsc.adb | |
| parent | ef3d4d6ed8217f439001ded7ba1b7e3b85c51113 (diff) | |
| download | gcc-f91b40db076d74d756aee965a90fc2fa823126af.zip gcc-f91b40db076d74d756aee965a90fc2fa823126af.tar.gz gcc-f91b40db076d74d756aee965a90fc2fa823126af.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index a1f7b03..e12fe08 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -976,7 +976,7 @@ package body Prj.Nmsc is Naming.Dot_Repl_Loc); end if; - -- Suffixs cannot + -- Suffixes cannot -- - be empty -- - start with an alphanumeric -- - start with an '_' followed by an alphanumeric @@ -1952,7 +1952,8 @@ package body Prj.Nmsc is if not MLib.Tgt.Libraries_Are_Supported then Error_Msg ("?libraries are not supported on this platform", - Lib_Name.Location); + Lib_Name.Location); + Data.Library := False; else if Current_Verbosity = High then @@ -1983,12 +1984,11 @@ package body Prj.Nmsc is declare Kind_Name : constant String := - To_Lower (Name_Buffer (1 .. Name_Len)); + To_Lower (Name_Buffer (1 .. Name_Len)); OK : Boolean := True; begin - if Kind_Name = "static" then Data.Library_Kind := Static; |