From f1fcd7ae03befef309717b0aae9af32388f06750 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 8 Mar 1999 00:53:34 +0000 Subject: [PATCH] Add any-reg to the result SCS of cell-set-conditional, slot-set-conditional, instance-set-conditional. --- compiler/x86/cell.lisp | 4 ++-- compiler/x86/memory.lisp | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/x86/cell.lisp b/compiler/x86/cell.lisp index aed585702..a813079ee 100644 --- a/compiler/x86/cell.lisp +++ b/compiler/x86/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.7 1999/03/04 11:49:23 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.8 1999/03/08 00:53:34 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -332,7 +332,7 @@ (:temporary (:sc descriptor-reg :offset eax-offset :from (:argument 2) :to :result :target result) eax) (:temporary (:sc descriptor-reg :from (:argument 3) :to :result) temp) - (:results (result :scs (descriptor-reg))) + (:results (result :scs (descriptor-reg any-reg))) (:policy :fast-safe) (:generator 5 (move eax old-value) diff --git a/compiler/x86/memory.lisp b/compiler/x86/memory.lisp index afe582392..4a81c7f51 100644 --- a/compiler/x86/memory.lisp +++ b/compiler/x86/memory.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/memory.lisp,v 1.5 1999/03/04 11:49:22 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/memory.lisp,v 1.6 1999/03/08 00:53:34 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -92,7 +92,7 @@ :from (:argument 1) :to :result :target result) eax) (:temporary (:sc descriptor-reg :from (:argument 2) :to :result) temp) (:variant-vars offset lowtag) - (:results (result :scs (descriptor-reg))) + (:results (result :scs (descriptor-reg any-reg))) (:generator 4 (move eax old-value) (move temp new-value) @@ -162,7 +162,7 @@ :from (:argument 1) :to :result :target result) eax) (:temporary (:sc descriptor-reg :from (:argument 2) :to :result) temp) (:variant-vars base lowtag) - (:results (result :scs (descriptor-reg))) + (:results (result :scs (descriptor-reg any-reg))) (:info offset) (:generator 4 (move eax old-value) -- GitLab