diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-23 12:45:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-23 12:45:48 +0200 |
| commit | ad075b500fc6da9afd6a5bfc710a715b33b01e22 (patch) | |
| tree | ee93cdec7f19508d21676f596d5c2af440247f21 /gcc/ada/sem_ch4.adb | |
| parent | e699b76e9252a4bb0c1af7276113d23e289e8973 (diff) | |
| download | gcc-ad075b500fc6da9afd6a5bfc710a715b33b01e22.zip gcc-ad075b500fc6da9afd6a5bfc710a715b33b01e22.tar.gz gcc-ad075b500fc6da9afd6a5bfc710a715b33b01e22.tar.bz2 | |
[multiple changes]
2014-10-23 Ed Schonberg <schonberg@adacore.com>
* sem_eval.adb (Check_Non_Static_Context): Do not set
Is_Machine_Number on a literal of a fixed-point type.
2014-10-23 Robert Dewar <dewar@adacore.com>
* mlib-prj.adb, sem_ch4.adb, exp_ch3.adb: Minor reformatting.
2014-10-23 Pierre-Marie Derodat <derodat@adacore.com>
* exp_dbug.ads: Update ___XA parallel type specification.
2014-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb (Copy_Array_Subtype_Attributes): Inherit the rep
chain of the source type.
* sem_ch13.adb (Analyze_Aspect_Specifications): Minor
reformatting of an error message.
* sem_util.adb (Inherit_Rep_Item_Chain): Do not inherit a rep
chain that has been inherited already.
From-SVN: r216588
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 7914fe1..3f9fc98 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -7591,7 +7591,7 @@ package body Sem_Ch4 is or else not Is_Variable (Obj) then Error_Msg_NE - ("actual for& must be a variable", Obj, Control); + ("actual for & must be a variable", Obj, Control); end if; end if; @@ -7602,9 +7602,8 @@ package body Sem_Ch4 is if not Is_Aliased_View (Obj) then Error_Msg_NE - ("object in prefixed call to& must be aliased" - & " (RM-2005 4.3.1 (13))", - Prefix (First_Actual), Subprog); + ("object in prefixed call to & must be aliased " + & " (RM-2005 4.3.1 (13))", Prefix (First_Actual), Subprog); end if; Analyze (First_Actual); |