[multiple changes]

2016-04-21  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_prag.adb (Match_Constituent): Treat a constant as a legal
	constituent even if it is not to prevent spurious errors.

2016-04-21  Gary Dismukes  <dismukes@adacore.com>

	* sem_ch4.adb: Minor typo fixes and reformatting.

2016-04-21  Dmitriy Anisimkov  <anisimko@adacore.com>

	* g-calend.ads (No_Time): The same value in any timezone.
	* g-socket.adb (Raise_Host_Error): Remove ending
	dot from original error message before append colon delimited
	host name.

From-SVN: r235331

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 05f1f2bb55919cffcbd706b894950b552850cb63..0051dbd7f7cbdf3afc8fa29320aa052113cdb9ba 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,19 @@
+2016-04-21  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * sem_prag.adb (Match_Constituent): Treat a constant as a legal
+       constituent even if it is not to prevent spurious errors.
+
+2016-04-21  Gary Dismukes  <dismukes@adacore.com>
+
+       * sem_ch4.adb: Minor typo fixes and reformatting.
+
+2016-04-21  Dmitriy Anisimkov  <anisimko@adacore.com>
+
+       * g-calend.ads (No_Time): The same value in any timezone.
+       * g-socket.adb (Raise_Host_Error): Remove ending
+       dot from original error message before append colon delimited
+       host name.
+
 2016-04-21  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * sem_ch3.adb: Code cleanup.

diff --git a/gcc/ada/g-calend.ads b/gcc/ada/g-calend.ads
index 4234061e724663023b3488d4b9ac76128c2573f0..3559130e1f19f830430cd9d4113ba5ad14cf10c3 100644 (file)
--- a/gcc/ada/g-calend.ads
+++ b/gcc/ada/g-calend.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1999-2014, Free Software Foundation, Inc.         --
+--          Copyright (C) 1999-2016, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -39,7 +39,7 @@
 --  Second_Duration. Other functions are to access more advanced values like
 --  Day_Of_Week, Day_In_Year and Week_In_Year.
 
-with Ada.Calendar;
+with Ada.Calendar.Formatting;
 with Interfaces.C;
 
 package GNAT.Calendar is
@@ -175,9 +175,11 @@ private
    --  Robert G. Tantzen.
 
    No_Time : constant Ada.Calendar.Time :=
-               Ada.Calendar.Time_Of
+               Ada.Calendar.Formatting.Time_Of
                  (Ada.Calendar.Year_Number'First,
                   Ada.Calendar.Month_Number'First,
-                  Ada.Calendar.Day_Number'First);
+                  Ada.Calendar.Day_Number'First,
+                  Time_Zone => 0);
+   --  Use Time_Zone => 0 to be the same binary representation in any timezone
 
 end GNAT.Calendar;

diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb
index 2baa4f7315ede24c02aaa9f8980e6467bef04f22..477150de5735ce9a9f123713a34b04f70d2e123d 100644 (file)
--- a/gcc/ada/g-socket.adb
+++ b/gcc/ada/g-socket.adb
@@ -1702,10 +1702,14 @@ package body GNAT.Sockets is
    ----------------------
 
    procedure Raise_Host_Error (H_Error : Integer; Name : String) is
+      function Dedot (Value : String) return String is
+        (if Value /= "" and then Value (Value'Last) = '.'
+         then Value (Value'First .. Value'Last - 1) else Value);
+      --  Removes dot at the end of error message
    begin
       raise Host_Error with
         Err_Code_Image (H_Error)
-          & Host_Error_Messages.Host_Error_Message (H_Error)
+          & Dedot (Host_Error_Messages.Host_Error_Message (H_Error))
           & ": " & Name;
    end Raise_Host_Error;
 

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 5b463cbd29a9e3aa5920e89c7da1b1b69ef5df02..68375299dcefe6ac8e72bc0ae72b88514b68932e 100644 (file)
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -7569,8 +7569,8 @@ package body Sem_Ch4 is
                while Present (It.Nam) loop
                   Add_One_Interp (N, It.Nam, It.Typ);
 
-                  --  Add dereference interpretation if the result type type
-                  --  has implicit reference discriminants.
+                  --  Add dereference interpretation if the result type has
+                  --  implicit reference discriminants.
 
                   if Has_Discriminants (Etype (It.Nam)) then
                      Check_Implicit_Dereference (N, Etype (It.Nam));

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 0d75d220261bfb55cfb22204665cb4ceada9e749..3d3683c9ba0e71a4486c77f0988d72deffbb262b 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -25522,7 +25522,7 @@ package body Sem_Prag is
                   --  a visible state or lacks a Part_Of indicator.
 
                   if Ekind (Constit_Id) = E_Constant then
-                     null;
+                     Collect_Constituent;
 
                   --  If we get here, then the constituent is not a hidden
                   --  state of the related package and may not be used in a