Skip to content

R
riscv-gcc-1
Commit bee2a781 by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r154763
parent d56e7acd
Showing with 7 additions and 0 deletions
gcc/ada/g-stseme.adb
...@@ -35,9 +35,15 @@ ...@@ -35,9 +35,15 @@
-- ones: there is a specific variant of this function in g-socthi-mingw.adb. -- ones: there is a specific variant of this function in g-socthi-mingw.adb.
with Ada.Unchecked_Conversion; with Ada.Unchecked_Conversion;
with System.CRTL; with System.CRTL;
separate (GNAT.Sockets.Thin) separate (GNAT.Sockets.Thin)
--------------------------
-- Socket_Error_Message --
--------------------------
function Socket_Error_Message function Socket_Error_Message
(Errno : Integer) return C.Strings.chars_ptr (Errno : Integer) return C.Strings.chars_ptr
is is
...@@ -56,6 +62,7 @@ is ...@@ -56,6 +62,7 @@ is
begin begin
C_Msg := To_Chars_Ptr (System.CRTL.strerror (Errno)); C_Msg := To_Chars_Ptr (System.CRTL.strerror (Errno));
if C_Msg = C.Strings.Null_Ptr then if C_Msg = C.Strings.Null_Ptr then
return Unknown_System_Error; return Unknown_System_Error;
else else
......
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