This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Support long doubles in Storable.
authorRadu Greab <radu@netsoft.ro>
Mon, 21 Aug 2000 18:05:59 +0000 (21:05 +0300)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 21 Aug 2000 16:09:41 +0000 (16:09 +0000)
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

ext/Storable/Storable.xs

index 1efbc0d..0cdad85 100644 (file)
@@ -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));