Skip to content

R
riscv-gcc-1
Commit 69a0c174 by Arnaud Charlet
Options

[multiple changes] 

2009-05-06  Gary Dismukes  <dismukes@adacore.com>

	* gnat_ugn.texi: Fix typo.

2009-05-06  Thomas Quinot  <quinot@adacore.com>

	* g-debuti.adb: Minor reformatting

	* exp_attr.adb: Minor reformatting

2009-05-06  Robert Dewar  <dewar@adacore.com>

	* sem_aggr.adb: Minor reformatting.

	* g-socthi-vms.adb: Minor reformatting

2009-05-06  Bob Duff  <duff@adacore.com>

	* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
	(Append_All): Add Append_All to g-table and g-dyntab, similar to table.

From-SVN: r147162
parent 4e0d20ca
Showing with 64 additions and 12 deletions
gcc/ada/ChangeLog
2009-05-06 Gary Dismukes <dismukes@adacore.com>
* gnat_ugn.texi: Fix typo.
2009-05-06 Thomas Quinot <quinot@adacore.com>
* g-debuti.adb: Minor reformatting
* exp_attr.adb: Minor reformatting
2009-05-06 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb: Minor reformatting.
* g-socthi-vms.adb: Minor reformatting
2009-05-06 Bob Duff <duff@adacore.com>
* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
(Append_All): Add Append_All to g-table and g-dyntab, similar to table.
2009-05-06 Bob Duff <duff@adacore.com> 2009-05-06 Bob Duff <duff@adacore.com>
* gnat_ugn.texi, gnat_rm.texi: Add missing documentation for warnings * gnat_ugn.texi, gnat_rm.texi: Add missing documentation for warnings
......
gcc/ada/exp_attr.adb
...@@ -1218,7 +1218,7 @@ package body Exp_Attr is ...@@ -1218,7 +1218,7 @@ package body Exp_Attr is
-- A reference to P'Body_Version or P'Version is expanded to -- A reference to P'Body_Version or P'Version is expanded to
-- Vnn : Unsigned; -- Vnn : Unsigned;
-- pragma Import (C, Vnn, "uuuuT"; -- pragma Import (C, Vnn, "uuuuT");
-- ... -- ...
-- Get_Version_String (Vnn) -- Get_Version_String (Vnn)
......
gcc/ada/g-debuti.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1997-2005, AdaCore -- -- Copyright (C) 1997-2009, AdaCore --
-- -- -- --
-- 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- --
...@@ -36,8 +36,8 @@ with System.Storage_Elements; use System.Storage_Elements; ...@@ -36,8 +36,8 @@ with System.Storage_Elements; use System.Storage_Elements;
package body GNAT.Debug_Utilities is package body GNAT.Debug_Utilities is
H : constant array (0 .. 15) of Character := "0123456789ABCDEF"; H : constant array (0 .. 15) of Character := "0123456789ABCDEF";
-- Table of hex digits -- Table of hex digits
----------- -----------
-- Image -- -- Image --
......
gcc/ada/g-dyntab.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2000-2008, AdaCore -- -- Copyright (C) 2000-2009, AdaCore --
-- -- -- --
-- 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- --
...@@ -85,6 +85,17 @@ package body GNAT.Dynamic_Tables is ...@@ -85,6 +85,17 @@ package body GNAT.Dynamic_Tables is
Set_Item (T, Table_Index_Type (T.P.Last_Val + 1), New_Val); Set_Item (T, Table_Index_Type (T.P.Last_Val + 1), New_Val);
end Append; end Append;
----------------
-- Append_All --
----------------
procedure Append_All (T : in out Instance; New_Vals : Table_Type) is
begin
for J in New_Vals'Range loop
Append (T, New_Vals (J));
end loop;
end Append_All;
-------------------- --------------------
-- Decrement_Last -- -- Decrement_Last --
-------------------- --------------------
......
gcc/ada/g-dyntab.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2000-2008, AdaCore -- -- Copyright (C) 2000-2009, AdaCore --
-- -- -- --
-- 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- --
...@@ -169,6 +169,9 @@ package GNAT.Dynamic_Tables is ...@@ -169,6 +169,9 @@ package GNAT.Dynamic_Tables is
-- i.e. the table size is increased by one, and the given new item -- i.e. the table size is increased by one, and the given new item
-- stored in the newly created table element. -- stored in the newly created table element.
procedure Append_All (T : in out Instance; New_Vals : Table_Type);
-- Appends all components of New_Vals
procedure Set_Item procedure Set_Item
(T : in out Instance; (T : in out Instance;
Index : Table_Index_Type; Index : Table_Index_Type;
......
gcc/ada/g-socthi-vms.adb
...@@ -51,7 +51,7 @@ package body GNAT.Sockets.Thin is ...@@ -51,7 +51,7 @@ package body GNAT.Sockets.Thin is
-- when a thread wants to perform a blocking IO operation. But the user can -- when a thread wants to perform a blocking IO operation. But the user can
-- also set a socket in non-blocking mode by purpose. In order to make a -- also set a socket in non-blocking mode by purpose. In order to make a
-- difference between these two situations, we track the origin of -- difference between these two situations, we track the origin of
-- non-blocking mode in Non_Blocking_Sockets. If S is in -- non-blocking mode in Non_Blocking_Sockets. Note that if S is in
-- Non_Blocking_Sockets, it has been set in non-blocking mode by the user. -- Non_Blocking_Sockets, it has been set in non-blocking mode by the user.
Quantum : constant Duration := 0.2; Quantum : constant Duration := 0.2;
...@@ -215,7 +215,6 @@ package body GNAT.Sockets.Thin is ...@@ -215,7 +215,6 @@ package body GNAT.Sockets.Thin is
if Res = Failure and then Errno = SOSC.EISCONN then if Res = Failure and then Errno = SOSC.EISCONN then
return Thin_Common.Success; return Thin_Common.Success;
else else
return Res; return Res;
end if; end if;
...@@ -310,6 +309,7 @@ package body GNAT.Sockets.Thin is ...@@ -310,6 +309,7 @@ package body GNAT.Sockets.Thin is
pragma Import (Ada, GNAT_Msg); pragma Import (Ada, GNAT_Msg);
VMS_Msg : aliased VMS_Msghdr := VMS_Msghdr (GNAT_Msg); VMS_Msg : aliased VMS_Msghdr := VMS_Msghdr (GNAT_Msg);
begin begin
loop loop
Res := Syscall_Recvmsg (S, VMS_Msg'Address, Flags); Res := Syscall_Recvmsg (S, VMS_Msg'Address, Flags);
...@@ -319,6 +319,7 @@ package body GNAT.Sockets.Thin is ...@@ -319,6 +319,7 @@ package body GNAT.Sockets.Thin is
or else Errno /= SOSC.EWOULDBLOCK; or else Errno /= SOSC.EWOULDBLOCK;
delay Quantum; delay Quantum;
end loop; end loop;
GNAT_Msg := Msghdr (VMS_Msg); GNAT_Msg := Msghdr (VMS_Msg);
return ssize_t (Res); return ssize_t (Res);
...@@ -350,6 +351,7 @@ package body GNAT.Sockets.Thin is ...@@ -350,6 +351,7 @@ package body GNAT.Sockets.Thin is
or else Errno /= SOSC.EWOULDBLOCK; or else Errno /= SOSC.EWOULDBLOCK;
delay Quantum; delay Quantum;
end loop; end loop;
GNAT_Msg := Msghdr (VMS_Msg); GNAT_Msg := Msghdr (VMS_Msg);
return ssize_t (Res); return ssize_t (Res);
......
gcc/ada/g-table.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1998-2008, AdaCore -- -- Copyright (C) 1998-2009, AdaCore --
-- -- -- --
-- 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- --
...@@ -96,6 +96,17 @@ package body GNAT.Table is ...@@ -96,6 +96,17 @@ package body GNAT.Table is
Set_Item (Table_Index_Type (Last_Val + 1), New_Val); Set_Item (Table_Index_Type (Last_Val + 1), New_Val);
end Append; end Append;
----------------
-- Append_All --
----------------
procedure Append_All (New_Vals : Table_Type) is
begin
for J in New_Vals'Range loop
Append (New_Vals (J));
end loop;
end Append_All;
-------------------- --------------------
-- Decrement_Last -- -- Decrement_Last --
-------------------- --------------------
......
gcc/ada/g-table.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1998-2008, AdaCore -- -- Copyright (C) 1998-2009, AdaCore --
-- -- -- --
-- 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- --
...@@ -184,6 +184,9 @@ package GNAT.Table is ...@@ -184,6 +184,9 @@ package GNAT.Table is
-- i.e. the table size is increased by one, and the given new item -- i.e. the table size is increased by one, and the given new item
-- stored in the newly created table element. -- stored in the newly created table element.
procedure Append_All (New_Vals : Table_Type);
-- Appends all components of New_Vals
procedure Set_Item procedure Set_Item
(Index : Table_Index_Type; (Index : Table_Index_Type;
Item : Table_Component_Type); Item : Table_Component_Type);
......
gcc/ada/gnat_ugn.texi
...@@ -3345,7 +3345,7 @@ In this case the components DT inherited from the C++ side must be ...@@ -3345,7 +3345,7 @@ In this case the components DT inherited from the C++ side must be
initialized by a C++ constructor, and the additional Ada components initialized by a C++ constructor, and the additional Ada components
of type DT are initialized by GNAT. The initialization of such an of type DT are initialized by GNAT. The initialization of such an
object is done either by default, or by means of a function returning object is done either by default, or by means of a function returning
an aggregate of type DT, or by means of an extended aggregate. an aggregate of type DT, or by means of an extension aggregate.
@smallexample @c ada @smallexample @c ada
Obj5 : DT; Obj5 : DT;
gcc/ada/sem_aggr.adb
...@@ -3083,6 +3083,7 @@ package body Sem_Aggr is ...@@ -3083,6 +3083,7 @@ package body Sem_Aggr is
else else
Root_Typ := Base_Type (Etype (Ancestor_Part (N))); Root_Typ := Base_Type (Etype (Ancestor_Part (N)));
end if; end if;
else else
Root_Typ := Root_Type (Typ); Root_Typ := Root_Type (Typ);
...@@ -3461,7 +3462,7 @@ package body Sem_Aggr is ...@@ -3461,7 +3462,7 @@ package body Sem_Aggr is
(Inner_Comp, New_Aggr, (Inner_Comp, New_Aggr,
Component_Associations (Aggr)); Component_Associations (Aggr));
-- Collect disciminant values, and recurse. -- Collect disciminant values and recurse
Add_Discriminant_Values Add_Discriminant_Values
(New_Aggr, Assoc_List); (New_Aggr, Assoc_List);
......
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