[Sbcl-commits] CVS: sbcl/src/compiler/alpha arith.lisp,1.17,1.18

[Nathan F. <nf...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18054/src/compiler/alpha

Modified Files:
	arith.lisp 
Log Message:
0.8.13.19:
	Alpha/Tru64 build now completes make-{host,target}-1.sh
	... fix new LOGCOUNT vop (*cringe*)
	... setpgrp() fix for RUN-PROGRAM's C support
	... -taso flag now properly passed to cc
	... assembly code rearranged to satisfy Digital's as


Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/arith.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- arith.lisp	2 Aug 2004 16:23:54 -0000	1.17
+++ arith.lisp	2 Aug 2004 17:28:24 -0000	1.18
@@ -294,13 +294,13 @@
   (:translate logcount)
   (:note "inline (unsigned-byte 64) logcount")
   (:policy :fast-safe)
-  (:args (arg :scs (unsigned-reg) :target num))
+  (:args (arg :scs (unsigned-reg)))
   (:arg-types unsigned-num)
   (:results (res :scs (unsigned-reg)))
   (:result-types positive-fixnum)
   (:guard (member :cix *backend-subfeatures*))
   (:generator 1
-    (inst ctpop zero arg res)))
+    (inst ctpop zero-tn arg res)))
 
 (define-vop (unsigned-byte-64-count)
   (:translate logcount)