diff --git a/compiler/x86/vm.lisp b/compiler/x86/vm.lisp index 6854212f684c95a14e3d17f0a9c15e28b9ebbab2..8622b0c2fd013bf29864ca925946f314a2619b33 100644 --- a/compiler/x86/vm.lisp +++ b/compiler/x86/vm.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/vm.lisp,v 1.11 2006/06/30 18:41:32 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.12 2008/04/15 19:55:25 cshapiro Exp $") ;;; ;;; ********************************************************************** ;;; @@ -202,7 +202,6 @@ (any-reg registers :locations #.dword-regs :element-size 2 -; :reserve-locations (#.eax-offset) :constant-scs (immediate) :save-p t :alternate-scs (control-stack)) @@ -211,7 +210,6 @@ (descriptor-reg registers :locations #.dword-regs :element-size 2 -; :reserve-locations (#.eax-offset) :constant-scs (constant immediate) :save-p t :alternate-scs (control-stack)) @@ -228,7 +226,6 @@ (sap-reg registers :locations #.dword-regs :element-size 2 -; :reserve-locations (#.eax-offset) :constant-scs (immediate) :save-p t :alternate-scs (sap-stack)) @@ -237,14 +234,12 @@ (signed-reg registers :locations #.dword-regs :element-size 2 -; :reserve-locations (#.eax-offset) :constant-scs (immediate) :save-p t :alternate-scs (signed-stack)) (unsigned-reg registers :locations #.dword-regs :element-size 2 -; :reserve-locations (#.eax-offset) :constant-scs (immediate) :save-p t :alternate-scs (unsigned-stack)) @@ -253,11 +248,9 @@ (word-reg registers :locations #.word-regs :element-size 2 -; :reserve-locations (#.ax-offset) ) (byte-reg registers :locations #.byte-regs -; :reserve-locations (#.al-offset #.ah-offset) ) ;; **** Things that can go in the floating point registers.