diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-11 19:57:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-11 19:57:23 +0000 |
| commit | fc0bf671453fcec7b45b1911adfd5f2cb3c807b5 (patch) | |
| tree | a4b4ad3661b2a0f82f8fe3ee5ab8565da7e3d409 | |
| parent | 9a2ff54bd438cc69afafd5eb1abfa632ccd44708 (diff) | |
| download | perl-fc0bf671453fcec7b45b1911adfd5f2cb3c807b5.tar.gz | |
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
| -rw-r--r-- | ext/XS/APItest/APItest.xs | 2 | ||||
| -rw-r--r-- | win32/config_H.bc | 8 | ||||
| -rw-r--r-- | win32/config_H.gc | 6 |
3 files changed, 8 insertions, 8 deletions
diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs index 085198ace4..1e8ea35d01 100644 --- 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 5be778c5af..3fa348c71f 100644 --- 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 a968ec6f3c..85c000a83e 100644 --- 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: |