diff options
| author | Robin Barker <RMBarker@cpan.org> | 1999-09-13 15:15:11 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-13 13:23:04 +0000 |
| commit | 564319723c2c18fa4801cd77e0d203a582b4d5a3 (patch) | |
| tree | 94b6775a09b4e1758847fd3b22587eeae744317b /ext/Devel | |
| parent | 23614c1f233bf6c8f35366cee6be53ae80af0e28 (diff) | |
| download | perl-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 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 62a0c9ec1c..69f0b899a3 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -292,7 +292,7 @@ prof_mark( opcode ptype ) static U32 lastid; CV *cv; - cv = (CV*)PTR_CAST SvIVX(Sub); + cv = INT2PTR(CV*,SvIVX(Sub)); svp = hv_fetch(cv_hash, (char*)&cv, sizeof(CV*), TRUE); if (!SvOK(*svp)) { GV *gv = CvGV(cv); @@ -568,7 +568,7 @@ XS(XS_DB_sub) PUSHMARK( ORIGMARK ); #ifdef G_NODEBUG - perl_call_sv( (SV*)PTR_CAST SvIV(Sub), GIMME | G_NODEBUG); + perl_call_sv( INT2PTR(SV*,SvIV(Sub)), GIMME | G_NODEBUG); #else curstash = debstash; /* To disable debugging of perl_call_sv */ #ifdef PERLDBf_NONAME |