diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-09-29 02:21:31 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-09-29 02:21:31 +0000 |
| commit | c529f79d594c53d3968d464c57ac24a21137dd09 (patch) | |
| tree | 1a391a0c329976fd8ae88a240da31051b926c681 /ext/Devel/DProf | |
| parent | 424a8fe95d507998fe8750793da1b35bd6d7074b (diff) | |
| download | perl-c529f79d594c53d3968d464c57ac24a21137dd09.tar.gz | |
resync with mainline
p4raw-id: //depot/vmsperl@4249
Diffstat (limited to 'ext/Devel/DProf')
| -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 e5b7788d30..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*)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*)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 |