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