diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 23:12:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 23:12:19 +0000 |
| commit | 05c1ce25c94bdb086f7e96123df0134d05931273 (patch) | |
| tree | 4ff151572a4574de7058b955b8e601163fb36c89 /ext/Thread | |
| parent | b175a5c8eb30ca3f0df883b0a8ce7ab8f995c1c1 (diff) | |
| download | perl-05c1ce25c94bdb086f7e96123df0134d05931273.tar.gz | |
-Wall cleanup.
p4raw-id: //depot/perl@10652
Diffstat (limited to 'ext/Thread')
| -rw-r--r-- | ext/Thread/Thread.xs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 6cdc081256..499a3121d9 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -81,15 +81,12 @@ threadstart(void *arg) return 0; #else Thread thr = (Thread) arg; - LOGOP myop; dSP; I32 oldmark = TOPMARK; - I32 oldscope = PL_scopestack_ix; I32 retval; SV *sv; AV *av; - int i, ret; - dJMPENV; + int i; #if defined(MULTIPLICITY) PERL_SET_INTERP(thr->interp); @@ -150,7 +147,6 @@ threadstart(void *arg) FREETMPS; LEAVE; - finishoff: #if 0 /* removed for debug */ SvREFCNT_dec(PL_curstack); @@ -345,7 +341,6 @@ static Signal_t handle_thread_signal (int sig); static Signal_t handle_thread_signal(int sig) { - dTHXo; unsigned char c = (unsigned char) sig; /* * We're not really allowed to call fprintf in a signal handler @@ -499,7 +494,7 @@ void DESTROY(t) SV * t PPCODE: - PUSHs(&PL_sv_yes); + PUSHs(t ? &PL_sv_yes : &PL_sv_no); void yield() |