From f42f5870e6dedc18183a44be6ed88ba10d3e2dfa Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 29 Jul 2009 14:10:23 -0700 Subject: [PATCH] Update doc/.gitignore, src/TAGS. Punt without-timer-interrupts. --- doc/.gitignore | 1 + src/TAGS | 2 ++ src/runtime/thread.scm | 7 ------- 3 files changed, 3 insertions(+), 7 deletions(-) diff --git a/doc/.gitignore b/doc/.gitignore index a9438799a..47ce4cee4 100644 --- a/doc/.gitignore +++ b/doc/.gitignore @@ -20,6 +20,7 @@ *.pdf *.ps /make-common +/ffi/mit-scheme-ffi/ /imail/mit-scheme-imail/ /ref-manual/mit-scheme-ref/ /sos/mit-scheme-sos/ diff --git a/src/TAGS b/src/TAGS index 6018ec20b..e0668593b 100644 --- a/src/TAGS +++ b/src/TAGS @@ -14,3 +14,5 @@ sf/TAGS,include cref/TAGS,include rcs/TAGS,include + +ffi/TAGS,include diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm index d18c1fb0a..c539bfc83 100644 --- a/src/runtime/thread.scm +++ b/src/runtime/thread.scm @@ -283,13 +283,6 @@ USA. (define (allow-preempt-current-thread) (set-thread/execution-state! (current-thread) 'RUNNING)) -(define (without-timer-interrupts thunk) - (let* ((old-mask - ((ucode-primitive disable-interrupts! 1) interrupt-bit/timer)) - (value (thunk))) - (set-interrupt-enables! old-mask) - value)) - (define (thread-timer-interrupt-handler) (set! next-scheduled-timeout #f) (set-interrupt-enables! interrupt-mask/gc-ok) -- 2.25.1