From 76695dd97d66ef00d7d029a7b07a26962520999b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 9 Jan 1991 02:11:32 +0000
Subject: [PATCH] Nuked structurify.

---
 compiler/sparc/system.lisp | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/compiler/sparc/system.lisp b/compiler/sparc/system.lisp
index af3948e48..253f19089 100644
--- a/compiler/sparc/system.lisp
+++ b/compiler/sparc/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.2 1990/12/08 22:51:36 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.3 1991/01/09 02:11:32 wlott Exp $
 ;;;
 ;;;    MIPS VM definitions of various system hacking operations.
 ;;;
@@ -160,18 +160,6 @@
     (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)
   (:args (ptr :scs (any-reg descriptor-reg)))
   (:results (res :scs (any-reg descriptor-reg)))
-- 
GitLab