[multiple changes]
2010-06-22 Robert Dewar <dewar@adacore.com> * ali-util.ads: Minor comment update. * g-socthi-mingw.adb: Minor reformatting. 2010-06-22 Ed Falis <falis@adacore.com> * s-osinte-vxworks.ads: take sigset_t definition from System.VxWorks.Ext * s-vxwext.ads, s-vxwext-kernel.ads, s-vxwext-rtp.ads: Define sigset_t for specific versions of VxWorks. 2010-06-22 Emmanuel Briot <briot@adacore.com> * gnat_rm.texi, gnat_ugn.texi, projects.texi: Remove all project files related sections from user's guide and reference manual, since they have now been merged together into a separate document (projects.texi). This removes a lot of duplication where attributes where described in several places. The grammar for the project files is now in each of the sections (packages,expressions,...) instead of being duplicates in two other sections (one in the user's guide that contained the full grammar, and various sections in the rm that contained extracts of the same grammar). Added the full list of all supported attributes, since existing lists were incomplete Rename "associative array" into "indexed attribute" Remove sections that were duplicates ("External References in Project Files" and "External Values", and "Project Extensions" for instance). The list of valid packages in project files is now in a single place. 2010-06-22 Ed Schonberg <schonberg@adacore.com> * sem_ch3.adb (Add_Internal_Interface_Entities): If Find_Primitive_Covering_Interface does not find the operation, it may be because of a name conflict between the inherited operation and a local non-overloadable name. In that case look for the operation among the primitive operations of the type. This search must succeed regardless of visibility. From-SVN: r161150
This commit is contained in:
parent
d2062f5203
commit
b2cacbfe4b
@ -1,3 +1,43 @@
|
||||
2010-06-22 Robert Dewar <dewar@adacore.com>
|
||||
|
||||
* ali-util.ads: Minor comment update.
|
||||
* g-socthi-mingw.adb: Minor reformatting.
|
||||
|
||||
2010-06-22 Ed Falis <falis@adacore.com>
|
||||
|
||||
* s-osinte-vxworks.ads: take sigset_t definition from System.VxWorks.Ext
|
||||
* s-vxwext.ads, s-vxwext-kernel.ads, s-vxwext-rtp.ads: Define sigset_t
|
||||
for specific versions of VxWorks.
|
||||
|
||||
2010-06-22 Emmanuel Briot <briot@adacore.com>
|
||||
|
||||
* gnat_rm.texi, gnat_ugn.texi, projects.texi: Remove all project files
|
||||
related sections from user's guide and reference manual, since they
|
||||
have now been merged together into a separate document (projects.texi).
|
||||
This removes a lot of duplication where attributes where described
|
||||
in several places.
|
||||
The grammar for the project files is now in each of the sections
|
||||
(packages,expressions,...) instead of being duplicates in two other
|
||||
sections (one in the user's guide that contained the full grammar,
|
||||
and various sections in the rm that contained extracts of the same
|
||||
grammar).
|
||||
Added the full list of all supported attributes, since existing lists
|
||||
were incomplete
|
||||
Rename "associative array" into "indexed attribute"
|
||||
Remove sections that were duplicates ("External References in
|
||||
Project Files" and "External Values", and "Project Extensions"
|
||||
for instance). The list of valid packages in project files is now in
|
||||
a single place.
|
||||
|
||||
2010-06-22 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* sem_ch3.adb (Add_Internal_Interface_Entities): If
|
||||
Find_Primitive_Covering_Interface does not find the operation, it may
|
||||
be because of a name conflict between the inherited operation and a
|
||||
local non-overloadable name. In that case look for the operation among
|
||||
the primitive operations of the type. This search must succeed
|
||||
regardless of visibility.
|
||||
|
||||
2010-06-22 Pascal Obry <obry@adacore.com>
|
||||
|
||||
* g-socthi-mingw.adb: Properly honor MSG_WAITALL in recvmsg.
|
||||
|
@ -32,9 +32,8 @@ package ALI.Util is
|
||||
-- Source File Table --
|
||||
-----------------------
|
||||
|
||||
-- A source file table entry is built for every source file that is in the
|
||||
-- source dependency table of any of the ALI files that make up the current
|
||||
-- program.
|
||||
-- A table entry is built for every source file that is in the source
|
||||
-- dependency table of any ALI file that is part of the current program.
|
||||
|
||||
No_Source_Id : constant Source_Id := Source_Id'First;
|
||||
-- Special value indicating no Source table entry
|
||||
|
@ -346,16 +346,21 @@ package body GNAT.Sockets.Thin is
|
||||
|
||||
-- If all the data that was initially available read, do not
|
||||
-- attempt to receive more, since this might block, or merge data
|
||||
-- from successive datagrams for a datagram-oriented
|
||||
-- socket. We still try to receive more if we need to fill all
|
||||
-- vectors (MSG_WAITALL flag is set).
|
||||
-- from successive datagrams for a datagram-oriented socket. We
|
||||
-- still try to receive more if we need to fill all vectors
|
||||
-- (MSG_WAITALL flag is set).
|
||||
|
||||
exit when Natural (Count) >= Req.Size
|
||||
and then
|
||||
(not Fill -- either we are not in fill mode
|
||||
or else -- or last vector filled
|
||||
(Interfaces.C.size_t (Iov_Index) = Iovec'Last
|
||||
and then Current_Iovec.Length = 0));
|
||||
|
||||
-- Either we are not in fill mode
|
||||
|
||||
(not Fill
|
||||
|
||||
-- Or else last vector filled
|
||||
|
||||
or else (Interfaces.C.size_t (Iov_Index) = Iovec'Last
|
||||
and then Current_Iovec.Length = 0));
|
||||
end if;
|
||||
end loop;
|
||||
|
||||
|
1134
gcc/ada/gnat_rm.texi
1134
gcc/ada/gnat_rm.texi
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
4032
gcc/ada/projects.texi
Normal file
4032
gcc/ada/projects.texi
Normal file
File diff suppressed because it is too large
Load Diff
@ -7,7 +7,7 @@
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 1991-1994, Florida State University --
|
||||
-- Copyright (C) 1995-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1995-2010, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNARL 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- --
|
||||
@ -155,7 +155,7 @@ package System.OS_Interface is
|
||||
SIG_DFL : constant := 0;
|
||||
SIG_IGN : constant := 1;
|
||||
|
||||
type sigset_t is private;
|
||||
subtype sigset_t is System.Vxworks.Ext.sigset_t;
|
||||
|
||||
type struct_sigaction is record
|
||||
sa_handler : System.Address;
|
||||
@ -490,8 +490,6 @@ package System.OS_Interface is
|
||||
-- For uniprocessor systems return ERROR status.
|
||||
|
||||
private
|
||||
type sigset_t is new unsigned_long_long;
|
||||
|
||||
type pid_t is new int;
|
||||
|
||||
ERROR_PID : constant pid_t := -1;
|
||||
|
@ -6,7 +6,7 @@
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2008-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 2008-2010, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNARL 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,6 +39,8 @@ package System.VxWorks.Ext is
|
||||
subtype SEM_ID is Long_Integer;
|
||||
-- typedef struct semaphore *SEM_ID;
|
||||
|
||||
type sigset_t is mod 2 ** Interfaces.C.long_long'Size;
|
||||
|
||||
type t_id is new Long_Integer;
|
||||
subtype int is Interfaces.C.int;
|
||||
|
||||
|
@ -6,7 +6,7 @@
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2008-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 2008-2010, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNARL 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,6 +39,8 @@ package System.VxWorks.Ext is
|
||||
subtype SEM_ID is Long_Integer;
|
||||
-- typedef struct semaphore *SEM_ID;
|
||||
|
||||
type sigset_t is mod 2 ** Interfaces.C.long_long'Size;
|
||||
|
||||
type t_id is new Long_Integer;
|
||||
subtype int is Interfaces.C.int;
|
||||
|
||||
|
@ -6,7 +6,7 @@
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2008-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 2008-2010, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNARL 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,10 @@ package System.VxWorks.Ext is
|
||||
subtype SEM_ID is Long_Integer;
|
||||
-- typedef struct semaphore *SEM_ID;
|
||||
|
||||
type sigset_t is mod 2 ** Interfaces.C.long'Size;
|
||||
|
||||
type t_id is new Long_Integer;
|
||||
|
||||
subtype int is Interfaces.C.int;
|
||||
|
||||
type Interrupt_Handler is access procedure (parameter : System.Address);
|
||||
|
@ -1551,7 +1551,34 @@ package body Sem_Ch3 is
|
||||
(Tagged_Type => Tagged_Type,
|
||||
Iface_Prim => Iface_Prim);
|
||||
|
||||
pragma Assert (Present (Prim));
|
||||
if No (Prim) then
|
||||
|
||||
-- In some are cases, a name conflict may have
|
||||
-- kept the operation completely hidden. Look for
|
||||
-- it in the list of primitive operations of the
|
||||
-- type.
|
||||
|
||||
declare
|
||||
El : Elmt_Id :=
|
||||
First_Elmt (Primitive_Operations (Tagged_Type));
|
||||
begin
|
||||
while Present (El) loop
|
||||
Prim := Node (El);
|
||||
if Is_Subprogram (Prim)
|
||||
and then Alias (Prim) = Iface_Prim
|
||||
then
|
||||
exit;
|
||||
end if;
|
||||
Next_Elmt (El);
|
||||
end loop;
|
||||
end;
|
||||
end if;
|
||||
|
||||
if No (Prim) then
|
||||
-- If the operation was not explicitly overridden, it
|
||||
-- should have been inherited as an abstract operation.
|
||||
raise Program_Error;
|
||||
end if;
|
||||
|
||||
Derive_Subprogram
|
||||
(New_Subp => New_Subp,
|
||||
|
Loading…
Reference in New Issue
Block a user