Change 24946 by [EMAIL PROTECTED] on 2005/06/23 09:00:28
More bcc32 compiler warnings to silence
("Suspicious pointer conversion")
Affected files ...
... //depot/perl/doio.c#267 edit
... //depot/perl/win32/win32io.c#21 edit
Differences ...
==== //depot/perl/doio.c#267 (text) ====
Index: perl/doio.c
--- perl/doio.c#266~24908~ Mon Jun 20 04:00:31 2005
+++ perl/doio.c Thu Jun 23 02:00:28 2005
@@ -1841,7 +1841,7 @@
APPLY_TAINT_PROPER();
tot = sp - mark;
while (++mark <= sp) {
- const char *name = SvPV_nolen_const(*mark);
+ char *name = SvPV_nolen_const(*mark);
APPLY_TAINT_PROPER();
if (PerlLIO_utime(name, utbufp))
tot--;
==== //depot/perl/win32/win32io.c#21 (text) ====
Index: perl/win32/win32io.c
--- perl/win32/win32io.c#20~24271~ Thu Apr 21 08:38:30 2005
+++ perl/win32/win32io.c Thu Jun 23 02:00:28 2005
@@ -258,7 +258,7 @@
PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32);
DWORD high = (sizeof(offset) > sizeof(DWORD)) ? (DWORD)(offset >> 32) : 0;
DWORD low = (DWORD) offset;
- DWORD res = SetFilePointer(s->h,low,&high,where[whence]);
+ DWORD res = SetFilePointer(s->h,(LONG)low,(LONG *)&high,where[whence]);
if (res != 0xFFFFFFFF || GetLastError() != NO_ERROR)
{
return 0;
@@ -274,7 +274,7 @@
{
PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32);
DWORD high = 0;
- DWORD res = SetFilePointer(s->h,0,&high,FILE_CURRENT);
+ DWORD res = SetFilePointer(s->h,0,(LONG *)&high,FILE_CURRENT);
if (res != 0xFFFFFFFF || GetLastError() != NO_ERROR)
{
return ((Off_t) high << 32) | res;
End of Patch.
