Skip to content
Snippets Groups Projects
Commit 50f18f47 authored by dtc's avatar dtc
Browse files

Use only one of :sparc-v7, :sparc-v8, or :sparc-v9 when building to

get the desired features. From Raymond Toy.
parent 40ba0566
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.29 1999/06/23 14:05:17 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.30 1999/11/19 14:55:53 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -75,7 +75,7 @@
#-x86 (def-math-rtn "log" 1)
#-x86 (def-math-rtn "log10" 1)
(def-math-rtn "pow" 2)
#-(or x86 sparc-v7) (def-math-rtn "sqrt" 1)
#-(or x86 sparc-v7 sparc-v8 sparc-v9) (def-math-rtn "sqrt" 1)
(def-math-rtn "hypot" 2)
#-(or hpux x86) (def-math-rtn "log1p" 1)
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.25 1999/11/18 14:25:39 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.26 1999/11/19 14:55:47 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1272,7 +1272,9 @@
(:results (y :scs (double-reg)))
(:translate %sqrt)
(:policy :fast-safe)
(:guard (backend-featurep :sparc-v7))
(:guard (or (backend-featurep :sparc-v7)
(backend-featurep :sparc-v8)
(backend-featurep :sparc-v9)))
(:arg-types double-float)
(:result-types double-float)
(:note "inline float arithmetic")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment