#include "caps.h" /* XSH_HAS_PERL(), XSH_THREADSAFE */
#include "util.h" /* XSH_PACKAGE, dNOOP, NOOP */
+#include "mem.h" /* XSH_SHARED_*() */
#ifndef XSH_THREADS_COMPILE_TIME_PROTECTION
# define XSH_THREADS_COMPILE_TIME_PROTECTION 0
tok->cb(aTHX_ tok->ud);
XSH_LOADED_UNLOCK;
- PerlMemShared_free(tok);
+ XSH_SHARED_FREE(tok, 1, xsh_teardown_late_token);
return 0;
}
} else {
xsh_teardown_late_token *tok;
- tok = PerlMemShared_malloc(sizeof *tok);
+ XSH_SHARED_ALLOC(tok, 1, xsh_teardown_late_token);
tok->cb = cb;
tok->ud = ud;