diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-01 18:11:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-01 18:11:09 +0000 |
| commit | f320eb4167c8aebaa20dea40f0d912aa4ecc4c86 (patch) | |
| tree | 4a9b2a8d05c9cce8d35acf4cf6e49b1431249a1e /sv.c | |
| parent | 19a08b3d31a2087ec6000e426f32be2be2069169 (diff) | |
| download | perl-f320eb4167c8aebaa20dea40f0d912aa4ecc4c86.tar.gz | |
A further patch from Spider Boardman for long doubleness.
p4raw-id: //depot/cfgperl@5407
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -6230,8 +6230,9 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV *--eptr = c; #ifdef USE_LONG_DOUBLE { - char* p = PERL_PRIfldbl + sizeof(PERL_PRIfldbl) - 3; - while (p >= PERL_PRIfldbl) { *--eptr = *p--; } + char const my_prifldbl[] = PERL_PRIfldbl; + char const *p = my_prifldbl + sizeof my_prifldbl - 3; + while (p >= my_prifldbl) { *--eptr = *p--; } } #endif if (has_precis) { |