From ba036ec2f58f8bdd49a3807e32e9f48f72afb133 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 23 Feb 2013 07:38:18 -0800
Subject: [PATCH] Remove :PENTIUM from *FEATURES*

code/misc.lisp::
* Don't register :PENTIUM feature.

code/time.lisp::
* Replace :pentium with :x86; we assume all x86's have the rdtsc
  instruction.

compiler/x86/float.lisp::
compiler/x86/system.lisp::
* Remove the vop guard on :pentium; assume we're always running on a
  pentium or better.
---
 src/code/misc.lisp           | 3 ---
 src/code/time.lisp           | 5 +++--
 src/compiler/x86/float.lisp  | 6 ++----
 src/compiler/x86/system.lisp | 2 --
 4 files changed, 5 insertions(+), 11 deletions(-)

diff --git a/src/code/misc.lisp b/src/code/misc.lisp
index 50639d203..788a912fc 100644
--- a/src/code/misc.lisp
+++ b/src/code/misc.lisp
@@ -134,9 +134,6 @@
 
 
 ;;; Register various Lisp features
-#+pentium
-(sys:register-lisp-runtime-feature :pentium)
-
 #+sparc-v7
 (sys:register-lisp-runtime-feature :sparc-v7)
 
diff --git a/src/code/time.lisp b/src/code/time.lisp
index 999610add..e6fb0c086 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -283,11 +283,12 @@
 		       (system:get-system-info)
     (values user sys faults (get-bytes-consed))))
 
-#+(or pentium sparc-v9)
+#+(or x86 sparc-v9)
 (defun cycle-count/float ()
   (multiple-value-bind (lo hi)
       (vm::read-cycle-counter)
     (+ (* hi (expt 2.0d0 32)) lo)))
+
 #+ppc
 (progn
 (alien:def-alien-variable cycles-per-tick c-call:int)
@@ -300,7 +301,7 @@
     (* cycles-per-tick (+ (* hi (expt 2.0d0 32)) lo))))
 )
 
-#-(or pentium sparc-v9 ppc)
+#-(or x86 sparc-v9 ppc)
 (defun cycle-count/float () 0.0)
 
 (defvar *time-consing* nil)
diff --git a/src/compiler/x86/float.lisp b/src/compiler/x86/float.lisp
index e4d59524b..4d2ea5e1e 100644
--- a/src/compiler/x86/float.lisp
+++ b/src/compiler/x86/float.lisp
@@ -3302,8 +3302,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:guard (or (not (backend-featurep :pentium))
-	      (not (backend-featurep :sse2))))
+  (:guard (not (backend-featurep :sse2)))
   (:note _N"inline log1p function")
   (:ignore temp)
   (:generator 5
@@ -3357,8 +3356,7 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  (:guard (and (backend-featurep :pentium)
-	       (not (backend-featurep :sse2))))
+  (:guard (and (not (backend-featurep :sse2))))
   (:note _N"inline log1p with limited x range function")
   (:vop-var vop)
   (:save-p :compute-only)
diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index 93519d8d2..71f7bb257 100644
--- a/src/compiler/x86/system.lisp
+++ b/src/compiler/x86/system.lisp
@@ -590,7 +590,6 @@
 
 (define-vop (read-cycle-counter)
   (:translate read-cycle-counter)
-  (:guard (backend-featurep :pentium))
   (:args )
   (:policy :fast-safe)
   (:results (lo :scs (unsigned-reg))
@@ -614,7 +613,6 @@
     (move hi edx)
     (move lo eax)))
 
-#+pentium
 (defun read-cycle-counter ()
   (read-cycle-counter))
 
-- 
GitLab