Skip to content
Snippets Groups Projects
Commit 23bcc7e2 authored by Morris Jette's avatar Morris Jette
Browse files

Revert fix for 32-bit perl build

parent 8b002a30
No related branches found
No related tags found
No related merge requests found
...@@ -295,12 +295,16 @@ inline static int hv_store_ptr(HV* hv, const char *key, void* ptr, const char *c ...@@ -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 SV2charp(sv) SvPV_nolen(sv)
#define SV2bool(sv) SvTRUE(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) static inline int SV2ptr(SV *sv)
{ {
int ptr = SvIV(SvRV(sv)); int ptr = SvIV(SvRV(sv));
return ptr; return ptr;
} }
#endif
#define FETCH_FIELD(hv, ptr, field, type, required) \ #define FETCH_FIELD(hv, ptr, field, type, required) \
do { \ do { \
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment