Use a type more suitable for casting pointers to integers

Perl-Bitcoin · Sep 20, 2024 · 3f034cc · 3f034cc
1 parent a3d9feb
commit 3f034cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Secp256k1.xs b/Secp256k1.xs
@@ -147,7 +147,7 @@ new(classname)
 
 		/* Blessing the object */
 		SV *secp_sv = newSViv(0);
-		RETVAL = sv_setref_iv(secp_sv, SvPVbyte_nolen(classname), (unsigned long) ctx);
+		RETVAL = sv_setref_iv(secp_sv, SvPVbyte_nolen(classname), (uintptr_t) ctx);
 		SvREADONLY_on(secp_sv);
 	OUTPUT:
 		RETVAL