Half way through moving per-thread magicals into per-thread fields

and the associated new OP_SPECIFIC and find_thread_magical stuff.
perl will compile but plenty of the magicals are still broken.

p4raw-id: //depot/perl@195

1 files changed, 12 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 649506fa89..981e4889e2 100644
--- a/pp.c
+++ b/pp.c
@@ -396,7 +396,6 @@ SV* sv;
     else if (SvPADTMP(sv))
 	sv = newSVsv(sv);
     else {
-	dTHR;			/* just for SvREFCNT_inc */
 	SvTEMP_off(sv);
 	(void)SvREFCNT_inc(sv);
     }
@@ -4296,3 +4295,15 @@ PP(pp_lock)
     SETs(retsv);
     RETURN;
 }
+
+PP(pp_specific)
+{
+#ifdef USE_THREADS
+    dSP;
+    SV **svp = av_fetch(thr->specific, op->op_targ, TRUE);
+    XPUSHs(svp ? *svp : &sv_undef);
+#else
+    DIE("tried to access thread-specific data in non-threaded perl");
+#endif /* USE_THREADS */
+    RETURN;
+}