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