This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Win32 build with MinGW/gcc-4.8+ which define some errno.h values >= 100
[perl5.git] / win32 / config_H.vc
index 2a5f016..f980639 100644 (file)
@@ -9,7 +9,7 @@
 
 /* Package name      : perl5
  * Source directory  : 
- * Configuration time: Tue Aug 13 13:55:09 2013
+ * Configuration time: Wed Sep 18 13:50:58 2013
  * Configured by     : shay
  * Target system     : 
  */
 #define OSNAME "MSWin32"               /**/
 #define OSVERS "6.1"           /**/
 
+/* MULTIARCH:
+ *     This symbol, if defined, signifies that the build
+ *     process will produce some binary files that are going to be
+ *     used in a cross-platform environment.  This is the case for
+ *     example with the NeXT "fat" binaries that contain executables
+ *     for several CPUs.
+ */
+/*#define MULTIARCH            / **/
+
 /* USE_CROSS_COMPILE:
  *     This symbol, if defined, indicates that Perl is being cross-compiled.
  */
 #define        PERL_TARGETARCH ""      /**/
 #endif
 
-/* MULTIARCH:
- *     This symbol, if defined, signifies that the build
- *     process will produce some binary files that are going to be
- *     used in a cross-platform environment.  This is the case for
- *     example with the NeXT "fat" binaries that contain executables
- *     for several CPUs.
- */
-/*#define MULTIARCH            / **/
-
 /* MEM_ALIGNBYTES:
  *     This symbol contains the number of bytes required to align a
  *     double, or a long double when applicable. Usual values are 2,
  *     function used to generate normalized random numbers.
  *     Values include 15, 16, 31, and 48.
  */
-#define Drand01()              (rand()/(double)((unsigned)1<<RANDBITS))                /**/
-#define Rand_seed_t            unsigned                /**/
-#define seedDrand01(x) srand((Rand_seed_t)x)   /**/
-#define RANDBITS               15              /**/
+#define Drand01()              Perl_drand48()          /**/
+#define Rand_seed_t            U32             /**/
+#define seedDrand01(x) Perl_drand48_init((Rand_seed_t)x)       /**/
+#define RANDBITS               48              /**/
 
 /* Select_fd_set_t:
  *     This symbol holds the type used for the 2nd, 3rd, and 4th
 /*#define PERL_VENDORLIB_EXP ""                / **/
 /*#define PERL_VENDORLIB_STEM ""               / **/
 
-/* VOIDFLAGS:
- *     This symbol indicates how much support of the void type is given by this
- *     compiler.  What various bits mean:
- *
- *         1 = supports declaration of void
- *         2 = supports arrays of pointers to functions returning void
- *         4 = supports comparisons between pointers to void functions and
- *                 addresses of void functions
- *         8 = supports declaration of generic void pointers
- *
- *     The package designer should define VOIDUSED to indicate the requirements
- *     of the package.  This can be done either by #defining VOIDUSED before
- *     including config.h, or by defining defvoidused in Myinit.U.  If the
- *     latter approach is taken, only those flags will be tested.  If the
- *     level of void support necessary is not present, defines void to int.
- */
-#ifndef VOIDUSED
-#define VOIDUSED 15
-#endif
-#define VOIDFLAGS 15
-#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
-#define void int               /* is void to be avoided? */
-#define M_VOID                 /* Xenix strikes again */
-#endif
-
 /* PERL_USE_DEVEL:
  *     This symbol, if defined, indicates that Perl was configured with
  *     -Dusedevel, to enable development features.  This should not be
 #define USE_DYNAMIC_LOADING            /**/
 
 /* FFLUSH_NULL:
- *     This symbol, if defined, tells that fflush(NULL) does flush
- *     all pending stdio output.
+ *     This symbol, if defined, tells that fflush(NULL) correctly
+ *     flushes all pending stdio output without side effects. In
+ *     particular, on some platforms calling fflush(NULL) *still*
+ *     corrupts STDIN if it is a pipe.
  */
 /* FFLUSH_ALL:
  *     This symbol, if defined, tells that to flush