Classic-Perl
view release on metacpan or search on metacpan
7778798081828384858687888990919293949596979899100101
val = oi;
}
#ifdef USE_ITHREADS
MUTEX_UNLOCK(
&cp_op_map_mutex
);
#endif
return
val;
}
STATIC const cp_op_info
*cp_map_store_locked
(
pPTBLMS_ const OP
*o
, OP *(
*old_pp
)(pTHX)
) {
#define cp_map_store_locked(O, PP) \
cp_map_store_locked(aPTBLMS_ (O), (PP))
cp_op_info
*oi
;
if
(!(oi = ptable_fetch(cp_op_map, o))) {
oi = PerlMemShared_malloc(sizeof
*oi
);
ptable_map_store(cp_op_map, o, oi);
}
oi->old_pp = old_pp;
/* oi->
next
=
next
;
oi->flags = flags;
105106107108109110111112113114115116117118119120121122123124125STATIC void cp_map_store(
pPTBLMS_ const OP
*o
, OP *(
*old_pp
)(pTHX))
{
#define cp_map_store(O, PP) cp_map_store(aPTBLMS_ (O),(PP))
#ifdef USE_ITHREADS
MUTEX_LOCK(
&cp_op_map_mutex
);
#endif
cp_map_store_locked(o, old_pp);
#ifdef USE_ITHREADS
MUTEX_UNLOCK(
&cp_op_map_mutex
);
#endif
}
STATIC void cp_map_delete(pTHX_ const OP
*o
) {
#define cp_map_delete(O) cp_map_delete(aTHX_ (O))
#ifdef USE_ITHREADS
MUTEX_LOCK(
&cp_op_map_mutex
);
( run in 0.257 second using v1.01-cache-2.11-cpan-bb97c1e446a )