[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-14-gba036ec

[Raymond Toy]

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 at 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
-- 
CMU Common Lisp