This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
40dfc4d
)
Silence Win32 warnings when not using USE_LARGE_FILES
author
Steve Hay
<SteveHay@planit.com>
Fri, 22 Jul 2005 10:29:51 +0000
(10:29 +0000)
committer
Steve Hay
<SteveHay@planit.com>
Fri, 22 Jul 2005 10:29:51 +0000
(10:29 +0000)
p4raw-id: //depot/perl@25211
win32/win32.c
patch
|
blob
|
blame
|
history
diff --git
a/win32/win32.c
b/win32/win32.c
index
86bf44e
..
6cbc08a
100644
(file)
--- a/
win32/win32.c
+++ b/
win32/win32.c
@@
-2642,7
+2642,7
@@
win32_fseek(FILE *pf, Off_t offset,int origin)
return fsetpos(pf, &offset);
#endif
#else
- return fseek(pf, offset, origin);
+ return fseek(pf,
(long)
offset, origin);
#endif
}
@@
-3192,7
+3192,7
@@
finish:
win32_lseek(fd, cur, SEEK_SET);
return retval;
#else
- return chsize(fd, size);
+ return chsize(fd,
(long)
size);
#endif
}
@@
-3218,7
+3218,7
@@
win32_lseek(int fd, Off_t offset, int origin)
return _lseeki64(fd, offset, origin);
#endif
#else
- return lseek(fd, offset, origin);
+ return lseek(fd,
(long)
offset, origin);
#endif
}