Skip to content
Snippets Groups Projects
Commit ba036ec2 authored by Raymond Toy's avatar Raymond Toy
Browse files

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.
parent 6e4b4118
No related branches found
No related tags found
No related merge requests found
...@@ -134,9 +134,6 @@ ...@@ -134,9 +134,6 @@
;;; Register various Lisp features ;;; Register various Lisp features
#+pentium
(sys:register-lisp-runtime-feature :pentium)
#+sparc-v7 #+sparc-v7
(sys:register-lisp-runtime-feature :sparc-v7) (sys:register-lisp-runtime-feature :sparc-v7)
......
...@@ -283,11 +283,12 @@ ...@@ -283,11 +283,12 @@
(system:get-system-info) (system:get-system-info)
(values user sys faults (get-bytes-consed)))) (values user sys faults (get-bytes-consed))))
#+(or pentium sparc-v9) #+(or x86 sparc-v9)
(defun cycle-count/float () (defun cycle-count/float ()
(multiple-value-bind (lo hi) (multiple-value-bind (lo hi)
(vm::read-cycle-counter) (vm::read-cycle-counter)
(+ (* hi (expt 2.0d0 32)) lo))) (+ (* hi (expt 2.0d0 32)) lo)))
#+ppc #+ppc
(progn (progn
(alien:def-alien-variable cycles-per-tick c-call:int) (alien:def-alien-variable cycles-per-tick c-call:int)
...@@ -300,7 +301,7 @@ ...@@ -300,7 +301,7 @@
(* cycles-per-tick (+ (* hi (expt 2.0d0 32)) lo)))) (* 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) (defun cycle-count/float () 0.0)
(defvar *time-consing* nil) (defvar *time-consing* nil)
......
...@@ -3302,8 +3302,7 @@ ...@@ -3302,8 +3302,7 @@
(:arg-types double-float) (:arg-types double-float)
(:result-types double-float) (:result-types double-float)
(:policy :fast-safe) (:policy :fast-safe)
(:guard (or (not (backend-featurep :pentium)) (:guard (not (backend-featurep :sse2)))
(not (backend-featurep :sse2))))
(:note _N"inline log1p function") (:note _N"inline log1p function")
(:ignore temp) (:ignore temp)
(:generator 5 (:generator 5
...@@ -3357,8 +3356,7 @@ ...@@ -3357,8 +3356,7 @@
(:arg-types double-float) (:arg-types double-float)
(:result-types double-float) (:result-types double-float)
(:policy :fast-safe) (:policy :fast-safe)
(:guard (and (backend-featurep :pentium) (:guard (and (not (backend-featurep :sse2))))
(not (backend-featurep :sse2))))
(:note _N"inline log1p with limited x range function") (:note _N"inline log1p with limited x range function")
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only) (:save-p :compute-only)
......
...@@ -590,7 +590,6 @@ ...@@ -590,7 +590,6 @@
(define-vop (read-cycle-counter) (define-vop (read-cycle-counter)
(:translate read-cycle-counter) (:translate read-cycle-counter)
(:guard (backend-featurep :pentium))
(:args ) (:args )
(:policy :fast-safe) (:policy :fast-safe)
(:results (lo :scs (unsigned-reg)) (:results (lo :scs (unsigned-reg))
...@@ -614,7 +613,6 @@ ...@@ -614,7 +613,6 @@
(move hi edx) (move hi edx)
(move lo eax))) (move lo eax)))
#+pentium
(defun read-cycle-counter () (defun read-cycle-counter ()
(read-cycle-counter)) (read-cycle-counter))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment