summaryrefslogtreecommitdiff
path: root/op.h
diff options
context:
space:
mode:
authorArtur Bergman <sky@nanisky.com>2001-09-10 11:17:25 +0000
committerArtur Bergman <sky@nanisky.com>2001-09-10 11:17:25 +0000
commitba89bb6e6103c86c9d65d9485052b0ba8db5d064 (patch)
treefd458cc1b02e25912d416638457673d5b41abaf2 /op.h
parentb7cb320da5fba9d13ff80cbaf19179dae7debe95 (diff)
downloadperl-ba89bb6e6103c86c9d65d9485052b0ba8db5d064.tar.gz
Apply INT2PTR with force to silence warnings from
PM_GETRE and friends. No more warnings with 64bit IVs and 32bit pointers. p4raw-id: //depot/perl@11970
Diffstat (limited to 'op.h')
-rw-r--r--op.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/op.h b/op.h
index 3158395f77..64ed3e542f 100644
--- a/op.h
+++ b/op.h
@@ -250,8 +250,8 @@ struct pmop {
};
#ifdef USE_ITHREADS
-#define PM_GETRE(o) ((REGEXP*)SvIVX(PL_regex_pad[(o)->op_pmoffset]))
-#define PM_SETRE(o,r) (sv_setiv(PL_regex_pad[(o)->op_pmoffset], (IV)r))
+#define PM_GETRE(o) (INT2PTR(REGEXP*,SvIVX(PL_regex_pad[(o)->op_pmoffset])))
+#define PM_SETRE(o,r) (sv_setiv(PL_regex_pad[(o)->op_pmoffset], PTR2IV(r)))
#define PM_GETRE_SAFE(o) (PL_regex_pad ? PM_GETRE(o) : (REGEXP*)0)
#define PM_SETRE_SAFE(o,r) if (PL_regex_pad) PM_SETRE(o,r)
#else