[Sbcl-commits] CVS: sbcl/src/compiler/x86 arith.lisp,1.54,1.55

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25077/src/compiler/x86

Modified Files:
	arith.lisp 
Log Message:
1.0.15.19: use TEST X X when possible in SIGNED-BYTE-*-LEN VOPS

 * Both x86 and x86-64.


Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/arith.lisp,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- arith.lisp	7 Mar 2008 12:27:00 -0000	1.54
+++ arith.lisp	10 Mar 2008 19:26:15 -0000	1.55
@@ -923,7 +923,9 @@
   (:result-types unsigned-num)
   (:generator 28
     (move res arg)
-    (inst cmp res 0)
+    (if (sc-is res unsigned-reg)
+        (inst test res res)
+        (inst cmp res 0))
     (inst jmp :ge POS)
     (inst not res)
     POS