From d904b4237942ba416a0129391fc4a301e9814cd4 Mon Sep 17 00:00:00 2001 From: felix Date: Fri, 23 Mar 2018 12:22:19 +0100 Subject: [PATCH] drop "interrupts-enabled" declaration specifier, as it is redundant --- core.scm | 3 --- tests/fft.scm | 4 ---- 2 files changed, 7 deletions(-) diff --git a/core.scm b/core.scm index 00eb04d..f94e1e6 100644 --- a/core.scm +++ b/core.scm @@ -36,7 +36,6 @@ ; ; ([not] extended-bindings {}) ; ([not] inline {}) -; ([not] interrupts-enabled) ; ([not] safe) ; ([not] standard-bindings {}) ; ([not] usual-integrations {}) @@ -1547,7 +1546,6 @@ ((no-bound-checks) (set! no-bound-checks #t)) ((no-argc-checks) (set! no-argc-checks #t)) ((no-procedure-checks) (set! no-procedure-checks #t)) - ((interrupts-enabled) (set! insert-timer-checks #t)) ((disable-interrupts) (set! insert-timer-checks #f)) ((always-bound) (for-each (cut mark-variable <> '##compiler#always-bound) (stripa (cdr spec)))) @@ -1618,7 +1616,6 @@ (check-decl spec 1 1) (let ((id (strip-syntax (cadr spec)))) (case id - [(interrupts-enabled) (set! insert-timer-checks #f)] [(safe) (set! unsafe #t)] [else (warning "unsupported declaration specifier" id)]))])) ((compile-syntax) diff --git a/tests/fft.scm b/tests/fft.scm index 5c187fe..618fcd0 100644 --- a/tests/fft.scm +++ b/tests/fft.scm @@ -1637,7 +1637,6 @@ (define (extend-lut multiplier-lut bit-reverse-size bit-reverse-multiplier start end) (define (bit-reverse x n) - (declare (not interrupts-enabled)) (do ((i 0 (fx+ i 1)) (x x (fxarithmetic-shift-right x 1)) (result 0 (fx+ (fx* result 2) @@ -1872,8 +1871,6 @@ ;; two pass with w=1 (so W[0]=1.0 and W[1] = 0.) and then ;; call recursive-bit appropriately on the two half arrays. - (declare (not interrupts-enabled)) - (let ((SizeOfGroup (fxarithmetic-shift-right (f64vector-length a) 1))) (let loop ((J0 0)) @@ -2038,7 +2035,6 @@ (main-loop M N K SizeOfGroup)))) (define (radix-2-pass a) - (declare (not interrupts-enabled)) (let ((SizeOfGroup (fxarithmetic-shift-right (f64vector-length a) 1))) (let loop ((J0 0)) -- 1.7.9.5