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

Added a define-vop for structurify.

parent 81fe990c
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/system.lisp,v 1.31 1990/09/09 20:39:52 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.32 1990/10/04 23:23:43 wlott Exp $
;;; ;;;
;;; MIPS VM definitions of various system hacking operations. ;;; MIPS VM definitions of various system hacking operations.
;;; ;;;
...@@ -156,6 +156,18 @@ ...@@ -156,6 +156,18 @@
(move res x))) (move res x)))
(define-vop (structurify)
(:policy :fast-safe)
(:translate structurify)
(:args (vec :scs (descriptor-reg) :target struct))
(:results (struct :scs (descriptor-reg)))
(:temporary (:scs (any-reg)) temp)
(:generator 2
(inst li temp vm:structure-header-type)
(storew temp vec 0 vm:other-pointer-type)
(move struct vec)))
(define-vop (make-fixnum) (define-vop (make-fixnum)
(:args (ptr :scs (any-reg descriptor-reg))) (:args (ptr :scs (any-reg descriptor-reg)))
(:results (res :scs (any-reg descriptor-reg))) (:results (res :scs (any-reg descriptor-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