diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 15:45:56 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 15:45:56 +0000 |
| commit | d9f997d712a9ca9f2b66409f2920290ddaf904c3 (patch) | |
| tree | a1345bf810748287662ecca8ef115da72f341ef0 /pp_hot.c | |
| parent | 809a5acc2df9d5b3c0528c9c63a1f59bbe24b2cf (diff) | |
| download | perl-d9f997d712a9ca9f2b66409f2920290ddaf904c3.tar.gz | |
More fprintf -> PerlIO_printf changes.
p4raw-id: //depot/perl@67
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -30,7 +30,7 @@ void *cvarg; dTHR; #endif /* DEBUGGING */ - DEBUG_L((fprintf(stderr, "0x%lx unsetting CvOWNER of 0x%lx:%s\n", + DEBUG_L((PerlIO_printf(PerlIO_stderr(), "0x%lx unsetting CvOWNER of 0x%lx:%s\n", (unsigned long)thr, (unsigned long)cv, SvPEEK((SV*)cv)))); MUTEX_LOCK(CvMUTEXP(cv)); DEBUG_L(if (CvDEPTH(cv) != 0) @@ -1945,7 +1945,7 @@ PP(pp_entersub) /* We already have a clone to use */ MUTEX_UNLOCK(CvMUTEXP(cv)); cv = *(CV**)svp; - DEBUG_L(fprintf(stderr, + DEBUG_L(PerlIO_printf(PerlIO_stderr(), "entersub: 0x%lx already has clone 0x%lx:%s\n", (unsigned long) thr, (unsigned long) cv, SvPEEK((SV*)cv))); @@ -1960,7 +1960,7 @@ PP(pp_entersub) CvOWNER(cv) = thr; SvREFCNT_inc(cv); MUTEX_UNLOCK(CvMUTEXP(cv)); - DEBUG_L(fprintf(stderr, + DEBUG_L(PerlIO_printf(PerlIO_stderr(), "entersub: 0x%lx grabbing 0x%lx:%s in stash %s\n", (unsigned long) thr, (unsigned long) cv, SvPEEK((SV*)cv), CvSTASH(cv) ? @@ -1970,7 +1970,7 @@ PP(pp_entersub) CV *clonecv; SvREFCNT_inc(cv); /* don't let it vanish from under us */ MUTEX_UNLOCK(CvMUTEXP(cv)); - DEBUG_L((fprintf(stderr, + DEBUG_L((PerlIO_printf(PerlIO_stderr(), "entersub: 0x%lx cloning 0x%lx:%s\n", (unsigned long) thr, (unsigned long) cv, SvPEEK((SV*)cv)))); |