From b17961ca62dedd0fdbb813932526c86c86c34521 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 21 Dec 1991 23:05:29 +0000
Subject: [PATCH] Fixed RESET-STACK-POINTER to use WORD-POINTER-REG instead of
 ANY-REG.

---
 compiler/rt/values.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rt/values.lisp b/compiler/rt/values.lisp
index ae6eecd5c..e67e53cd4 100644
--- a/compiler/rt/values.lisp
+++ b/compiler/rt/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.2 1991/03/31 18:45:02 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.3 1991/12/21 23:05:29 ram Exp $
 ;;;
 ;;; This file contains the implementation of unknown-values VOPs.
 ;;;
@@ -21,7 +21,7 @@
 
 
 (define-vop (reset-stack-pointer)
-  (:args (ptr :scs (any-reg)))
+  (:args (ptr :scs (word-pointer-reg)))
   (:generator 1
     (move csp-tn ptr)))
 
-- 
GitLab