From 7978b57621135293a459be49168b042b559cf7cc Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 13 Mar 2015 00:14:32 -0700 Subject: [PATCH] smp: Use without-interruption. Squash into 0dd59191. --- src/runtime/geneqht.scm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/runtime/geneqht.scm b/src/runtime/geneqht.scm index 2c645783d..6e6ae6b56 100644 --- a/src/runtime/geneqht.scm +++ b/src/runtime/geneqht.scm @@ -50,7 +50,7 @@ USA. (hash (compute-key-hash table key))) (let loop ((entries (vector-ref buckets hash))) (cond ((null? entries) - (without-interrupts + (without-interruption (lambda () (vector-set! buckets hash @@ -83,7 +83,7 @@ USA. (if (not (table-needs-rehash? table)) hash (begin - (without-interrupts (lambda () (rehash-table! table))) + (without-interruption (lambda () (rehash-table! table))) (loop)))))) (define-integrable (eq-hash-mod key modulus) @@ -231,11 +231,5 @@ USA. (define-integrable minimum-size 4) -(define-integrable (without-interrupts thunk) - (let ((interrupt-mask (set-interrupt-enables! interrupt-mask/gc-ok))) - (thunk) - (set-interrupt-enables! interrupt-mask) - unspecific)) - (define-integrable (weak-cons car cdr) (system-pair-cons (ucode-type weak-cons) car cdr)) \ No newline at end of file -- 2.25.1