From ca2602afed3271aa2b6c3ffb23d92868e074deb9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 8 Apr 1990 22:38:40 +0000
Subject: [PATCH] Fixed temporary spec in pointer- to specify a SC restriction.

---
 compiler/old-rt/system.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/old-rt/system.lisp b/compiler/old-rt/system.lisp
index 90ecd445f..66886980e 100644
--- a/compiler/old-rt/system.lisp
+++ b/compiler/old-rt/system.lisp
@@ -28,7 +28,11 @@
   (:args (ptr1 :scs (descriptor-reg) :target temp)
 	 (ptr2 :scs (descriptor-reg)))
   (:results (res :scs (any-reg descriptor-reg)))
-  (:temporary (:from (:argument 0) :to (:result 0) :target res) temp)
+  (:temporary (:sc any-reg
+	       :from (:argument 0)
+	       :to (:result 0)
+	       :target res)
+	      temp)
   (:generator 1
     (unless (location= ptr1 temp)
       (inst lr temp ptr1))
-- 
GitLab