From a835d317a95a4687dcab69d902e338940d91160a Mon Sep 17 00:00:00 2001 From: Richard Soderberg Date: Thu, 28 Jun 2001 21:09:24 -0700 Subject: [PATCH] Based on Subject: [PATCH @11016] More );) fixes Message-ID: p4raw-id: //depot/perl@11022 --- ext/Thread/Thread.xs | 8 ++++---- ext/Thread/typemap | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 499a312..b209d3b 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -348,7 +348,7 @@ handle_thread_signal(int sig) * 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 @@ join(t) 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 @@ detach(t) 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 @@ await_signal() 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 diff --git a/ext/Thread/typemap b/ext/Thread/typemap index 7ce7d5c..5df5b26 100644 --- a/ext/Thread/typemap +++ b/ext/Thread/typemap @@ -14,7 +14,7 @@ T_XSCPTR 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)) -- 2.7.4