From dfd24e45c5daaa97536a8a21eff2a261bf8003b3 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 8 Sep 2018 17:46:55 +0200 Subject: [PATCH] Revert "threading: block interrupts during execution of cleanup forms in unwind-protect" This reverts commit 24e4c13d5817ec980f8214d74e41ef0bc0888d21. --- src/h/stacks.h | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/h/stacks.h b/src/h/stacks.h index 44a4112e5..bcba932d4 100755 --- a/src/h/stacks.h +++ b/src/h/stacks.h @@ -447,14 +447,11 @@ extern ECL_API ecl_frame_ptr _ecl_frs_push(register cl_env_ptr); #define ECL_UNWIND_PROTECT_EXIT \ __unwinding=0; } \ - ecl_bds_bind(__the_env,ECL_INTERRUPTS_ENABLED,ECL_NIL); \ ecl_frs_pop(__the_env); \ __nr = ecl_stack_push_values(__the_env); -#define ECL_UNWIND_PROTECT_END \ +#define ECL_UNWIND_PROTECT_END \ ecl_stack_pop_values(__the_env,__nr); \ - ecl_bds_unwind1(__the_env); \ - ecl_check_pending_interrupts(__the_env); \ if (__unwinding) ecl_unwind(__the_env,__next_fr); } while(0) #define ECL_NEW_FRAME_ID(env) ecl_make_fixnum(env->frame_id++)