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:
003a643
)
Couple more (optionally) unused contexts.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 19 Jun 2014 18:40:36 +0000
(14:40 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 20 Jun 2014 11:09:12 +0000
(07:09 -0400)
perlio.c
patch
|
blob
|
blame
|
history
diff --git
a/perlio.c
b/perlio.c
index
730a73c
..
7de32f4
100644
(file)
--- a/
perlio.c
+++ b/
perlio.c
@@
-428,6
+428,9
@@
PerlIO_verify_head(pTHX_ PerlIO *f)
{
PerlIOl *head, *p;
int seen = 0;
+#ifndef PERL_IMPLICIT_SYS
+ PERL_UNUSED_CONTEXT;
+#endif
if (!PerlIOValid(f))
return;
p = head = PerlIOBase(f)->head;
@@
-2250,6
+2253,10
@@
S_more_refcounted_fds(pTHX_ const int new_fd) {
const int new_max = 16 + (new_fd & ~15);
int *new_array;
+#ifndef PERL_IMPLICIT_SYS
+ PERL_UNUSED_CONTEXT;
+#endif
+
PerlIO_debug("More fds - old=%d, need %d, new=%d\n",
old_max, new_fd, new_max);
@@
-2464,6
+2471,9
@@
typedef struct {
static void
S_lockcnt_dec(pTHX_ const void* f)
{
+#ifndef PERL_IMPLICIT_SYS
+ PERL_UNUSED_CONTEXT;
+#endif
PerlIO_lockcnt((PerlIO*)f)--;
}