[Openmcl-cvs-notifications] r8577 - /trunk/source/compiler/nx1.lisp

[gb at clozure.com]

Author: gb
Date: Mon Feb 25 06:00:42 2008
New Revision: 8577

Log:
natural-right-shift by constant: pin constant to word size.

Modified:
    trunk/source/compiler/nx1.lisp

Modified: trunk/source/compiler/nx1.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx1.lisp (original)
+++ trunk/source/compiler/nx1.lisp Mon Feb 25 06:00:42 2008
@@ -2088,7 +2088,7 @@
                (make-acode (%nx1-operator natural-shift-right)
                            (nx1-form num)
                            (make-acode (%nx1-operator fixnum)
-                                       (- amt)))
+                                       (min (1- max) (- amt))))
                (nx1-treat-as-call call))))
           ((and (fixnump amt)
                 (<=3D 0 amt maxbits)