CMUCL commit: amd64-dd-branch src/compiler/amd64 (arith.lisp)

[Raymond Toy]

    Date: Friday, November 6, 2009 @ 19:02:09
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/amd64
     Tag: amd64-dd-branch

Modified: arith.lisp

Fix typo.  signed-stack should be unsigned-stack since the type is
unsigned-num. 


------------+
 arith.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/compiler/amd64/arith.lisp
diff -u src/compiler/amd64/arith.lisp:1.2.36.1 src/compiler/amd64/arith.lisp:1.2.36.2
--- src/compiler/amd64/arith.lisp:1.2.36.1	Fri Nov  6 15:24:00 2009
+++ src/compiler/amd64/arith.lisp	Fri Nov  6 19:02:08 2009
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/amd64/arith.lisp,v 1.2.36.1 2009-11-06 20:24:00 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/amd64/arith.lisp,v 1.2.36.2 2009-11-07 00:02:08 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -493,7 +493,7 @@
 (define-vop (fast-truncate/unsigned=>unsigned fast-safe-arith-op)
   (:translate truncate)
   (:args (x :scs (unsigned-reg) :target rax)
-	 (y :scs (unsigned-reg signed-stack)))
+	 (y :scs (unsigned-reg unsigned-stack)))
   (:arg-types unsigned-num unsigned-num)
   (:temporary (:sc unsigned-reg :offset rax-offset :target quo
 		   :from (:argument 0) :to (:result 0)) rax)