From: William Harold Newman <william.newman@airmail.net>
Date: Mon, 8 Oct 2001 23:40:00 +0000 (+0000)
Subject: 0.pre7.57:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=feae2afb12449b318f83c0de6f4c53e5f28657c2;p=sbcl.git

0.pre7.57:
	merged Christophe Rhodes VOPs-conditional-on-target-variant
		patches (sbcl-devel 2001-10-08)
---

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 3ee012e..fd13b36 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -170,6 +170,7 @@
               "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
               "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
               "*BACKEND-SPECIAL-ARG-TYPES*"
+              "*BACKEND-SUBFEATURES*"
               "*BACKEND-T-PRIMITIVE-TYPE*"
 
               "*CODE-SEGMENT*" 
diff --git a/src/compiler/x86/float.lisp b/src/compiler/x86/float.lisp
index 6c02f92..a9e8fd5 100644
--- a/src/compiler/x86/float.lisp
+++ b/src/compiler/x86/float.lisp
@@ -2929,12 +2929,6 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  ;; FIXME: PENTIUM isn't used on the *FEATURES* list of the CMU CL I based
-  ;; SBCL on, even when it is running on a Pentium. Find out what's going
-  ;; on here and see what the proper value should be. (Perhaps just use the
-  ;; apparently-conservative value of T always?) For more confusion, see also
-  ;; apparently-reversed-sense test for the FLOG1P-PENTIUM vop below.
-  (:guard #!+pentium nil #!-pentium t)
   (:note "inline log1p function")
   (:ignore temp)
   (:generator 5
@@ -2988,12 +2982,11 @@
   (:arg-types double-float)
   (:result-types double-float)
   (:policy :fast-safe)
-  ;; FIXME: See comments on DEFINE-VOP FLOG1P :GUARD above.
-  (:guard #!+pentium t #!-pentium nil)
+  (:guard (member :pentium-style-fyl2xp1 *backend-subfeatures*))
   (:note "inline log1p with limited x range function")
   (:vop-var vop)
   (:save-p :compute-only)
-  (:generator 5
+  (:generator 4
      (note-this-location vop :internal-error)
      (sc-case x
 	(double-reg
diff --git a/version.lisp-expr b/version.lisp-expr
index 03b965a..03fff37 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre7.56"
+"0.pre7.57"