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

Nuked structurify.

parent 4eab868b
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.38 1990/12/06 22:27:35 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.39 1990/12/18 20:49:24 wlott Exp $
;;; ;;;
;;; MIPS VM definitions of various system hacking operations. ;;; MIPS VM definitions of various system hacking operations.
;;; ;;;
...@@ -167,19 +167,6 @@ ...@@ -167,19 +167,6 @@
(storew t1 x 0 vm:other-pointer-type) (storew t1 x 0 vm:other-pointer-type)
(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 (c::make-fixnum) (define-vop (c::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