This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
run/locale.t: Add explanation for when tests fail
[perl5.git] / win32 / config_H.gc
index 6da645a..da310af 100644 (file)
@@ -9,7 +9,7 @@
 
 /* Package name      : perl5
  * Source directory  : 
- * Configuration time: Tue Aug 13 14:20:46 2013
+ * Configuration time: Wed Sep 18 14:03:46 2013
  * Configured by     : shay
  * Target system     : 
  */
  */
 /*#define I_NETINET_IN / **/
 
-/* I_SFIO:
- *     This symbol, if defined, indicates to the C program that it should
- *     include <sfio.h>.
- */
-/*#define      I_SFIO          / **/
-
 /* I_STDDEF:
  *     This symbol, if defined, indicates that <stddef.h> exists and should
  *     be included.
 #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,
  *     so the default case (for NeXT) is big endian to catch them.
  *     This might matter for NeXT 3.0.
  */
-#if defined(USE_CROSS_COMPILE) || defined(MULTIARCH)
+#if defined(MULTIARCH)
 #  ifdef __LITTLE_ENDIAN__
 #    if LONGSIZE == 4
 #      define BYTEORDER 0x1234
  *     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 HAS_SETPROCTITLE             / **/
 
-/* USE_SFIO:
- *     This symbol, if defined, indicates that sfio should
- *     be used.
- */
-/*#define      USE_SFIO                / **/
-
 /* HAS_SIGNBIT:
  *     This symbol, if defined, indicates that the signbit routine is
  *     available to check if the given number has the sign bit set.
 #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