diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 71da436e7f10912ce5a56642880c1cdf94cfd12d..b407369950090b11efa0dadb6bae1c394c56b9e8 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.49 1990/11/29 00:51:50 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.50 1990/12/07 23:16:09 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the MIPS. @@ -350,3 +350,5 @@ (define-vop (code-constant-set word-index-set) (:variant vm:code-constants-offset vm:other-pointer-type)) +(define-vop (code-constant-ref word-index-ref) + (:variant vm:code-constants-offset vm:other-pointer-type))