develooper Front page | perl.vmsperl | Postings from December 2001

[PATCH perl@13600] Gconvert for VMS again

Thread Next
From:
Craig A. Berry
Date:
December 11, 2001 14:36
Subject:
[PATCH perl@13600] Gconvert for VMS again
Message ID:
5.1.0.14.2.20011211162600.02a4b008@exchi01
Change 12842 cancelled out change 12630, I assume inadvertently since a 
64-bit build is quite broken without it.  This puts it back.  

--- configure.com;-1    Mon Dec 10 14:11:00 2001
+++ configure.com       Tue Dec 11 16:25:20 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]






Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About