summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-09-09 20:25:16 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-09-09 20:48:34 -0400
commita029fa42754a5675a73871649755ffac343f2dac (patch)
tree0bde048033282c78c53b47dd41724e2250cc6361 /pp_ctl.c
parent53153bbf7da8792e6dc817a38403dbb42e003baa (diff)
downloadperl-a029fa42754a5675a73871649755ffac343f2dac.tar.gz
If USE_LONG_DOUBLE, NVff is PERL_PRIldbl.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c16
1 files changed, 2 insertions, 14 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 5e671eec02..0f69f977d3 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -793,26 +793,14 @@ PP(pp_formline)
case FF_0DECIMAL: /* like FF_DECIMAL but for 0### */
arg = *fpc++;
-#if defined(USE_LONG_DOUBLE)
fmt = (const char *)
- ((arg & FORM_NUM_POINT) ?
- "%#0*.*" PERL_PRIfldbl : "%0*.*" PERL_PRIfldbl);
-#else
- fmt = (const char *)
- ((arg & FORM_NUM_POINT) ?
- "%#0*.*f" : "%0*.*f");
-#endif
+ ((arg & FORM_NUM_POINT) ? "%#0*.*" NVff : "%0*.*" NVff);
goto ff_dec;
case FF_DECIMAL: /* do @##, ^##, where <arg>=(precision|flags) */
arg = *fpc++;
-#if defined(USE_LONG_DOUBLE)
fmt = (const char *)
- ((arg & FORM_NUM_POINT) ? "%#*.*" PERL_PRIfldbl : "%*.*" PERL_PRIfldbl);
-#else
- fmt = (const char *)
- ((arg & FORM_NUM_POINT) ? "%#*.*f" : "%*.*f");
-#endif
+ ((arg & FORM_NUM_POINT) ? "%#*.*" NVff : "%*.*" NVff);
ff_dec:
/* If the field is marked with ^ and the value is undefined,
blank it out. */