#if I_THREADSAFE
#define PTABLE_NAME ptable_loaded
-#define PTABLE_VAL_FREE(V) NOOP
+#define PTABLE_NEED_DELETE 1
+#define PTABLE_NEED_WALK 0
#include "ptable.h"
#define PTABLE_NAME ptable_hints
#define PTABLE_VAL_FREE(V) I_HINT_FREE(V)
+#define PTABLE_NEED_DELETE 0
+#define PTABLE_NEED_WALK 1
#define pPTBL pTHX
#define pPTBL_ pTHX_
#define PTABLE_NAME ptable
#define PTABLE_VAL_FREE(V) if (V) { Safefree(((indirect_op_info_t *) (V))->buf); Safefree(V); }
+#define PTABLE_NEED_DELETE 1
+#define PTABLE_NEED_WALK 0
#define pPTBL pTHX
#define pPTBL_ pTHX_
ptable_hints_store(ud->tbl, ent->key, h2);
}
-static void indirect_thread_cleanup(pTHX_ void *ud) {
- int global_teardown;
- dMY_CXT;
-
- global_teardown = indirect_clear_loaded_locked(&MY_CXT);
- assert(!global_teardown);
-
- SvREFCNT_dec(MY_CXT.global_code);
- MY_CXT.global_code = NULL;
-
- ptable_free(MY_CXT.map);
- MY_CXT.map = NULL;
-
- ptable_hints_free(MY_CXT.tbl);
- MY_CXT.tbl = NULL;
-}
-
-static int indirect_endav_free(pTHX_ SV *sv, MAGIC *mg) {
- SAVEDESTRUCTOR_X(indirect_thread_cleanup, NULL);
-
- return 0;
-}
-
-static MGVTBL indirect_endav_vtbl = {
- 0,
- 0,
- 0,
- 0,
- indirect_endav_free
-#if MGf_COPY
- , 0
-#endif
-#if MGf_DUP
- , 0
-#endif
-#if MGf_LOCAL
- , 0
-#endif
-};
-
#endif /* I_THREADSAFE */
#if I_WORKAROUND_REQUIRE_PROPAGATION
+
static IV indirect_require_tag(pTHX) {
#define indirect_require_tag() indirect_require_tag(aTHX)
const CV *cv, *outside;
return PTR2IV(cv);
}
+
#endif /* I_WORKAROUND_REQUIRE_PROPAGATION */
static SV *indirect_tag(pTHX_ SV *value) {
static void indirect_teardown(pTHX_ void *interp) {
dMY_CXT;
-#if I_MULTIPLICITY
- if (aTHX != interp)
- return;
-#endif
-
I_LOADED_LOCK;
if (indirect_clear_loaded_locked(&MY_CXT)) {
I_LOADED_UNLOCK;
+ SvREFCNT_dec(MY_CXT.global_code);
+ MY_CXT.global_code = NULL;
+
ptable_free(MY_CXT.map);
MY_CXT.map = NULL;
indirect_ck_replace(OP_LINESEQ, indirect_ck_scope, &indirect_old_ck_lineseq);
indirect_ck_replace(OP_METHOD, indirect_ck_method,
- &indirect_old_ck_method);
+ &indirect_old_ck_method);
indirect_ck_replace(OP_METHOD_NAMED, indirect_ck_method_named,
- &indirect_old_ck_method_named);
+ &indirect_old_ck_method_named);
indirect_ck_replace(OP_ENTERSUB, indirect_ck_entersub,
- &indirect_old_ck_entersub);
+ &indirect_old_ck_entersub);
}
I_LOADED_UNLOCK;
MY_CXT.global_code = NULL;
}
-#if I_MULTIPLICITY
- call_atexit(indirect_teardown, aTHX);
-#else
call_atexit(indirect_teardown, NULL);
-#endif
return;
}
PREINIT:
ptable *t;
SV *global_code_dup;
- GV *gv;
PPCODE:
{
indirect_ptable_clone_ud ud;
I_LOADED_UNLOCK;
}
}
- gv = gv_fetchpv(__PACKAGE__ "::_THREAD_CLEANUP", 0, SVt_PVCV);
- if (gv) {
- CV *cv = GvCV(gv);
- if (!PL_endav)
- PL_endav = newAV();
- SvREFCNT_inc(cv);
- if (!av_store(PL_endav, av_len(PL_endav) + 1, (SV *) cv))
- SvREFCNT_dec(cv);
- sv_magicext((SV *) PL_endav, NULL, PERL_MAGIC_ext, &indirect_endav_vtbl, NULL, 0);
- }
XSRETURN(0);
-void
-_THREAD_CLEANUP(...)
-PROTOTYPE: DISABLE
-PPCODE:
- indirect_thread_cleanup(aTHX_ NULL);
- XSRETURN(0);
-
-#endif
+#endif /* I_THREADSAFE */
SV *
_tag(SV *value)