Change 27696 by rgs@stencil on 2006/04/03 08:22:15
Take splint into account for PERL_UNUSED_ARG (patch by Jarkko)
Affected files
//depot/perl/XSUB.h#108 edit
//depot/perl/perl.h#685 edit
Differences
//depot/perl/XSUB.h#108 (text)
Index: perl/XSUB.h
perl/XSUB.h#107~27408~2006-03-07 15:24:55.000000000 -0800
perl/XSUB.h2006-04-03 01:22:15.000000000 -0700
@@ -83,7 +83,7 @@
*/
#ifndef PERL_UNUSED_ARG
-# ifdef lint
+# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
# include <note.h>
# define PERL_UNUSED_ARG(x) NTE(ARGUNUSED(x))
# else
@@ -119,7 +119,7 @@
#define dITEMS I32 items = SP - MARK
-#ifdef lint
+#if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
# define dXSARGS \
NTE(ARGUNUSED(cv)) \
dSP; dAXMARK; dITEMS
//depot/perl/perl.h#685 (text)
Index: perl/perl.h
perl/perl.h#684~27687~2006-04-02 13:27:24.000000000 -0700
perl/perl.h2006-04-03 01:22:15.000000000 -0700
@@ -224,8 +224,7 @@
* but we cannot quite get rid of, such as "ax" in PPCDE+noargs xsubs
*/
#ifndef PERL_UNUSED_ARG
-/* Which lint? Which <note.h>? Need more more robust cpp test. */
-# ifdef lint
+# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
# include <note.h>
# define PERL_UNUSED_ARG(x) NTE(ARGUNUSED(x))
# else
End of Patch.