diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-06-28 21:09:24 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-29 12:24:32 +0000 |
| commit | a835d317a95a4687dcab69d902e338940d91160a (patch) | |
| tree | a2148d0f126016922a50742c6e85d5cd99ea5ef7 /ext/Thread | |
| parent | a674cc9519a30d3c9f6c9b760fccd58e038f3649 (diff) | |
| download | perl-a835d317a95a4687dcab69d902e338940d91160a.tar.gz | |
Based on
Subject: [PATCH @11016] More );) fixes
Message-ID: <Pine.LNX.4.21.0106290408200.12037-100000@oregonnet.com>
p4raw-id: //depot/perl@11022
Diffstat (limited to 'ext/Thread')
| -rw-r--r-- | ext/Thread/Thread.xs | 8 | ||||
| -rw-r--r-- | ext/Thread/typemap | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 499a3121d9..b209d3b292 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 7ce7d5cce3..5df5b2646f 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)) |