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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
revise README.win32 for currentness, point to function
[perl5.git]
/
perlsfio.h
diff --git
a/perlsfio.h
b/perlsfio.h
index
82814e1
..
c4ed5c7
100644
(file)
--- a/
perlsfio.h
+++ b/
perlsfio.h
@@
-45,15
+45,15
@@
extern int _stdprintf _ARG_((const char*, ...));
/* Now our interface to equivalent of Configure's FILE_xxx macros */
#define PerlIO_has_cntptr(f) 1
/* 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_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 = (p))
+#define PerlIO_set_cnt(
f,c)
1
#define PerlIO_has_base(f) 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)