[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
This commit is contained in:
parent
0310af44bb
commit
6c7f7b8c69
|
@ -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>
|
2016-04-21 Hristian Kirtchev <kirtchev@adacore.com>
|
||||||
|
|
||||||
* sem_ch3.adb: Code cleanup.
|
* sem_ch3.adb: Code cleanup.
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- S p e c --
|
-- 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 --
|
-- 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- --
|
-- 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
|
-- Second_Duration. Other functions are to access more advanced values like
|
||||||
-- Day_Of_Week, Day_In_Year and Week_In_Year.
|
-- Day_Of_Week, Day_In_Year and Week_In_Year.
|
||||||
|
|
||||||
with Ada.Calendar;
|
with Ada.Calendar.Formatting;
|
||||||
with Interfaces.C;
|
with Interfaces.C;
|
||||||
|
|
||||||
package GNAT.Calendar is
|
package GNAT.Calendar is
|
||||||
|
@ -175,9 +175,11 @@ private
|
||||||
-- Robert G. Tantzen.
|
-- Robert G. Tantzen.
|
||||||
|
|
||||||
No_Time : constant Ada.Calendar.Time :=
|
No_Time : constant Ada.Calendar.Time :=
|
||||||
Ada.Calendar.Time_Of
|
Ada.Calendar.Formatting.Time_Of
|
||||||
(Ada.Calendar.Year_Number'First,
|
(Ada.Calendar.Year_Number'First,
|
||||||
Ada.Calendar.Month_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;
|
end GNAT.Calendar;
|
||||||
|
|
|
@ -1702,10 +1702,14 @@ package body GNAT.Sockets is
|
||||||
----------------------
|
----------------------
|
||||||
|
|
||||||
procedure Raise_Host_Error (H_Error : Integer; Name : String) 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
|
begin
|
||||||
raise Host_Error with
|
raise Host_Error with
|
||||||
Err_Code_Image (H_Error)
|
Err_Code_Image (H_Error)
|
||||||
& Host_Error_Messages.Host_Error_Message (H_Error)
|
& Dedot (Host_Error_Messages.Host_Error_Message (H_Error))
|
||||||
& ": " & Name;
|
& ": " & Name;
|
||||||
end Raise_Host_Error;
|
end Raise_Host_Error;
|
||||||
|
|
||||||
|
|
|
@ -7569,8 +7569,8 @@ package body Sem_Ch4 is
|
||||||
while Present (It.Nam) loop
|
while Present (It.Nam) loop
|
||||||
Add_One_Interp (N, It.Nam, It.Typ);
|
Add_One_Interp (N, It.Nam, It.Typ);
|
||||||
|
|
||||||
-- Add dereference interpretation if the result type type
|
-- Add dereference interpretation if the result type has
|
||||||
-- has implicit reference discriminants.
|
-- implicit reference discriminants.
|
||||||
|
|
||||||
if Has_Discriminants (Etype (It.Nam)) then
|
if Has_Discriminants (Etype (It.Nam)) then
|
||||||
Check_Implicit_Dereference (N, Etype (It.Nam));
|
Check_Implicit_Dereference (N, Etype (It.Nam));
|
||||||
|
|
|
@ -25522,7 +25522,7 @@ package body Sem_Prag is
|
||||||
-- a visible state or lacks a Part_Of indicator.
|
-- a visible state or lacks a Part_Of indicator.
|
||||||
|
|
||||||
if Ekind (Constit_Id) = E_Constant then
|
if Ekind (Constit_Id) = E_Constant then
|
||||||
null;
|
Collect_Constituent;
|
||||||
|
|
||||||
-- If we get here, then the constituent is not a hidden
|
-- If we get here, then the constituent is not a hidden
|
||||||
-- state of the related package and may not be used in a
|
-- state of the related package and may not be used in a
|
||||||
|
|
Loading…
Reference in New Issue