[PATCH @11016] Fixes compile errors in four files

Semicolons everywhere, and now it works, I think.

This patch fixes compile errors in 11016 - semicolons are a line
terminator, which was breaking things.

R.

--- mg.c.orig	Fri Jun 29 03:30:58 2001
+++ mg.c	Fri Jun 29 03:31:27 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));
--- pp.c.orig	Fri Jun 29 03:31:01 2001
+++ pp.c	Fri Jun 29 03:31:23 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 */
--- pp_hot.c.orig	Fri Jun 29 03:31:15 2001
+++ pp_hot.c	Fri Jun 29 03:31:25 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));
--- util.c.orig	Tue Jun 26 05:59:39 2001
+++ util.c	Fri Jun 29 03:30:08 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);
     }

• [PATCH @11016] Fixes compile errors in four files by Richard Soderberg
• Re: [PATCH @11016] Fixes compile errors in four files by Philip Newton
• Re: [PATCH @11016] Fixes compile errors in four files by Jarkko Hietaniemi
• Re: [PATCH @11016] Fixes compile errors in four files by Jarkko Hietaniemi