From: Radu Greab <radu@netsoft.ro>
Date: Mon, 21 Aug 2000 18:05:59 +0000 (+0300)
Subject: Support long doubles in Storable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f27e1f0aacc94b7a6842aa4ce6eaf1892ef14b83;p=p5sagit%2Fp5-mst-13.2.git

Support long doubles in Storable.

Subject: Re: Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6735 on i686-linux-thread-multi-64int 2.2.14-5.0 (UNINSTALLED)
Message-ID: <Pine.GSO.4.05.10008211804210.10137-100000@localhost>

p4raw-id: //depot/perl@6746
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 1efbc0d..0cdad85 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -1440,12 +1440,12 @@ SV *sv;
 			(unsigned long) sv, SvPVX(sv), len));
 
 	} else if (flags & SVp_NOK) {		/* SvNOKp(sv) => double */
-		double nv = SvNV(sv);
+		NV nv = SvNV(sv);
 
 		/*
 		 * Watch for number being an integer in disguise.
 		 */
-		if (nv == (double) (iv = I_V(nv))) {
+		if (nv == (NV) (iv = I_V(nv))) {
 			TRACEME(("double %lf is actually integer %ld", nv, iv));
 			goto integer;		/* Share code below */
 		}
@@ -3527,7 +3527,7 @@ static SV *retrieve_double(cxt)
 stcxt_t *cxt;
 {
 	SV *sv;
-	double nv;
+	NV nv;
 
 	TRACEME(("retrieve_double (#%d)", cxt->tagnum));