From dd791c72c136e634557810ed390db9ed30f1576f Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 19 Jun 2014 14:40:36 -0400 Subject: [PATCH] Couple more (optionally) unused contexts. --- perlio.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/perlio.c b/perlio.c index 730a73c..7de32f4 100644 --- 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)--; } -- 1.8.3.1