summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-27 14:31:24 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-27 14:31:24 +0000
commitef75a179103f867668cdc0e80c863551b9a84c82 (patch)
treec328c368d310b7559fbdc6c708c76a207a8e67af /sv.c
parentf4e86e0f0c3be53056766cf9081a449e60f2fb28 (diff)
downloadperl-ef75a179103f867668cdc0e80c863551b9a84c82.tar.gz
avoid compiler warnings (from Dan Sugalski)
p4raw-id: //depot/perl@5284
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index 46a99081e9..d62a14512d 100644
--- a/sv.c
+++ b/sv.c
@@ -7242,13 +7242,13 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl)
ptr = POPPTR(ss,ix);
TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
dptr = POPDPTR(ss,ix);
- TOPDPTR(nss,ix) = (void (*)(void*))any_dup(dptr, proto_perl);
+ TOPDPTR(nss,ix) = (void (*)(void*))any_dup((void *)dptr, proto_perl);
break;
case SAVEt_DESTRUCTOR_X:
ptr = POPPTR(ss,ix);
TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
dxptr = POPDXPTR(ss,ix);
- TOPDXPTR(nss,ix) = (void (*)(pTHXo_ void*))any_dup(dxptr, proto_perl);
+ TOPDXPTR(nss,ix) = (void (*)(pTHXo_ void*))any_dup((void *)dxptr, proto_perl);
break;
case SAVEt_REGCONTEXT:
case SAVEt_ALLOC: