diff options
| author | Zefram <zefram@fysh.org> | 2012-02-13 18:14:23 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2012-02-13 18:14:49 +0000 |
| commit | 9f6df31a3476b575d0861637103b0a0a66a2607f (patch) | |
| tree | 3e815cb32de68d9b99587ed23ce8cd4333554161 /perl.h | |
| parent | 898b2fa7ca685c63900bc063ed519d98af0db541 (diff) | |
| download | perl-9f6df31a3476b575d0861637103b0a0a66a2607f.tar.gz | |
avoid unused-var warning from MY_CXT_INIT
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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. */ |