From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 31 May 2001 19:41:53 +0000 (+0000)
Subject: Add interrupt locking to REGISTER-INFERIOR-THREAD! and
X-Git-Tag: 20090517-FFI~2760
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1e6fbf9bc7c8480a54c88f9b861a2455d25245db;p=mit-scheme.git

Add interrupt locking to REGISTER-INFERIOR-THREAD! and
DEREGISTER-INFERIOR-THREAD!.  Change DEREGISTER-INFERIOR-THREAD! to
delete the entry from the list of inferior threads.
---

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index d2395aada..55b45a21c 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: editor.scm,v 1.249 2000/10/26 02:28:07 cph Exp $
+;;; $Id: editor.scm,v 1.250 2001/05/31 19:41:53 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -16,7 +16,8 @@
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
 
 ;;;; Editor Top Level
 
@@ -514,19 +515,27 @@ TRANSCRIPT    messages appear in transcript buffer, if it is enabled;
 
 (define (register-inferior-thread! thread output-processor)
   (let ((flags (cons #f output-processor)))
-    (set! inferior-threads
-	  (cons (weak-cons thread flags)
-		inferior-threads))
+    (without-interrupts
+     (lambda ()
+       (set! inferior-threads
+	     (cons (weak-cons thread flags)
+		   inferior-threads))
+       unspecific))
     flags))
 
 (define (deregister-inferior-thread! flags)
-  (let loop ((threads inferior-threads))
-    (if (pair? threads)
-	(if (eq? flags (weak-cdr (car threads)))
-	    (begin
-	      (weak-set-car! (car threads) #f)
-	      (weak-set-cdr! (car threads) #f))
-	    (loop (cdr threads))))))
+  (without-interrupts
+   (lambda ()
+     (let loop ((threads inferior-threads) (prev #f))
+       (if (pair? threads)
+	   (if (eq? flags (weak-cdr (car threads)))
+	       (begin
+		 (if prev
+		     (set-cdr! prev (cdr threads))
+		     (set! inferior-threads (cdr threads)))
+		 (weak-set-car! (car threads) #f)
+		 (weak-set-cdr! (car threads) #f))
+	       (loop (cdr threads) threads)))))))
 
 (define (inferior-thread-output! flags)
   (without-interrupts (lambda () (inferior-thread-output!/unsafe flags))))