From 1d9b2a8e67e7eb1f2d4684c53d40cc649e48887c Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 13 Apr 1990 13:00:33 +0000
Subject: [PATCH] Allow arg to RESTORE-STACK-POINTER to be DESCRIPTOR-REG,
 since we now don't allow descriptor<->any loads.

---
 compiler/old-rt/values.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/old-rt/values.lisp b/compiler/old-rt/values.lisp
index 9875b207a..0e8573516 100644
--- a/compiler/old-rt/values.lisp
+++ b/compiler/old-rt/values.lisp
@@ -14,7 +14,7 @@
 (in-package 'c)
 
 (define-vop (reset-stack-pointer)
-  (:args (ptr :scs (any-reg)))
+  (:args (ptr :scs (any-reg descriptor-reg)))
   (:generator 1
     (inst lr sp-tn ptr)))
 
-- 
GitLab