Not that I know anything about Windows compilers

but Google leads me into believing that while Borland and
GCC support the ANSI way of printing long doubles (%L),
Visual C really doesn't support printing them.

p4raw-id: //depot/perl@17193

diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs
index 085198a..1e8ea35 100644 (file)
--- a/ext/XS/APItest/APItest.xs
+++ b/ext/XS/APItest/APItest.xs
@@ -25,7 +25,7 @@ void
 print_long_double()
         CODE:
 #ifdef HAS_LONG_DOUBLE
-#   if LONG_DOUBLESIZE > DOUBLESIZE
+#   if defined(PERL_PRIfldbl) && (LONG_DOUBLESIZE > DOUBLESIZE)
         long double val = 7.0;
         printf("%5.3" PERL_PRIfldbl "\n",val);
 #   else

diff --git a/win32/config_H.bc b/win32/config_H.bc
index 5be778c..3fa348c 100644 (file)
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -2927,10 +2927,10 @@
  *     This symbol, if defined, contains the string used by stdio to
  *     format long doubles (format 'f') for input.
  */
-/*#define PERL_PRIfldbl        "f"     /**/
-/*#define PERL_PRIgldbl        "g"     /**/
-/*#define PERL_PRIeldbl        "e"     /**/
-/*#define PERL_SCNfldbl        "f"     /**/
+#define PERL_PRIfldbl  "Lf"    /**/
+#define PERL_PRIgldbl  "Lg"    /**/
+#define PERL_PRIeldbl  "Le"    /**/
+#define PERL_SCNfldbl  "f"     /**/
 
 /* Off_t:
  *     This symbol holds the type used to declare offsets in the kernel.

diff --git a/win32/config_H.gc b/win32/config_H.gc
index a968ec6..85c000a 100644 (file)
--- a/win32/config_H.gc
+++ b/win32/config_H.gc
@@ -2927,9 +2927,9 @@
  *     This symbol, if defined, contains the string used by stdio to
  *     format long doubles (format 'f') for input.
  */
-/*#define PERL_PRIfldbl        "f"     /**/
-/*#define PERL_PRIgldbl        "g"     /**/
-/*#define PERL_PRIeldbl        "e"     /**/
+#define PERL_PRIfldbl  "Lf"    /**/
+#define PERL_PRIgldbl  "Lg"    /**/
+#define PERL_PRIeldbl  "Le"    /**/
 /*#define PERL_SCNfldbl        "f"     /**/
 
 /* Off_t: