diff options
| author | John Peacock <jpeacock@rowman.com> | 2001-10-24 12:53:29 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-25 00:03:07 +0000 |
| commit | 9fd42072b1947c42c95f243fb6e7da4bdf17f182 (patch) | |
| tree | af5d47ba5899ead94d31556c4eaa74455aff8656 /configure.com | |
| parent | c8c3aaef485e8175be70a158d82780a1bb4ae60b (diff) | |
| download | perl-9fd42072b1947c42c95f243fb6e7da4bdf17f182.tar.gz | |
- was RE: [PATCH perl@12443] VMS64-bitconfigure
Message-ID: <3BD72A49.1508D152@rowman.com>
p4raw-id: //depot/perl@12630
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/configure.com b/configure.com index 04144adfc9..cb4654a4d2 100644 --- a/configure.com +++ b/configure.com @@ -4990,7 +4990,13 @@ $ WC "cpplast='" + cpplast + "'" $ WC "cppminus='" + cppminus + "'" $ WC "cpprun='" + cpprun + "'" $ WC "cppstdin='" + cppstdin + "'" -$ WC "d_Gconvert='my_gconvert(x,n,t,b)'" +$ IF use64bitint .OR. use64bitint .EQS. "define" +$ THEN +$! gcvt() does not work for > 16 decimal places; fallback to sprintf +$ WC "d_Gconvert='sprintf((b),""%.*" + (nvgformat-"""") + ",(n),(x))'" +$ ELSE +$ WC "d_Gconvert='my_gconvert(x,n,t,b)'" +$ ENDIF $ WC "d_PRIEldbl='" + d_PRIEUldbl + "'" $ WC "d_PRIFldbl='" + d_PRIFUldbl + "'" $ WC "d_PRIGldbl='" + d_PRIGUldbl + "'" |