Skip to content

R
riscv-gcc-1
Commit 6bfee077 by Robert Dewar Committed by Arnaud Charlet
Options

g-socket.adb: Minor reformatting 

2008-08-20  Robert Dewar  <dewar@adacore.com>

	* g-socket.adb: Minor reformatting

From-SVN: r139274
parent cf5028e3
Showing with 1 additions and 0 deletions
gcc/ada/g-socket.adb
...@@ -1281,6 +1281,7 @@ package body GNAT.Sockets is ...@@ -1281,6 +1281,7 @@ package body GNAT.Sockets is
procedure Initialize (Process_Blocking_IO : Boolean) is procedure Initialize (Process_Blocking_IO : Boolean) is
Expected : constant Boolean := not SOSC.Thread_Blocking_IO; Expected : constant Boolean := not SOSC.Thread_Blocking_IO;
begin begin
if Process_Blocking_IO /= Expected then if Process_Blocking_IO /= Expected then
raise Socket_Error with raise Socket_Error with
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment