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

Changed fast-safe to :fast-safe to make define-vop happy.

parent 25e3d415
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/cell.lisp,v 1.10 1990/02/20 19:34:59 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.11 1990/02/20 19:39:39 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of various primitive memory access ;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the MIPS. ;;; VOPs for the MIPS.
...@@ -163,7 +163,7 @@ ...@@ -163,7 +163,7 @@
(:temporary (:scs (descriptor-reg) :to (:result 0) (:temporary (:scs (descriptor-reg) :to (:result 0)
:target real-result) result) :target real-result) result)
(:results (real-result :scs (descriptor-reg))) (:results (real-result :scs (descriptor-reg)))
(:policy fast-safe) (:policy :fast-safe)
,@(when alloc-trans ,@(when alloc-trans
`((:translate ,alloc-trans))) `((:translate ,alloc-trans)))
(:generator 37 (:generator 37
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment