Minor reformatting.

From-SVN: r154763
This commit is contained in:
Arnaud Charlet 2009-11-30 10:46:15 +01:00
parent d56e7acd63
commit bee2a781e1
2 changed files with 8 additions and 1 deletions

View File

@ -35,9 +35,15 @@
-- ones: there is a specific variant of this function in g-socthi-mingw.adb.
with Ada.Unchecked_Conversion;
with System.CRTL;
separate (GNAT.Sockets.Thin)
--------------------------
-- Socket_Error_Message --
--------------------------
function Socket_Error_Message
(Errno : Integer) return C.Strings.chars_ptr
is
@ -56,6 +62,7 @@ is
begin
C_Msg := To_Chars_Ptr (System.CRTL.strerror (Errno));
if C_Msg = C.Strings.Null_Ptr then
return Unknown_System_Error;
else

View File

@ -1251,7 +1251,7 @@ package body Sem_Ch4 is
Analyze_Expression (Else_Expr);
end if;
if not Is_Overloaded (Then_Expr) then
if not Is_Overloaded (Then_Expr) then
Set_Etype (N, Etype (Then_Expr));
else
declare