diff options
| author | Dominic Dunlop <domo@computer.org> | 2000-08-16 00:20:52 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-15 23:33:23 +0000 |
| commit | d764f01a54c0f82174c22184bb83b9dca8be1913 (patch) | |
| tree | 8bbd5001c020c405b11f3c868d9926a21019b959 /Configure | |
| parent | 9d5a2765247106c08687386ac3cf275028b5a54a (diff) | |
| download | perl-d764f01a54c0f82174c22184bb83b9dca8be1913.tar.gz | |
(Retracted by #6660)
Subject: [PATCH perl-current] make s?printf() produce two exponent digits where possible
Message-Id: <p04320403b5bf4c32d381@[192.168.1.4]>
p4raw-id: //depot/perl@6645
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 32 |
1 files changed, 31 insertions, 1 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 15 17:35:03 EET DST 2000 [metaconfig 3.0 PL70] +# Generated on Wed Aug 16 02:10:47 EET DST 2000 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.com) cat >/tmp/c1$$ <<EOF @@ -455,6 +455,7 @@ d_pause='' d_pipe='' d_poll='' d_portable='' +d_printf_exp_digits='' d_old_pthread_create_joinable='' old_pthread_create_joinable='' d_pthread_yield='' @@ -10479,6 +10480,34 @@ eval $inlibc set poll d_poll eval $inlibc +echo " " +echo "Checking how many exponent digits your sprintf formats use..." +$cat >try.c <<'EOSC' +#include <stdio.h> +int main() { + char b[10]; + exit(sprintf(b, "%0.1e", 1.2) - 5); +} +EOSC +set try +if eval $compile; then + ./try$_exe + case "$?" in + 2|3) d_printf_exp_digits=$? ;; + esac +fi +case "$d_printf_exp_digits" in +2|3) echo "Your sprintf seems to use $d_printf_exp_digits exponent digits." + ;; +*) cat <<EOM >&4 +I do not understand what your sprintf is saying. +I'm guessing it uses at least 2 exponent digits. +EOM + d_printf_exp_digits=2 + ;; +esac +$rm -f try try.* + : see whether the various POSIXish _yields exist $cat >try.c <<EOP @@ -15542,6 +15571,7 @@ d_phostname='$d_phostname' d_pipe='$d_pipe' d_poll='$d_poll' d_portable='$d_portable' +d_printf_exp_digits='$d_printf_exp_digits' d_pthread_yield='$d_pthread_yield' d_pwage='$d_pwage' d_pwchange='$d_pwchange' |