You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.2 KiB
44 lines
1.2 KiB
From 036189b0a003875df7bf09c7f7fd702267f549e5 Mon Sep 17 00:00:00 2001
|
|
From: Karl Williamson <khw@cpan.org>
|
|
Date: Sat, 26 Dec 2020 08:44:08 -0700
|
|
Subject: [PATCH] Use perl.h versions of PERL_UNUSED_foo in XSUB.h
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
This commit was applied to perl.h, but not to XSUB.h:
|
|
|
|
commit a730e3f230f364cffe49370f816f975ae7c9c403
|
|
Author: Jarkko Hietaniemi <jhi@iki.fi>
|
|
Date: Thu Sep 4 09:08:33 2014 -0400
|
|
|
|
Use sizeof() in UNUSED_ARG and UNUSED_VAR to avoid accessing the values.
|
|
|
|
The values might even be uninitialized in the case of PERL_UNUSED_VAR.
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
XSUB.h | 4 ++--
|
|
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/XSUB.h b/XSUB.h
|
|
index 616d813840..c1e3959885 100644
|
|
--- a/XSUB.h
|
|
+++ b/XSUB.h
|
|
@@ -108,10 +108,10 @@ is a lexical C<$_> in scope.
|
|
*/
|
|
|
|
#ifndef PERL_UNUSED_ARG
|
|
-# define PERL_UNUSED_ARG(x) ((void)x)
|
|
+# define PERL_UNUSED_ARG(x) ((void)sizeof(x))
|
|
#endif
|
|
#ifndef PERL_UNUSED_VAR
|
|
-# define PERL_UNUSED_VAR(x) ((void)x)
|
|
+# define PERL_UNUSED_VAR(x) ((void)sizeof(x))
|
|
#endif
|
|
|
|
#define ST(off) PL_stack_base[ax + (off)]
|
|
--
|
|
2.26.2
|
|
|