diff --git a/contribs/perlapi/common/msg.h b/contribs/perlapi/common/msg.h index bf0698c87dfe047eeeafa51d4bc1fbe8a55150a0..4b2dbb3a3f4cf76a985c4a03baf7f9855ad3374b 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 { \