From: Vincent Pit Date: Thu, 27 Aug 2009 21:48:32 +0000 (+0200) Subject: Fix signedness of the pointer<->int conversions X-Git-Tag: v0.19~9 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=28c424672aa75950b69186b3a7bee3f93b4a580a;p=perl%2Fmodules%2Findirect.git Fix signedness of the pointer<->int conversions --- diff --git a/indirect.xs b/indirect.xs index 51199e7..8f673e1 100644 --- a/indirect.xs +++ b/indirect.xs @@ -305,7 +305,7 @@ STATIC SV *indirect_tag(pTHX_ SV *value) { * use the value pointer as the key itself. */ ptable_hints_store(MY_CXT.tbl, value, h); - return newSVuv(PTR2UV(value)); + return newSViv(PTR2IV(value)); } STATIC SV *indirect_detag(pTHX_ const SV *hint) { @@ -316,7 +316,7 @@ STATIC SV *indirect_detag(pTHX_ const SV *hint) { if (!(hint && SvIOK(hint))) return NULL; - h = ptable_fetch(MY_CXT.tbl, INT2PTR(void *, SvUVX(hint))); + h = ptable_fetch(MY_CXT.tbl, INT2PTR(void *, SvIVX(hint))); #if I_WORKAROUND_REQUIRE_PROPAGATION { @@ -349,13 +349,13 @@ STATIC SV *indirect_tag(pTHX_ SV *value) { if (SvROK(value)) { value = SvRV(value); SvREFCNT_inc_simple_NN(value); - tag = PTR2UV(value); + tag = PTR2IV(value); } - return newSVuv(tag); + return newSViv(tag); } -#define indirect_detag(H) (((H) && SvIOK(H)) ? INT2PTR(SV *, SvUVX(H)) : NULL) +#define indirect_detag(H) (((H) && SvIOK(H)) ? INT2PTR(SV *, SvIVX(H)) : NULL) #endif /* I_THREADSAFE || I_WORKAROUND_REQUIRE_PROPAGATION */