Change 13634 by jhi@alpha on 2001/12/11 21:49:58
Subject: [PATCH perl@13600] Gconvert for VMS again
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 11 Dec 2001 16:39:13 -0600
Message-Id: <5.1.0.14.2.20011211162600.02a4b008@exchi01>
Affected files ...
.... //depot/perl/configure.com#137 edit
Differences ...
==== //depot/perl/configure.com#137 (text) ====
Index: perl/configure.com
--- perl/configure.com.~1~ Tue Dec 11 15:00:06 2001
+++ perl/configure.com Tue Dec 11 15:00:06 2001
@@ -5083,7 +5083,13 @@
$ 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 + "'"
End of Patch.
