diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-09 20:25:16 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-09 20:48:34 -0400 |
commit | a029fa42754a5675a73871649755ffac343f2dac (patch) | |
tree | 0bde048033282c78c53b47dd41724e2250cc6361 /pp_ctl.c | |
parent | 53153bbf7da8792e6dc817a38403dbb42e003baa (diff) | |
download | perl-a029fa42754a5675a73871649755ffac343f2dac.tar.gz |
If USE_LONG_DOUBLE, NVff is PERL_PRIldbl.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 16 |
1 files changed, 2 insertions, 14 deletions
@@ -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. */ |