#undef PerlIO_set_cnt
void
-PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt)
+PerlIO_set_cnt(PerlIO *f, int cnt)
{
dTHX;
if (cnt < -1 && ckWARN_d(WARN_INTERNAL))
#undef PerlIO_set_ptrcnt
void
-PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt)
+PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt)
{
-#ifdef FILE_bufsiz
dTHX;
+#ifdef FILE_bufsiz
STDCHAR *e = FILE_base(f) + FILE_bufsiz(f);
int ec = e - ptr;
if (ptr > e + 1 && ckWARN_d(WARN_INTERNAL))
Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d, ptr implies %d\n",cnt,ec);
#endif
#if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
- FILE_ptr(f) = ptr;
+ FILE_ptr(f) = ptr;
#else
- dTHX;
- Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system");
+ Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system");
#endif
#if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
- FILE_cnt(f) = cnt;
+ FILE_cnt(f) = cnt;
#else
- dTHX;
- Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
+ Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
#endif
}
#undef PerlIO_get_cnt
int
-PerlIO_get_cnt(pTHX_ PerlIO *f)
+PerlIO_get_cnt(PerlIO *f)
{
#ifdef FILE_cnt
return FILE_cnt(f);
#undef PerlIO_get_bufsiz
int
-PerlIO_get_bufsiz(pTHX_ PerlIO *f)
+PerlIO_get_bufsiz(PerlIO *f)
{
#ifdef FILE_bufsiz
return FILE_bufsiz(f);
#undef PerlIO_get_ptr
STDCHAR *
-PerlIO_get_ptr(pTHX_ PerlIO *f)
+PerlIO_get_ptr(PerlIO *f)
{
#ifdef FILE_ptr
return FILE_ptr(f);
#undef PerlIO_get_base
STDCHAR *
-PerlIO_get_base(pTHX_ PerlIO *f)
+PerlIO_get_base(PerlIO *f)
{
#ifdef FILE_base
return FILE_base(f);
#undef PerlIO_getname
char *
-PerlIO_getname(pTHX_ PerlIO *f, char *buf)
+PerlIO_getname(PerlIO *f, char *buf)
{
#ifdef VMS
return fgetname(f,buf);