From a7817fa3bc92202fa7b11fd83717c607b65b350e Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 25 Feb 2012 13:57:30 -0800 Subject: arybase.xs: Wrap PL_check safely --- ext/arybase/arybase.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ext/arybase') diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index 68b9cf99cc..cde9bb8a84 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -405,8 +405,8 @@ BOOT: #ifdef USE_ITHREADS MUTEX_INIT(&ab_op_map_mutex); #endif -#define check(uc,lc,ck) ab_old_ck_##lc = PL_check[OP_##uc]; \ - PL_check[OP_##uc] = ab_ck_##ck +#define check(uc,lc,ck) \ + wrap_op_checker(OP_##uc, ab_ck_##ck, &ab_old_ck_##lc) check(SASSIGN, sassign, sassign); check(AASSIGN, aassign, aassign); check(AELEM, aelem, base); -- cgit v1.2.1