diff options
| -rwxr-xr-x | Configure | 31 | ||||
| -rw-r--r-- | config_h.SH | 6 | ||||
| -rw-r--r-- | sv.c | 2 |
3 files changed, 37 insertions, 2 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Tue Aug 10 20:19:08 EET DST 1999 [metaconfig 3.0 PL70] +# Generated on Thu Aug 12 22:03:15 EET DST 1999 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.com) cat >/tmp/c1$$ <<EOF @@ -847,6 +847,7 @@ trnl='' uidtype='' archname64='' use64bits='' +uselongdouble='' usemultiplicity='' nm_opt='' nm_so_opt='' @@ -6449,6 +6450,33 @@ fi cat <<EOM +Perl can be built to take advantage of long doubles which +(if available) may give more accuracy and range for floating point +numbers. To do so, Configure must be run with -Duselongdouble. + +If this doesn't make any sense to you, just accept the default 'n'. +EOM +case "$uselongdouble" in +$define|true|[yY]*) dflt='y';; +*) dflt='n';; +esac +rp='Try to use long doubles if available?' +. ./myread +case "$ans" in +y|Y) + val="$define" + ccflags="$ccflags -DUSE_LONG_DOUBLE" + ;; +*) + val="$undef" + ;; +esac +set uselongdouble +eval $setvar + + +cat <<EOM + Previous version of $package used the standard IO mechanisms as defined in <stdio.h>. Versions 5.003_02 and later of perl allow alternate IO mechanisms via a "PerlIO" abstraction, but the stdio mechanism is still @@ -14076,6 +14104,7 @@ uname='$uname' uniq='$uniq' use64bits='$use64bits' usedl='$usedl' +uselongdouble='$uselongdouble' usemultiplicity='$usemultiplicity' usemymalloc='$usemymalloc' usenm='$usenm' diff --git a/config_h.SH b/config_h.SH index 41b4ccc841..f0643dadd3 100644 --- a/config_h.SH +++ b/config_h.SH @@ -2589,6 +2589,12 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un- */ #$use64bits USE_64_BITS /**/ +/* USE_LONG_DOUBLE: + * This symbol, if defined, indicates that long doubles should + * be used when available. + */ +#$uselongdouble USE_LONG_DOUBLE /**/ + /* MULTIPLICITY: * This symbol, if defined, indicates that Perl should * be built to use multiplicity. @@ -5130,7 +5130,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV #ifdef USE_LONG_DOUBLE { char* p = PERL_PRIfldbl + sizeof(PERL_PRIfldbl) - 3; - while (p >= PERL_PRIfldbl) { *--eptr = *p-- } + while (p >= PERL_PRIfldbl) { *--eptr = *p--; } } #endif if (has_precis) { |