Help for this page

Select Code to Download

Select or download this

double i64d ( ) {
    __int64 x = 123435;
    return (double)x;
}

Select or download this

SV* i64p( ) {
    union {
...
my( @i64 ) = unpack 'VV', i64p();
print $i64[ 1 ] * 2**32 + $i64[ 0 ];