diff options
| author | Florian Weimer <fw@deneb.enyo.de> | 2011-07-14 11:27:22 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-07-14 09:27:22 +0000 |
| commit | 696b1960a5e72f91583370aeadb477800e8e7e3a (patch) | |
| tree | a396213071a122c510fde1a4daca3fdf25909b3a /gcc | |
| parent | eb1dcdffa760f1bac0a9e95697be7f95c9485c60 (diff) | |
| download | gcc-696b1960a5e72f91583370aeadb477800e8e7e3a.zip gcc-696b1960a5e72f91583370aeadb477800e8e7e3a.tar.gz gcc-696b1960a5e72f91583370aeadb477800e8e7e3a.tar.bz2 | |
re PR ada/48711 (failure to bootstrap or build ada for mingw (value not in range of type "Interfaces.C.unsigned" in g-socthi.adb))
PR ada/48711
* g-socthi-mingw.adb (Fill): Guard against invalid MSG_WAITALL.
From-SVN: r176265
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-socthi-mingw.adb | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 66bf974..fc1175b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2011-07-14 Florian Weimer <fw@deneb.enyo.de> + + PR ada/48711 + * g-socthi-mingw.adb (Fill): Guard against invalid MSG_WAITALL. + 2011-07-13 Eric Botcazou <ebotcazou@adacore.com> * gcc-interface/utils.c (build_vms_descriptor32): Skip the 32-bit diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 727a69d..697425e 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -277,7 +277,8 @@ package body GNAT.Sockets.Thin is use type C.size_t; Fill : constant Boolean := - (C.unsigned (Flags) and SOSC.MSG_WAITALL) /= 0; + SOSC.MSG_WAITALL /= -1 + and then (C.unsigned (Flags) and SOSC.MSG_WAITALL) /= 0; -- Is the MSG_WAITALL flag set? If so we need to fully fill all vectors Res : C.int; |