45 lines
1.4 KiB
Diff
45 lines
1.4 KiB
Diff
From 4ccd57ed119eae3847df1ec241daa509f3b86ef3 Mon Sep 17 00:00:00 2001
|
|
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
Date: Thu, 18 Jun 2015 13:19:49 +0200
|
|
Subject: [PATCH] Revert "const the core magic vtables"
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
This reverts commit c910fead7893fe9700031ee59de6b904260b5d69.
|
|
|
|
It's necessary for Coro-6.43. This patch will be removed once Coro
|
|
will be fixed or in a reasonable time if Coro become unamaintained.
|
|
|
|
<http://www.nntp.perl.org/group/perl.perl5.porters/2015/06/msg228530.html>
|
|
<https://bugzilla.redhat.com/show_bug.cgi?id=1231165>
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
perl.h | 9 ++++++++-
|
|
1 file changed, 8 insertions(+), 1 deletion(-)
|
|
|
|
diff --git a/perl.h b/perl.h
|
|
index dcb184b..9bce052 100644
|
|
--- a/perl.h
|
|
+++ b/perl.h
|
|
@@ -5583,7 +5583,14 @@ EXTCONST runops_proc_t PL_runops_std
|
|
EXTCONST runops_proc_t PL_runops_dbg
|
|
INIT(Perl_runops_debug);
|
|
|
|
-#define EXT_MGVTBL EXTCONST MGVTBL
|
|
+/* PERL_GLOBAL_STRUCT_PRIVATE wants to keep global data like the
|
|
+ * magic vtables const, but this is incompatible with SWIG which
|
|
+ * does want to modify the vtables. */
|
|
+#ifdef PERL_GLOBAL_STRUCT_PRIVATE
|
|
+# define EXT_MGVTBL EXTCONST MGVTBL
|
|
+#else
|
|
+# define EXT_MGVTBL EXT MGVTBL
|
|
+#endif
|
|
|
|
#define PERL_MAGIC_READONLY_ACCEPTABLE 0x40
|
|
#define PERL_MAGIC_VALUE_MAGIC 0x80
|
|
--
|
|
2.1.0
|
|
|