Gconvert for VMS again
authorCraig A. Berry <craigberry@mac.com>
Tue, 11 Dec 2001 16:39:13 +0000 (10:39 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 11 Dec 2001 21:49:58 +0000 (21:49 +0000)
Message-Id: <5.1.0.14.2.20011211162600.02a4b008@exchi01>

p4raw-id: //depot/perl@13634

configure.com

index d58093d..d1abb3a 100644 (file)
@@ -5083,7 +5083,13 @@ $ WC "cpplast='" + cpplast + "'"
 $ WC "cppminus='" + cppminus + "'"
 $ WC "cpprun='" + cpprun + "'"
 $ WC "cppstdin='" + cppstdin + "'"
+$ 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 + "'"