Select Code to Download

/* Need -0.0 for SvNVX to preserve IEEE FP "negative zero" because
   +0.0 + -0.0 => +0.0 but -0.0 + -0.0 => -0.0 */
#  define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
#  define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
#  define SvNVX(sv) (-0.0 + ((XPVNV*) SvANY(sv))->xnv_u.xnv_nv)

#ifdef __GNUC__
        /* to work round a gcc/x86 bug; don't use SvNV */
...
#else
        anv.nv = SvNV(fromstr);
#endif

Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags)
{
...
        mg_get(sv);
    if (SvNOKp(sv))
        return SvNVX(sv);

#! perl -slw
use strict; use Config;
...

print doubleToHex( $snan );