diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 10:46:15 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 10:46:15 +0100 |
| commit | bee2a781e144a47928c35b12aaaf0ce071224169 (patch) | |
| tree | f1ee73bea45b6f0d10e5a9e48513bf941eb1d7d0 | |
| parent | d56e7acd6325f983f5a675c187bc465ea628502e (diff) | |
| download | gcc-bee2a781e144a47928c35b12aaaf0ce071224169.zip gcc-bee2a781e144a47928c35b12aaaf0ce071224169.tar.gz gcc-bee2a781e144a47928c35b12aaaf0ce071224169.tar.bz2 | |
Minor reformatting.
From-SVN: r154763
| -rw-r--r-- | gcc/ada/g-stseme.adb | 7 | ||||
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/g-stseme.adb b/gcc/ada/g-stseme.adb index b09af1d..4b1720f 100644 --- a/gcc/ada/g-stseme.adb +++ b/gcc/ada/g-stseme.adb @@ -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 diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 99c24a1..899b1a0 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -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 |