p5pRT
commented
9 years ago From @bulk88
Created by @bulk88
See attached patch. CPP output below to explain error.
C:\perl521\srcnewb4opt\win32>nmake ..\pp_sys.i
OP * Perl_pp_gmtime(PerlInterpreter* my_perl ) { SV **sp = (my_perl->Istack_sp); Time64_T when; struct TM64 tmbuf; struct TM64 *err; const char *opname = (my_perl->Iop)->op_type == OP_LOCALTIME ? "localtime" : "gmtime"; static const char * const dayname[] = {"Sun"\, "Mon"\, "Tue"\, "Wed"\, "Thu"\, "Fri"\, "Sat"}; static const char * const monname[] = {"Jan"\, "Feb"\, "Mar"\, "Apr"\, "May"\, "Jun"\, "Jul"\, "Aug"\, "Sep"\, "Oct"\, "Nov"\, "Dec"};
if (((my_perl->Iop)->op_private & 0x0f) \< 1 || (!(*sp) &&
((void)(*sp--)\, 1))) {
time_t now;
(void)time(&now);
when = (Time64_T)now;
}
else {
NV input = floor(((((my_perl->ISv) = ((*sp--)))\,
(((((my_perl->ISv))->sv_flags & (0x00000200|0x00200000)) == 0x00000200)
? ((XPVNV*) ((my_perl->ISv))->sv_any)->xnv_u.xnv_nv :
Perl_sv_2nv_flags(my_perl\, (my_perl->ISv)\,2)))));
const char _isnan = _isnan(input);
when = (Time64_T)input;
if ((((_isnan || when != input) ? (char)1 : (char)0))) {
Perl_ck_warner(my_perl\, (15 )\,
"%s(%.0" "f" ") too large"\, opname\, input);
if (_isnan) {
err = 0;
goto failed;
}
}
}
Migrated from rt.perl.org#123502 (status was 'resolved')
Searchable as RT123502$