re PR ada/48711 (failure to bootstrap or build ada for mingw (value not in range…

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

gcc/ada/ChangeLog

+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

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;