diff options
| author | Andy Lester <andy@petdance.com> | 2005-04-22 12:39:47 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-26 21:03:43 +0000 |
| commit | 88d019551b04ba7828be67e8c0f62de7f769b5d5 (patch) | |
| tree | 64b8bb3ef095bb63c97562cec480a2c7687a5bbd /XSUB.h | |
| parent | f7fe979eb2503f8f9651a18eedcb85278b593375 (diff) | |
| download | perl-88d019551b04ba7828be67e8c0f62de7f769b5d5.tar.gz | |
XS() __attribute__
Message-ID: <20050422223947.GA4681@petdance.com>
p4raw-id: //depot/perl@24333
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -88,7 +88,11 @@ is a lexical $_ in scope. # define XS(name) EXPORT_C void name(pTHX_ CV* cv) #endif #ifndef XS -# define XS(name) void name(pTHX_ CV* cv) +# if defined(HASATTRIBUTE) +# define XS(name) void name(pTHX_ CV* cv __attribute__((unused))) +# else +# define XS(name) void name(pTHX_ CV* cv) +# endif #endif #define dAX I32 ax = MARK - PL_stack_base + 1 |