From: Florian Weimer <fw@deneb.enyo.de>
Date: Thu, 14 Jul 2011 09:27:22 +0000 (+0200)
Subject: re PR ada/48711 (failure to bootstrap or build ada for mingw (value not in range... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=696b1960a5e72f91583370aeadb477800e8e7e3a;p=gcc.git

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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 66bf9746f7b..fc1175b54d8 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 727a69ddba9..697425ef227 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;