From a0b861e072a14d4fa89c67c4ca6b49a0b9301a94 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 20 Mar 1990 00:09:42 +0000 Subject: [PATCH] Wrote current-binding-pointer. --- compiler/mips/nlx.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/compiler/mips/nlx.lisp b/compiler/mips/nlx.lisp index afff5116b..aed17fe74 100644 --- a/compiler/mips/nlx.lisp +++ b/compiler/mips/nlx.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/nlx.lisp,v 1.5 1990/03/14 16:06:12 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/nlx.lisp,v 1.6 1990/03/20 00:09:42 wlott Exp $ ;;; ;;; This file contains the definitions of VOPs used for non-local exit ;;; (throw, lexical exit, etc.) @@ -82,6 +82,10 @@ (:generator 1 (move res csp-tn))) +(define-vop (current-binding-pointer) + (:results (res :scs (any-reg descriptor-reg))) + (:generator 1 + (move res bsp-tn))) -- GitLab