Change 29408 by [EMAIL PROTECTED] on 2006/11/28 15:57:45
Silence VC++ 8 warnings about "possible loss of data"
Affected files ...
... //depot/perl/ext/POSIX/POSIX.xs#145 edit
... //depot/perl/pp_sys.c#527 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.xs#145 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs#144~28729~ 2006-08-16 06:11:15.000000000 -0700
+++ perl/ext/POSIX/POSIX.xs 2006-11-28 07:57:45.000000000 -0800
@@ -1804,7 +1804,7 @@
mytm.tm_wday = wday;
mytm.tm_yday = yday;
mytm.tm_isdst = isdst;
- RETVAL = mktime(&mytm);
+ RETVAL = (SysRetLong) mktime(&mytm);
}
OUTPUT:
RETVAL
==== //depot/perl/pp_sys.c#527 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#526~29225~ 2006-11-07 06:23:08.000000000 -0800
+++ perl/pp_sys.c 2006-11-28 07:57:45.000000000 -0800
@@ -2910,9 +2910,9 @@
PUSHs(sv_2mortal(newSVnv(PL_statcache.st_mtime)));
PUSHs(sv_2mortal(newSVnv(PL_statcache.st_ctime)));
#else
- PUSHs(sv_2mortal(newSViv(PL_statcache.st_atime)));
- PUSHs(sv_2mortal(newSViv(PL_statcache.st_mtime)));
- PUSHs(sv_2mortal(newSViv(PL_statcache.st_ctime)));
+ PUSHs(sv_2mortal(newSViv((IV)PL_statcache.st_atime)));
+ PUSHs(sv_2mortal(newSViv((IV)PL_statcache.st_mtime)));
+ PUSHs(sv_2mortal(newSViv((IV)PL_statcache.st_ctime)));
#endif
#ifdef USE_STAT_BLOCKS
PUSHs(sv_2mortal(newSVuv(PL_statcache.st_blksize)));
End of Patch.
