From 23bcc7e2bae42498273e4352e686362376f6a1cb Mon Sep 17 00:00:00 2001
From: Morris Jette <jette@schedmd.com>
Date: Thu, 31 Oct 2013 12:26:29 -0700
Subject: [PATCH] Revert fix for 32-bit perl build
---
contribs/perlapi/common/msg.h | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/contribs/perlapi/common/msg.h b/contribs/perlapi/common/msg.h
index bf0698c87df..4b2dbb3a3f4 100644
--- a/contribs/perlapi/common/msg.h
+++ b/contribs/perlapi/common/msg.h
@@ -295,12 +295,16 @@ inline static int hv_store_ptr(HV* hv, const char *key, void* ptr, const char *c
#define SV2charp(sv) SvPV_nolen(sv)
#define SV2bool(sv) SvTRUE(sv)
-//#define SV2ptr(sv) SvIV(SvRV(sv)) /* Error on some 32-bit systems */
+#if 1
+/* Error on some 32-bit systems */
+#define SV2ptr(sv) SvIV(SvRV(sv))
+#else
static inline int SV2ptr(SV *sv)
{
int ptr = SvIV(SvRV(sv));
return ptr;
}
+#endif
#define FETCH_FIELD(hv, ptr, field, type, required) \
do { \
--
GitLab