Parrot_floatval_time() and Parrot_intval_time() do not match up on Win32

[jkeenan]

This ticket was created by Infinoid as  http://rt.perl.org/rt3/Ticket/Display.html?id=53538 RT #53538] in April 2008. It was never resolved there, but since a companion ticket has been resolved, I am moving it to the Trac system in the hope that higher visibility will lead to its resolution.

Original description:
When running the following PIR:

.sub main
I0 = time
print I0
print "\n"
N0 = time
print N0
print "\n"
I0 = N0
print I0
print "\n"
.end

On linux, I get:

1209519949
1209519949.066321
1209519949

This is what we expected.

On Mingw32, I get:

1209538332
12854011932.719000
-2147483648

On MSVC, wknight8111 got:

1209519873
12853993473.285999
-30908415

These numbers are completely wrong. This causes problems elsewhere; for instance, the code in Parrot_cx_schedule_sleep() expects the two timestamp formats to match up, so it can calculate the correct time to wake up again.

[NotFound]

I've tried this modernized version of the snippet:

.sub main
$I0 = time
say $I0
$N0 = time
say $N0
$I0 = $N0
say $I0
.end

Using parrot built with Strawberry perl in Windows XP Home and the result looks good:

1268858384
1268858384.343
1268858384

[Paul C. Anagnostopoulos]

I'm confused. This appears to have been a float-to-integer conversion problem, having nothing to do with the system time. It works fine for me on a 32-bit Windows XP platform running Mingw32. I'm going to close this ticket.