diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-08 16:49:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-08 16:49:44 +0200 |
| commit | ef7c5692f12132cb8672a61c67070deef4fd600e (patch) | |
| tree | b8ec63645bea28745bba045ef8d3e362144b65d6 /gcc/ada/g-socket.ads | |
| parent | 4da17013c086241754907c0560c4c84427aec3ac (diff) | |
| download | gcc-ef7c5692f12132cb8672a61c67070deef4fd600e.zip gcc-ef7c5692f12132cb8672a61c67070deef4fd600e.tar.gz gcc-ef7c5692f12132cb8672a61c67070deef4fd600e.tar.bz2 | |
[multiple changes]
2009-04-08 Thomas Quinot <quinot@adacore.com>
* exp_util.adb: Minor comment fix
2009-04-08 Robert Dewar <dewar@adacore.com>
* g-socket.ads: Fix bad syntax in pragma Obsolescent
* par-ch2.adb (Scan_Pragma_Argument_Association): Check for error of
argument with no identifier following one that has an identifier. Was
missed in some cases.
* sem_prag.adb (Analyze_Pragma, case Check_Policy): Allow Policy
identifier.
(Analyze_Pragma, case Obsolescent): Allow Message, Version identifiers
* snames.adb: Add Name_Policy
* snames.ads: Add Name_Policy
From-SVN: r145744
Diffstat (limited to 'gcc/ada/g-socket.ads')
| -rw-r--r-- | gcc/ada/g-socket.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 8cb7ea7..7dddd3d 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -386,8 +386,8 @@ package GNAT.Sockets is procedure Initialize (Process_Blocking_IO : Boolean); pragma Obsolescent - (Entity => Initialize, - "passing a parameter to Initialize is not supported anymore"); + (Entity => Initialize, + Message => "passing a parameter to Initialize is not supported anymore"); -- Previous versions of GNAT.Sockets used to require the user to indicate -- whether socket I/O was process- or thread-blocking on the platform. -- This property is now determined automatically when the run-time library |