OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Arnaud Charlet 2009-05-06 11:29:35 +02:00
parent 4e0d20ca84
commit 69a0c1741e
10 changed files with 64 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gcc/ada/ChangeLog
View File

@ -1,3 +1,24 @@
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>
* gnat_ugn.texi, gnat_rm.texi: Add missing documentation for warnings

2
gcc/ada/exp_attr.adb
View File

@ -1218,7 +1218,7 @@ package body Exp_Attr is
-- A reference to P'Body_Version or P'Version is expanded to
-- Vnn : Unsigned;
-- pragma Import (C, Vnn, "uuuuT";
-- pragma Import (C, Vnn, "uuuuT");
-- ...
-- Get_Version_String (Vnn)

6
gcc/ada/g-debuti.adb
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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;
package body GNAT.Debug_Utilities is
H : constant array (0 .. 15) of Character := "0123456789ABCDEF";
-- Table of hex digits
H : constant array (0 .. 15) of Character := "0123456789ABCDEF";
-- Table of hex digits
-----------
-- Image --

13
gcc/ada/g-dyntab.adb
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -85,6 +85,17 @@ package body GNAT.Dynamic_Tables is
Set_Item (T, Table_Index_Type (T.P.Last_Val + 1), New_Val);
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 --
--------------------

5
gcc/ada/g-dyntab.ads
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -169,6 +169,9 @@ package GNAT.Dynamic_Tables is
-- i.e. the table size is increased by one, and the given new item
-- 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
(T : in out Instance;
Index : Table_Index_Type;

6
gcc/ada/g-socthi-vms.adb
View File

@ -51,7 +51,7 @@ package body GNAT.Sockets.Thin is
-- 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
-- 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.
Quantum : constant Duration := 0.2;
@ -215,7 +215,6 @@ package body GNAT.Sockets.Thin is
if Res = Failure and then Errno = SOSC.EISCONN then
return Thin_Common.Success;
else
return Res;
end if;
@ -310,6 +309,7 @@ package body GNAT.Sockets.Thin is
pragma Import (Ada, GNAT_Msg);
VMS_Msg : aliased VMS_Msghdr := VMS_Msghdr (GNAT_Msg);
begin
loop
Res := Syscall_Recvmsg (S, VMS_Msg'Address, Flags);
@ -319,6 +319,7 @@ package body GNAT.Sockets.Thin is
or else Errno /= SOSC.EWOULDBLOCK;
delay Quantum;
end loop;
GNAT_Msg := Msghdr (VMS_Msg);
return ssize_t (Res);
@ -350,6 +351,7 @@ package body GNAT.Sockets.Thin is
or else Errno /= SOSC.EWOULDBLOCK;
delay Quantum;
end loop;
GNAT_Msg := Msghdr (VMS_Msg);
return ssize_t (Res);

13
gcc/ada/g-table.adb
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -96,6 +96,17 @@ package body GNAT.Table is
Set_Item (Table_Index_Type (Last_Val + 1), New_Val);
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 --
--------------------

5
gcc/ada/g-table.ads
View File

@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -184,6 +184,9 @@ package GNAT.Table is
-- i.e. the table size is increased by one, and the given new item
-- stored in the newly created table element.
procedure Append_All (New_Vals : Table_Type);
-- Appends all components of New_Vals
procedure Set_Item
(Index : Table_Index_Type;
Item : Table_Component_Type);

2
gcc/ada/gnat_ugn.texi
View File

@ -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
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
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
Obj5 : DT;

3
gcc/ada/sem_aggr.adb
View File

@ -3083,6 +3083,7 @@ package body Sem_Aggr is
else
Root_Typ := Base_Type (Etype (Ancestor_Part (N)));
end if;
else
Root_Typ := Root_Type (Typ);
@ -3461,7 +3462,7 @@ package body Sem_Aggr is
(Inner_Comp, New_Aggr,
Component_Associations (Aggr));
-- Collect disciminant values, and recurse.
-- Collect disciminant values and recurse
Add_Discriminant_Values
(New_Aggr, Assoc_List);