Select Code to Download

Microsoft (R) Program Maintenance Utility Version 7.10.3077
Copyright (C) Microsoft Corporation.  All rights reserved.
...
# Looks like you failed 1 test of 3.

C:\Documents and Settings\Owner\Desktop\cpan libs\Math-Int64-0.23>

void
TwoSVs( one, two )
...
    SV * two
PPCODE:
    0;

my $u = string_to_uint64('0xff00_0000_0000_0000');
Dump($u);
...
Dump($nv);

Local::XS::TwoSVs($u, $nv);

SV = IV(0xb04240) at 0xb04244
  REFCNT = 1
...
  REFCNT = 1
  FLAGS = (PADMY,NOK,pNOK)
  NV = 1.83746864796716e+019

0x008EAF6C  00 00 00 00 00 00 00 ff

0x0086AB0C  00 00 00 00 00 e0 ef 43

my $u = string_to_uint64('0xff00_0000_0000_0000');
my $nv = uint64_to_number($u);
print "nv $nv u $u \n\n";

nv 1.83746864796716e+019 u 18374686479671623680

(__int64 *)&(two->sv_any->xnv_u)

my $u = string_to_uint64('0xff00_0000_0000_0000');
my $nv = uint64_to_number($u);