Skip to content
Snippets Groups Projects
Commit be763967 authored by wlott's avatar wlott
Browse files

Added several (:save-p :compute-only) so that Rob's note-this-locations

will work.
parent 94c27426
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.7 1990/10/01 17:15:05 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.8 1990/10/03 11:57:41 wlott Exp $
;;; ;;;
;;; This file contains floating point support for the MIPS. ;;; This file contains floating point support for the MIPS.
;;; ;;;
...@@ -141,6 +141,7 @@ ...@@ -141,6 +141,7 @@
(:policy :fast-safe) (:policy :fast-safe)
(:note "inline float arithmetic") (:note "inline float arithmetic")
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only)
(:generator 0 (:generator 0
(note-this-location vop :internal-error) (note-this-location vop :internal-error)
(inst float-op operation format r x y))) (inst float-op operation format r x y)))
...@@ -180,6 +181,7 @@ ...@@ -180,6 +181,7 @@
(:result-types ,type) (:result-types ,type)
(:note "inline float arithmetic") (:note "inline float arithmetic")
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only)
(:generator 1 (:generator 1
(note-this-location vop :internal-error) (note-this-location vop :internal-error)
(inst ,inst ,format y x))))) (inst ,inst ,format y x)))))
...@@ -199,6 +201,7 @@ ...@@ -199,6 +201,7 @@
(:policy :fast-safe) (:policy :fast-safe)
(:note "inline float comparison") (:note "inline float comparison")
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only)
(:generator 3 (:generator 3
(note-this-location vop :internal-error) (note-this-location vop :internal-error)
(inst fcmp operation format x y) (inst fcmp operation format x y)
...@@ -244,6 +247,7 @@ ...@@ -244,6 +247,7 @@
(:note "inline float coercion") (:note "inline float coercion")
(:translate ,translate) (:translate ,translate)
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only)
(:generator ,(if word-p 3 2) (:generator ,(if word-p 3 2)
,@(if word-p ,@(if word-p
`((inst mtc1 y x) `((inst mtc1 y x)
...@@ -277,6 +281,7 @@ ...@@ -277,6 +281,7 @@
(:policy :fast-safe) (:policy :fast-safe)
(:note "inline float truncate") (:note "inline float truncate")
(:vop-var vop) (:vop-var vop)
(:save-p :compute-only)
(:generator 3 (:generator 3
(note-this-location vop :internal-error) (note-this-location vop :internal-error)
(inst fcvt :word ,from-format temp x) (inst fcvt :word ,from-format temp x)
......
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