From 53f0ecbe20d7984de8d33faa42970bc0fe578d66 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 29 Sep 1997 11:01:10 +0000
Subject: [PATCH] Check of the i486 data sheet shows it supports the cmpxchg
 instruction and can thus use the fast locking; adjust feature accordingly.

---
 code/multi-proc.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index 596eb69c2..b41590379 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -3,7 +3,7 @@
 ;;; This code was written by Douglas T. Crosher and has been placed in
 ;;; the Public domain, and is provided 'as is'.
 ;;;
-;;; $Id: multi-proc.lisp,v 1.3 1997/09/29 05:08:28 dtc Exp $
+;;; $Id: multi-proc.lisp,v 1.4 1997/09/29 11:01:10 dtc Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -901,14 +901,14 @@
   (name nil)
   (process nil :type (or null process)))
 
-#-pentium
+#-i486
 (defun seize-lock (lock)
   (declare (type lock lock))
   (sys:without-interrupts
    (unless (lock-process lock)
      (setf (lock-process lock) *current-process*))))
 
-#-pentium
+#-i486
 (defmacro with-lock-held ((lock &optional (whostate "Waiting for lock"))
 			  &body body)
   (let ((orig-process (gensym)))
@@ -926,8 +926,8 @@
 		    (not (eq (lock-process ,lock) *current-process*)))
 	  (setf (lock-process ,lock) nil))))))
 
-;;; Fast locking for the Pentium.
-#+pentium
+;;; Fast locking for the i486 and above.
+#+i486
 (defmacro with-lock-held ((lock &optional (whostate "Waiting for lock"))
 			  &body body)
   (let ((orig-process (gensym)))
-- 
GitLab