Change 11021 by jhi@alpha on 2001/06/29 12:21:51
Subject: [PATCH @11016] Fixes compile errors in four files
From: Richard Soderberg <[EMAIL PROTECTED]>
Date: Fri, 29 Jun 2001 03:35:11 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/mg.c#184 edit
... //depot/perl/pp.c#287 edit
... //depot/perl/pp_hot.c#242 edit
... //depot/perl/util.c#283 edit
Differences ...
==== //depot/perl/mg.c#184 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Fri Jun 29 06:30:06 2001
+++ perl/mg.c Fri Jun 29 06:30:06 2001
@@ -2163,7 +2163,7 @@
{
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));
==== //depot/perl/pp.c#287 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Fri Jun 29 06:30:06 2001
+++ perl/pp.c Fri Jun 29 06:30:06 2001
@@ -4325,7 +4325,7 @@
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 */
==== //depot/perl/pp_hot.c#242 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c.~1~ Fri Jun 29 06:30:06 2001
+++ perl/pp_hot.c Fri Jun 29 06:30:06 2001
@@ -2567,7 +2567,7 @@
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 @@
}
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 @@
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));
==== //depot/perl/util.c#283 (text) ====
Index: perl/util.c
--- perl/util.c.~1~ Fri Jun 29 06:30:06 2001
+++ perl/util.c Fri Jun 29 06:30:06 2001
@@ -2848,7 +2848,7 @@
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 @@
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);
}
End of Patch.
