0.9.11.26:
authorNathan Froyd <froydnj@cs.rice.edu>
Sun, 9 Apr 2006 16:48:18 +0000 (16:48 +0000)
committerNathan Froyd <froydnj@cs.rice.edu>
Sun, 9 Apr 2006 16:48:18 +0000 (16:48 +0000)
MORE MICRO-OPTIMIZATION
... slightly smaller (ASH <fixnum> <constant>) => <fixnum> VOP on
    the x86.

src/compiler/x86/arith.lisp
version.lisp-expr

index 7670970..b19fcb3 100644 (file)
                   ;; at the low five bits of the result.
                   (inst sar result (min 31 (- amount)))
                   ;; Fixnum correction.
-                  (inst and result #xfffffffc)))))))
+                  (inst and result (lognot fixnum-tag-mask))))))))
 
 (define-vop (fast-ash-left/fixnum=>fixnum)
   (:translate ash)
index 2b9ee4a..bcb2eb5 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.11.25"
+"0.9.11.26"