diff options
author | Artur Bergman <sky@nanisky.com> | 2001-09-10 11:17:25 +0000 |
---|---|---|
committer | Artur Bergman <sky@nanisky.com> | 2001-09-10 11:17:25 +0000 |
commit | ba89bb6e6103c86c9d65d9485052b0ba8db5d064 (patch) | |
tree | fd458cc1b02e25912d416638457673d5b41abaf2 /op.h | |
parent | b7cb320da5fba9d13ff80cbaf19179dae7debe95 (diff) | |
download | perl-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.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |