This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via ba036ec2f58f8bdd49a3807e32e9f48f72afb133 (commit) from 6e4b411893ce81fd30f053f12474c2eeb986e5fa (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit ba036ec2f58f8bdd49a3807e32e9f48f72afb133 Author: Raymond Toy toy.raymond@gmail.com Date: Sat Feb 23 07:38:18 2013 -0800
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.
diff --git a/src/code/misc.lisp b/src/code/misc.lisp index 50639d2..788a912 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 999610a..e6fb0c0 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 e4d5952..4d2ea5e 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 93519d8..71f7bb2 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))
-----------------------------------------------------------------------
Summary of changes: 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(-)
hooks/post-receive