Skip to content

R
riscv-gcc-1
Commit 6c7f7b8c by Arnaud Charlet
Options

[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
parent 0310af44
Showing with 30 additions and 8 deletions
gcc/ada/ChangeLog
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.
* sem_ch6.adb: Code cleanup.
(Is_Matching_Limited_View): New routine.
......
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;
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;
......
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));
......
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment