From f75109cfc485257d6daaaacc93eb680d2fc1dc04 Mon Sep 17 00:00:00 2001 From: felix Date: Thu, 6 Dec 2018 16:06:27 +0100 Subject: [PATCH 2/2] Drop "paranoid" interrupt check. Obsolete, was used for debugging once. --- chicken.h | 7 +------ runtime.c | 6 ------ 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/chicken.h b/chicken.h index 2d47f542..7a2f3a14 100644 --- a/chicken.h +++ b/chicken.h @@ -1287,11 +1287,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; #define C_string_to_lambdainfo(s) (C_block_header(s) = C_header_size(s) | C_LAMBDA_INFO_TYPE, C_SCHEME_UNDEFINED) #ifdef C_TIMER_INTERRUPTS -# ifdef PARANOIA -# define C_check_for_interrupt C_paranoid_check_for_interrupt() -# else -# define C_check_for_interrupt if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER) -# endif +# define C_check_for_interrupt if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER) #else # define C_check_for_interrupt #endif @@ -1742,7 +1738,6 @@ C_fctexport C_word C_fcall C_a_i_provide(C_word **a, int c, C_word id) C_regparm C_fctexport C_word C_fcall C_i_providedp(C_word id) C_regparm; C_fctexport C_word C_fcall C_enable_interrupts(void) C_regparm; C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm; -C_fctexport void C_fcall C_paranoid_check_for_interrupt(void) C_regparm; C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern); C_fctexport void C_do_resize_stack(C_word stack); C_fctexport C_word C_resize_pending_finalizers(C_word size); diff --git a/runtime.c b/runtime.c index fe570f4d..2a5415fa 100644 --- a/runtime.c +++ b/runtime.c @@ -4947,12 +4947,6 @@ C_regparm C_word C_fcall C_i_allocated_finalizer_count(void) return C_fix(allocated_finalizer_count); } -C_regparm void C_fcall C_paranoid_check_for_interrupt(void) -{ - if(--C_timer_interrupt_counter <= 0) - C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER); -} - C_regparm void C_fcall C_raise_interrupt(int reason) { -- 2.16.2