diff options
| -rw-r--r-- | gcc/ada/g-socthi-mingw.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 8c048ee..c853ce4 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -488,6 +488,7 @@ package body GNAT.Sockets.Thin is (Errno : Integer) return C.Strings.chars_ptr is use GNAT.Sockets.SOSC; + begin case Errno is when EINTR => return Error_Messages (N_EINTR); |