From a674cc9519a30d3c9f6c9b760fccd58e038f3649 Mon Sep 17 00:00:00 2001 From: Richard Soderberg Date: Thu, 28 Jun 2001 20:35:11 -0700 Subject: [PATCH] Fixes compile errors in four files Message-ID: p4raw-id: //depot/perl@11021 --- mg.c | 2 +- pp.c | 2 +- pp_hot.c | 6 +++--- util.c | 4 ++-- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/mg.c b/mg.c index 5963335..1f51e5c 100644 --- a/mg.c +++ b/mg.c @@ -2163,7 +2163,7 @@ Perl_magic_mutexfree(pTHX_ SV *sv, MAGIC *mg) { DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%"UVxf": magic_mutexfree 0x%"UVxf"\n", - PTR2UV(thr), PTR2UV(sv));) + PTR2UV(thr), PTR2UV(sv))); if (MgOWNER(mg)) Perl_croak(aTHX_ "panic: magic_mutexfree"); MUTEX_DESTROY(MgMUTEXP(mg)); diff --git a/pp.c b/pp.c index ea98b3c..0b74794 100644 --- a/pp.c +++ b/pp.c @@ -4325,7 +4325,7 @@ Perl_unlock_condpair(pTHX_ void *svv) MgOWNER(mg) = 0; COND_SIGNAL(MgOWNERCONDP(mg)); DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%"UVxf": unlock 0x%"UVxf"\n", - PTR2UV(thr), PTR2UV(svv));) + PTR2UV(thr), PTR2UV(svv))); MUTEX_UNLOCK(MgMUTEXP(mg)); } #endif /* USE_THREADS */ diff --git a/pp_hot.c b/pp_hot.c index e83626a..296ed44 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2567,7 +2567,7 @@ try_autoload: COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg)); MgOWNER(mg) = thr; DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: pp_entersub lock %p\n", - thr, sv);) + thr, sv)); MUTEX_UNLOCK(MgMUTEXP(mg)); SAVEDESTRUCTOR_X(Perl_unlock_condpair, sv); } @@ -2651,7 +2651,7 @@ try_autoload: } DEBUG_S(if (CvDEPTH(cv) != 0) PerlIO_printf(Perl_debug_log, "depth %ld != 0\n", - CvDEPTH(cv));); + CvDEPTH(cv)));; SAVEDESTRUCTOR_X(unset_cvowner, (void*) cv); } } @@ -3116,7 +3116,7 @@ unset_cvowner(pTHXo_ void *cvarg) MUTEX_LOCK(CvMUTEXP(cv)); DEBUG_S(if (CvDEPTH(cv) != 0) PerlIO_printf(Perl_debug_log, "depth %ld != 0\n", - CvDEPTH(cv));); + CvDEPTH(cv)));; assert(thr == CvOWNER(cv)); CvOWNER(cv) = 0; MUTEX_UNLOCK(CvMUTEXP(cv)); diff --git a/util.c b/util.c index ab8356e..1ab05e6 100644 --- a/util.c +++ b/util.c @@ -2848,7 +2848,7 @@ Perl_condpair_magic(pTHX_ SV *sv) mg->mg_len = sizeof(cp); UNLOCK_CRED_MUTEX; /* XXX need separate mutex? */ DEBUG_S(WITH_THR(PerlIO_printf(Perl_debug_log, - "%p: condpair_magic %p\n", thr, sv));) + "%p: condpair_magic %p\n", thr, sv))); } } return mg; @@ -2875,7 +2875,7 @@ Perl_sv_lock(pTHX_ SV *osv) MgOWNER(mg) = thr; DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%"UVxf": Perl_lock lock 0x%"UVxf"\n", - PTR2UV(thr), PTR2UV(sv));) + PTR2UV(thr), PTR2UV(sv))); MUTEX_UNLOCK(MgMUTEXP(mg)); SAVEDESTRUCTOR_X(Perl_unlock_condpair, sv); } -- 2.7.4