diff --git a/compiler/x86/cell.lisp b/compiler/x86/cell.lisp index aed58570242da32d29895296b361521a55097d93..a813079ee48013e74d91fb06254fbdc6e7a4ad34 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 afe582392a0b552d5d35e89627a3596f07f13aef..4a81c7f51aa30f1d9688308879cd10bb5dac3488 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)