diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:31:38 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:31:38 +0000 |
| commit | 199100c871a030cc44240072644abe9aab66bc02 (patch) | |
| tree | b88def55f8e42b978120f498a2e4197260d5db23 /pp_hot.c | |
| parent | 554b3ecafd2a8f619792c82298bc621b9e48a923 (diff) | |
| download | perl-199100c871a030cc44240072644abe9aab66bc02.tar.gz | |
Per-thread magicals now stored in their own thr->magicals and keyed
more directly. cvcache and oursv become ordinary struct thread
fields instead of #defined thr->Tfoo ones. SvREFCNT_inc now checks
for 0 again. Main thread initialisation done by new function
init_main_thread instead of (now fixed) new_struct_thread.
p4raw-id: //depot/perl@205
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1901,7 +1901,7 @@ PP(pp_entersub) * (3) instead of (2) so we'd have to clone. Would the fact * that we released the mutex more quickly make up for this? */ - svp = hv_fetch(cvcache, (char *)cv, sizeof(cv), FALSE); + svp = hv_fetch(thr->cvcache, (char *)cv, sizeof(cv), FALSE); if (svp) { /* We already have a clone to use */ MUTEX_UNLOCK(CvMUTEXP(cv)); @@ -1941,7 +1941,7 @@ PP(pp_entersub) */ clonecv = cv_clone(cv); SvREFCNT_dec(cv); /* finished with this */ - hv_store(cvcache, (char*)cv, sizeof(cv), (SV*)clonecv,0); + hv_store(thr->cvcache, (char*)cv, sizeof(cv), (SV*)clonecv,0); CvOWNER(clonecv) = thr; cv = clonecv; SvREFCNT_inc(cv); |