diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 12:07:22 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-20 12:07:22 +0000 |
commit | 62bc73c24215ed5469c19de2a416da00971bfeab (patch) | |
tree | 168b15956913a336adc0a6fde0fe8c5a40f77b07 /gcc | |
parent | 01ff6144d4f8716ebb78b8dcf15a8245a8374b15 (diff) | |
download | ppe42-gcc-62bc73c24215ed5469c19de2a416da00971bfeab.tar.gz ppe42-gcc-62bc73c24215ed5469c19de2a416da00971bfeab.zip |
2008-08-20 Robert Dewar <dewar@adacore.com>
* g-socket.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139274 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/g-socket.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 2f729bd0314..0906aecc8ec 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -1281,6 +1281,7 @@ package body GNAT.Sockets is procedure Initialize (Process_Blocking_IO : Boolean) is Expected : constant Boolean := not SOSC.Thread_Blocking_IO; + begin if Process_Blocking_IO /= Expected then raise Socket_Error with |