diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index ce090def9c6fe4f89c249888920135c176400f0d..755d1e32720cd892664300009af555b5e3bdd489 100644 --- a/compiler/mips/cell.lisp +++ b/compiler/mips/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.33 1990/04/24 19:09:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.34 1990/05/25 20:03:52 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the MIPS. @@ -316,3 +316,11 @@ (define-vop (structure-index-set word-index-set) (:variant vm:vector-data-offset vm:other-pointer-type)) + + + +;;;; Extra random indexers. + +(define-vop (code-constant-set word-index-set) + (:variant vm:code-constants-offset vm:other-pointer-type)) + diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp index bf33ce05fc50fb8791f366d23e631c0eda5ed6f9..8c97346d62e74549009338aa097ff72c62c0b98b 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.16 1990/05/25 12:29:32 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.17 1990/05/25 20:04:16 wlott Exp $ ;;; ;;; MIPS VM definitions of various system hacking operations. ;;; @@ -151,9 +151,6 @@ ;;;; Code object frobbing. -(define-vop (code-constant-set word-index-set) - (:variant vm:code-constants-offset vm:other-pointer-type)) - (define-vop (code-instructions) (:args (code :scs (descriptor-reg))) (:temporary (:scs (non-descriptor-reg)) ndescr)