From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 14 Nov 1997 15:05:57 +0000 (+0000)
Subject: Remove stale code from Thread.xs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e19b54af507c5ab27542aecc414a80a5ab67428;p=p5sagit%2Fp5-mst-13.2.git

Remove stale code from Thread.xs.

p4raw-id: //depot/perl@251
---

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index ba256c9..9e3c439 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -115,44 +115,9 @@ threadstart(void *arg)
     DEBUG_L(PerlIO_printf(PerlIO_stderr(), "new thread %p starting at %s\n",
 			  thr, SvPEEK(TOPs)));
 
-#ifdef OLD_WAY
-    JMPENV_PUSH(ret);
-    switch (ret) {
-    case 3:
-        PerlIO_printf(PerlIO_stderr(), "panic: threadstart\n");
-	/* fall through */
-    case 1:
-	STATUS_ALL_FAILURE;
-	/* fall through */
-    case 2:
-	/* my_exit() was called */
-	while (scopestack_ix > oldscope)
-	    LEAVE;
-	JMPENV_POP;
-	MUTEX_LOCK(&thr->mutex);
-	thr->flags |= THRf_DID_DIE;
-	MUTEX_UNLOCK(&thr->mutex);
-	av = newSVpvf("Thread called exit with value %d", statusvalue);
-	goto finishoff;
-    }
-
-    CATCH_SET(TRUE);
-
-    /* Now duplicate most of perl_call_sv but with a few twists */
-    op = (OP*)&myop;
-    Zero(op, 1, LOGOP);
-    myop.op_flags = OPf_STACKED;
-    myop.op_next = Nullop;
-    myop.op_flags |= OPf_KNOW;
-    myop.op_flags |= OPf_WANT_LIST;
-    op = pp_entersub(ARGS);
-    if (op)
-	runops();
-#else
     sv = POPs;
     PUTBACK;
     perl_call_sv(sv, G_ARRAY|G_EVAL);
-#endif
     SPAGAIN;
     retval = sp - (stack_base + oldmark);
     sp = stack_base + oldmark + 1;