summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>1999-09-13 15:15:11 +0100
committerJarkko Hietaniemi <jhi@iki.fi>1999-09-13 13:23:04 +0000
commit564319723c2c18fa4801cd77e0d203a582b4d5a3 (patch)
tree94b6775a09b4e1758847fd3b22587eeae744317b /pp_hot.c
parent23614c1f233bf6c8f35366cee6be53ae80af0e28 (diff)
downloadperl-564319723c2c18fa4801cd77e0d203a582b4d5a3.tar.gz
Replace change #4100 with
To: gsar@activestate.com Cc: perl5-porters@perl.org Subject: Re: [ID 19990907.004] [PATCH perl5.005_61] compiler warnings with -Duse64bits Message-Id: <199909131315.OAA24012@tempest.npl.co.uk> p4raw-link: @4100 on //depot/cfgperl: 427181846486e3aa5034a647dc1922377185f4c0 p4raw-id: //depot/cfgperl@4136
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index de0434e0f7..b4e7223f7c 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2112,7 +2112,7 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv)
SvUPGRADE(dbsv, SVt_PVIV);
SvIOK_on(dbsv);
SAVEIV(SvIVX(dbsv));
- SvIVX(dbsv) = (IV)PTR_CAST cv; /* Do it the quickest way */
+ SvIVX(dbsv) = PTR2IV(cv); /* Do it the quickest way */
}
if (CvXSUB(cv))