Select Code to Download

Select or download this

void
_num(class,x)
...
      index++;
      }
    ST(0) = newSVnv(num);

Select or download this

#ifdef HAS_QUAD
    case 'Q':
...
        DO_BO_PACK(auquad, 64);
        PUSH_VAR(utf8, cur, auquad);
        }

Select or download this

printf "%3d %20d %s\n", $_, ( 1 << $_ )-1,  unpack 'h*', pack 'Q>', 
    Math::BigInt->new( ( 1 << $_ )-1 ) for 50 .. 60;;
...
 58   288230376151711743 4000000000000000
 59   576460752303423487 8000000000000000
 60  1152921504606846975 0100000000000000

Select or download this

    if (SvNOKp(sv))
        return U_V(SvNVX(sv));

Select or download this

/* This may look like unnecessary jumping through hoops, but convertin
+g
   out of range floating point values to integers *is* undefined behav
+iour,
...
                  : ((n) < UV_MAX_P1 ? (UV) (n) \
                     : ((n) > 0 ? UV_MAX : 0 /* NaN */)))
#endif