From b1ccedea3be3ca9b9568015494e235da971d42dd Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 16 Sep 2009 22:30:40 +0200 Subject: [PATCH] Implement ecl_clear_interrupts[_env]() as described in the manual. --- src/h/external.h | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/h/external.h b/src/h/external.h index 76c856725..6b6a1b4b9 100644 --- a/src/h/external.h +++ b/src/h/external.h @@ -1696,6 +1696,8 @@ extern ECL_API cl_object si_copy_file(cl_object orig, cl_object end); #define ecl_disable_interrupts_env(env) ((env)->disable_interrupts=1) #define ecl_enable_interrupts_env(env) (((env)->disable_interrupts^=1) && (ecl_check_pending_interrupts(),0)) #endif +#define ecl_clear_interrupts_env(env) ((env)->pendinginterrupts=0) +#define ecl_clear_interrupts() ecl_clear_interrupts(&cl_env) #define ecl_disable_interrupts() ecl_disable_interrupts_env(&cl_env) #define ecl_enable_interrupts() ecl_enable_interrupts_env(&cl_env) #define ECL_PSEUDO_ATOMIC_ENV(env,stmt) (ecl_disable_interrupts_env(env),(stmt),ecl_enable_interrupts_env(env))