From 9f6df31a3476b575d0861637103b0a0a66a2607f Mon Sep 17 00:00:00 2001 From: Zefram Date: Mon, 13 Feb 2012 18:14:23 +0000 Subject: [PATCH] avoid unused-var warning from MY_CXT_INIT --- perl.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl.h b/perl.h index 7d0548a..5517154 100644 --- a/perl.h +++ b/perl.h @@ -5501,10 +5501,12 @@ typedef struct am_table_short AMTS; * the interpreter goes away.) */ # define MY_CXT_INIT \ my_cxt_t *my_cxtp = \ - (my_cxt_t*)Perl_my_cxt_init(aTHX_ MY_CXT_INIT_ARG, sizeof(my_cxt_t)) + (my_cxt_t*)Perl_my_cxt_init(aTHX_ MY_CXT_INIT_ARG, sizeof(my_cxt_t)); \ + PERL_UNUSED_VAR(my_cxtp) # define MY_CXT_INIT_INTERP(my_perl) \ my_cxt_t *my_cxtp = \ - (my_cxt_t*)Perl_my_cxt_init(my_perl, MY_CXT_INIT_ARG, sizeof(my_cxt_t)) + (my_cxt_t*)Perl_my_cxt_init(my_perl, MY_CXT_INIT_ARG, sizeof(my_cxt_t)); \ + PERL_UNUSED_VAR(my_cxtp) /* This declaration should be used within all functions that use the * interpreter-local data. */ -- 2.7.4