diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-16 04:35:21 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-16 14:33:10 +0000 |
| commit | ad73156c09397f3cfc63484d3edc50554da0fe15 (patch) | |
| tree | 85a9d8eb0e7f140e97e273de3f18f8a276c0d6ad /XSUB.h | |
| parent | 22022115c87349fc0f6f693201aed817cccd321a (diff) | |
| download | perl-ad73156c09397f3cfc63484d3edc50554da0fe15.tar.gz | |
Lint support
Message-ID: <20050616143521.GB22188@petdance.com>
p4raw-id: //depot/perl@24873
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 22 |
1 files changed, 21 insertions, 1 deletions
@@ -82,6 +82,15 @@ is a lexical $_ in scope. =cut */ +#ifndef LINT_UNUSED_ARG +# ifdef lint +# include <note.h> +# define LINT_UNUSED_ARG(x) NOTE(ARGUNUSED(x)) +# else +# define LINT_UNUSED_ARG(x) +# endif +#endif + #define ST(off) PL_stack_base[ax + (off)] #undef XS @@ -107,7 +116,8 @@ is a lexical $_ in scope. #define dITEMS I32 items = SP - MARK -#define dXSARGS \ +#define dXSARGS \ + LINT_UNUSED_ARG(cv) \ dSP; dAXMARK; dITEMS #define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ @@ -601,3 +611,13 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. #endif /* PERL_IMPLICIT_SYS && !PERL_CORE */ #endif /* _INC_PERL_XSUB_H */ /* include guard */ + +/* + * Local variables: + * c-indentation-style: bsd + * c-basic-offset: 4 + * indent-tabs-mode: t + * End: + * + * ex: set ts=8 sts=4 sw=4 noet: + */ |