use PTR2nat() instead of casting pointers to unsigned long

Casting a pointer to unsigned long will result in truncation when
sizeof(void*) > sizeof(unsigned long)

[gh #17232]

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index d9a7cc3d09..bc08a0eed6 100644
--- a/pp.c
+++ b/pp.c
@@ -2552,7 +2552,7 @@ S_scomplement(pTHX_ SV *targ, SV *sv)
 #ifdef LIBERAL
 	{
 	    long *tmpl;
-	    for ( ; anum && (unsigned long)tmps % sizeof(long); anum--, tmps++)
+	    for ( ; anum && PTR2nat(tmps) % sizeof(long); anum--, tmps++)
 		*tmps = ~*tmps;
 	    tmpl = (long*)tmps;
 	    for ( ; anum >= (I32)sizeof(long); anum -= (I32)sizeof(long), tmpl++)