Change 11022 by jhi@alpha on 2001/06/29 12:24:32
Based on
Subject: [PATCH @11016] More );) fixes
From: Richard Soderberg <[EMAIL PROTECTED]>
Date: Fri, 29 Jun 2001 04:09:24 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Thread/Thread.xs#61 edit
... //depot/perl/ext/Thread/typemap#7 edit
Differences ...
==== //depot/perl/ext/Thread/Thread.xs#61 (text) ====
Index: perl/ext/Thread/Thread.xs
--- perl/ext/Thread/Thread.xs.~1~ Fri Jun 29 06:30:06 2001
+++ perl/ext/Thread/Thread.xs Fri Jun 29 06:30:06 2001
@@ -348,7 +348,7 @@
* with -DL.
*/
DEBUG_S(PerlIO_printf(Perl_debug_log,
- "handle_thread_signal: got signal %d\n", sig););
+ "handle_thread_signal: got signal %d\n", sig));
write(sig_pipe[1], &c, 1);
}
@@ -373,7 +373,7 @@
if (t == thr)
croak("Attempt to join self");
DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: joining %p (state %u)\n",
- thr, t, ThrSTATE(t)););
+ thr, t, ThrSTATE(t)));
MUTEX_LOCK(&t->mutex);
switch (ThrSTATE(t)) {
case THRf_R_JOINABLE:
@@ -416,7 +416,7 @@
CODE:
#ifdef USE_THREADS
DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: detaching %p (state %u)\n",
- thr, t, ThrSTATE(t)););
+ thr, t, ThrSTATE(t)));
MUTEX_LOCK(&t->mutex);
switch (ThrSTATE(t)) {
case THRf_R_JOINABLE:
@@ -664,7 +664,7 @@
if (ret)
sv_setsv(ST(0), c ? PL_psig_ptr[c] : &PL_sv_no);
DEBUG_S(PerlIO_printf(Perl_debug_log,
- "await_signal returning %s\n", SvPEEK(ST(0))););
+ "await_signal returning %s\n", SvPEEK(ST(0))));
MODULE = Thread PACKAGE = Thread::Specific
==== //depot/perl/ext/Thread/typemap#7 (text) ====
Index: perl/ext/Thread/typemap
--- perl/ext/Thread/typemap.~1~ Fri Jun 29 06:30:06 2001
+++ perl/ext/Thread/typemap Fri Jun 29 06:30:06 2001
@@ -14,7 +14,7 @@
croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
$var = ($type) SvPVX(mg->mg_obj);
DEBUG_S(PerlIO_printf(Perl_debug_log,
- \"XSUB ${func_name}: %p\\n\", $var);)
+ \"XSUB ${func_name}: %p\\n\", $var));
} STMT_END
T_IVREF
if (SvROK($arg))
End of Patch.
