From: Steve Hay <SteveHay@planit.com>
Date: Thu, 23 Jun 2005 09:00:28 +0000 (+0000)
Subject: More bcc32 compiler warnings to silence
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d3a710fc8101f114e42e18c7eae4598e4c21195;p=p5sagit%2Fp5-mst-13.2.git

More bcc32 compiler warnings to silence

("Suspicious pointer conversion")

p4raw-id: //depot/perl@24946
---

diff --git a/doio.c b/doio.c
index 7010238..bcad18c 100644
--- a/doio.c
+++ b/doio.c
@@ -1841,7 +1841,7 @@ nothing in the core.
 	    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--;
diff --git a/win32/win32io.c b/win32/win32io.c
index 80185fe..5ba46a7 100644
--- a/win32/win32io.c
+++ b/win32/win32io.c
@@ -258,7 +258,7 @@ PerlIOWin32_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
  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_tell(pTHX_ PerlIO *f)
 {
  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;