Skip to content
Snippets Groups Projects
Commit 85ad3460 authored by chiles's avatar chiles
Browse files

Added the :translate and :policy to code-instructions.

parent 0c98a688
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/rt/system.lisp,v 1.2 1991/04/21 19:55:59 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.3 1991/04/23 17:00:07 chiles Exp $
;;; ;;;
;;; IBM RT VM definitions of various system hacking operations. ;;; IBM RT VM definitions of various system hacking operations.
;;; ;;;
...@@ -240,6 +240,8 @@ ...@@ -240,6 +240,8 @@
;;;; Code object frobbing. ;;;; Code object frobbing.
(define-vop (code-instructions) (define-vop (code-instructions)
(:translate code-instructions)
(:policy :fast-safe)
(:args (code :scs (descriptor-reg) :target sap)) (:args (code :scs (descriptor-reg) :target sap))
(:temporary (:scs (non-descriptor-reg)) ndescr) (:temporary (:scs (non-descriptor-reg)) ndescr)
(:results (sap :scs (sap-reg))) (:results (sap :scs (sap-reg)))
......
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