From 940cb80d04d066d4fedfc4486ab57e435ee74514 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Mon, 2 Feb 1998 15:51:39 +0000 Subject: Introduced thr->threadsvp and THREADSV() for faster per-thread variables. Moved threadnum to a per-interpreter variable and made dTHR and lock/unlock of sv_mutex bypass the get/lock unless more than one thread may be running. Minor tweaks to Thread.xs. p4raw-id: //depot/perl@453 --- pp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index 7864089313..765f10b702 100644 --- a/pp.c +++ b/pp.c @@ -4314,7 +4314,7 @@ PP(pp_threadsv) if (op->op_private & OPpLVAL_INTRO) PUSHs(*save_threadsv(op->op_targ)); else - PUSHs(*av_fetch(thr->threadsv, op->op_targ, FALSE)); + PUSHs(THREADSV(op->op_targ)); RETURN; #else DIE("tried to access per-thread data in non-threaded perl"); -- cgit v1.2.1