struct _PerlIO_funcs {
Size_t fsize;
- char *name;
+ const char *name;
Size_t size;
U32 kind;
IV (*Pushed) (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
SSize_t(*Read) (pTHX_ PerlIO *f, void *vbuf, Size_t count);
SSize_t(*Unread) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
SSize_t(*Write) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
- Off_t (*Seek) (pTHX_ PerlIO *f, Off_t offset, int whence);
+ IV (*Seek) (pTHX_ PerlIO *f, Off_t offset, int whence);
Off_t(*Tell) (pTHX_ PerlIO *f);
IV (*Close) (pTHX_ PerlIO *f);
/* Stdio-like buffered IO functions */
extern SSize_t PerlIOBuf_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
extern SSize_t PerlIOBuf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
extern SSize_t PerlIOBuf_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
-extern Off_t PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+extern IV PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
extern Off_t PerlIOBuf_tell(pTHX_ PerlIO *f);
extern IV PerlIOBuf_close(pTHX_ PerlIO *f);
extern IV PerlIOBuf_flush(pTHX_ PerlIO *f);