diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-06-23 09:00:28 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-06-23 09:00:28 +0000 |
| commit | 8d3a710fc8101f114e42e18c7eae4598e4c21195 (patch) | |
| tree | 5f81ac5b7db75281a40f9ec2b24d10fcafccd290 /win32 | |
| parent | 1b6737cc10a847650f574c35f419cbd680a5a5ef (diff) | |
| download | perl-8d3a710fc8101f114e42e18c7eae4598e4c21195.tar.gz | |
More bcc32 compiler warnings to silence
("Suspicious pointer conversion")
p4raw-id: //depot/perl@24946
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32io.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32io.c b/win32/win32io.c index 80185fe048..5ba46a71d3 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; |