From f81755234d7a8b31de54f3957abd0634d06e7dbf Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 18 Dec 1990 20:49:24 +0000
Subject: [PATCH] Nuked structurify.

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

diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp
index 0c04cffef..8d3e48e67 100644
--- a/compiler/mips/system.lisp
+++ b/compiler/mips/system.lisp
@@ -7,7 +7,7 @@
 ;;; 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.
 ;;;
@@ -167,19 +167,6 @@
     (storew t1 x 0 vm:other-pointer-type)
     (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)
   (:args (ptr :scs (any-reg descriptor-reg)))
   (:results (res :scs (any-reg descriptor-reg)))
-- 
GitLab