diff options
author | Robert Dewar <dewar@adacore.com> | 2008-08-20 14:07:22 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 14:07:22 +0200 |
commit | 6bfee0770f44c3324d9cadbb4af8a3bb54f117f1 (patch) | |
tree | 168b15956913a336adc0a6fde0fe8c5a40f77b07 | |
parent | cf5028e36d20e3fb646b4553de89b2a04ca0503a (diff) | |
download | gcc-6bfee0770f44c3324d9cadbb4af8a3bb54f117f1.zip gcc-6bfee0770f44c3324d9cadbb4af8a3bb54f117f1.tar.gz gcc-6bfee0770f44c3324d9cadbb4af8a3bb54f117f1.tar.bz2 |
g-socket.adb: Minor reformatting
2008-08-20 Robert Dewar <dewar@adacore.com>
* g-socket.adb: Minor reformatting
From-SVN: r139274
-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 2f729bd..0906aec 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 |