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