/* Now our interface to equivalent of Configure's FILE_xxx macros */
#define PerlIO_has_cntptr(f) 1
-#define PerlIO_get_ptr(mTHX_ f) ((f)->next)
-#define PerlIO_get_cnt(mTHX_ f) ((f)->endr - (f)->next)
+#define PerlIO_get_ptr(f) ((f)->next)
+#define PerlIO_get_cnt(f) ((f)->endr - (f)->next)
#define PerlIO_canset_cnt(f) 1
#define PerlIO_fast_gets(f) 1
-#define PerlIO_set_ptrcnt(mTHX_ f,p,c) ((f)->next = (p))
-#define PerlIO_set_cnt(mTHX_ f,c) 1
+#define PerlIO_set_ptrcnt(f,p,c) ((f)->next = (unsigned char *)(p))
+#define PerlIO_set_cnt(f,c) 1
#define PerlIO_has_base(f) 1
-#define PerlIO_get_base(mTHX_ f) ((f)->data)
-#define PerlIO_get_bufsiz(mTHX_ f) ((f)->endr - (f)->data)
+#define PerlIO_get_base(f) ((f)->data)
+#define PerlIO_get_bufsiz(f) ((f)->endr - (f)->data)