diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-20 05:22:37 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-20 15:12:50 +0000 |
| commit | 53c1dcc098c6cc47963786f1928061d90b5d30e1 (patch) | |
| tree | 018888fffdf323f44128fe1434e39e7b5cccceae /XSUB.h | |
| parent | 7e3ec654269fdea39968d4cec52cbfcb1f030631 (diff) | |
| download | perl-53c1dcc098c6cc47963786f1928061d90b5d30e1.tar.gz | |
The continuing adventures of Constman and Localize Boy
Message-ID: <20050620152237.GA5032@petdance.com>
p4raw-id: //depot/perl@24913
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 18 |
1 files changed, 13 insertions, 5 deletions
@@ -82,14 +82,17 @@ is a lexical $_ in scope. =cut */ -#ifndef LINT_UNUSED_ARG +#ifndef PERL_UNUSED_ARG # ifdef lint # include <note.h> -# define LINT_UNUSED_ARG(x) NOTE(ARGUNUSED(x)) +# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x)) # else -# define LINT_UNUSED_ARG(x) +# define PERL_UNUSED_ARG(x) ((void)x) # endif #endif +#ifndef PERL_UNUSED_VAR +# define PERL_UNUSED_VAR(x) ((void)x) +#endif #define ST(off) PL_stack_base[ax + (off)] @@ -116,9 +119,14 @@ is a lexical $_ in scope. #define dITEMS I32 items = SP - MARK -#define dXSARGS \ - LINT_UNUSED_ARG(cv) \ +#ifdef lint +# define dXSARGS \ + NOTE(ARGUNUSED(cv)) \ + dSP; dAXMARK; dITEMS +#else +# define dXSARGS \ dSP; dAXMARK; dITEMS +#endif #define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ ? PAD_SV(PL_op->op_targ) : sv_newmortal()) |