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

Added code-header-{ref,set} and changed code-instructions to be a magic

function instead of a %primitive.
,
parent be2ae6fa
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/sparc/system.lisp,v 1.3 1991/01/09 02:11:32 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.4 1991/03/22 14:01:01 wlott Exp $
;;; ;;;
;;; MIPS VM definitions of various system hacking operations. ;;; MIPS VM definitions of various system hacking operations.
;;; ;;;
...@@ -216,7 +216,20 @@ ...@@ -216,7 +216,20 @@
;;;; Code object frobbing. ;;;; Code object frobbing.
(define-vop (code-header-ref word-index-ref)
(:translate code-header-ref)
(:policy :fast-safe)
(:variant 0 other-pointer-type))
(define-vop (code-header-set word-index-set)
(:translate code-header-set)
(:policy :fast-safe)
(:variant 0 other-pointer-type))
(define-vop (code-instructions) (define-vop (code-instructions)
(:translate code-instructions)
(:policy fast-safe)
(:args (code :scs (descriptor-reg))) (:args (code :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg)) ndescr) (:temporary (:scs (non-descriptor-reg)) ndescr)
(:results (sap :scs (sap-reg))) (:results (sap :scs (sap-reg)))
...@@ -242,6 +255,7 @@ ...@@ -242,6 +255,7 @@
(inst add ndescr (- vm:function-pointer-type vm:other-pointer-type)) (inst add ndescr (- vm:function-pointer-type vm:other-pointer-type))
(inst add func code ndescr))) (inst add func code ndescr)))
;;;; Other random VOPs. ;;;; Other random VOPs.
......
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