From 6c2bc9492b5d699fcf3334d98287131505c28553 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 7 Dec 1990 23:16:09 +0000 Subject: [PATCH] Added a vop, ``code-constant-ref,'' for extracting constants from code objects. --- compiler/mips/cell.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 71da436e7..b40736995 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)) -- GitLab