CLJ-827: Add bit-shift-right-logical

Signed-off-by: Gabriel Horner <gabriel.horner@gmail.com>
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

Author: timmc

src/clj/clojure/core.clj

@@ -1317,6 +1317,12 @@
    :added "1.0"}
   [x n] (. clojure.lang.Numbers shiftRight x n))
 
+(defn bit-shift-right-logical
+  "Bitwise shift right, without sign-extension."
+  {:inline (fn [x n] `(. clojure.lang.Numbers (shiftRightLogical ~x ~n)))
+   :added "1.4"}
+  [x n] (. clojure.lang.Numbers shiftRightLogical x n))
+
 (defn integer?
   "Returns true if n is an integer"
   {:added "1.0"

src/jvm/clojure/lang/Intrinsics.java

@@ -29,13 +29,15 @@ private static Object[] oa(Object... arr){
  "public static long clojure.lang.Numbers.remainder(long,long)", LREM,
  "public static long clojure.lang.Numbers.shiftLeft(long,long)", oa(L2I, LSHL),
  "public static long clojure.lang.Numbers.shiftRight(long,long)", oa(L2I, LSHR),
+ "public static long clojure.lang.Numbers.shiftRightLogical(long,long)", oa(L2I, LUSHR),
  "public static double clojure.lang.Numbers.minus(double)", DNEG,
  "public static double clojure.lang.Numbers.minus(double,double)", DSUB,
  "public static double clojure.lang.Numbers.inc(double)", oa(DCONST_1, DADD),
  "public static double clojure.lang.Numbers.dec(double)", oa(DCONST_1, DSUB),
  "public static long clojure.lang.Numbers.quotient(long,long)", LDIV,
  "public static int clojure.lang.Numbers.shiftLeftInt(int,int)", ISHL,
  "public static int clojure.lang.Numbers.shiftRightInt(int,int)", ISHR,
+ "public static int clojure.lang.Numbers.shiftRightLogicalInt(int,int)", IUSHR,
  "public static int clojure.lang.Numbers.unchecked_int_add(int,int)", IADD,
  "public static int clojure.lang.Numbers.unchecked_int_subtract(int,int)", ISUB,
  "public static int clojure.lang.Numbers.unchecked_int_negate(int)", INEG,

src/jvm/clojure/lang/Numbers.java

@@ -389,6 +389,23 @@ static public long shiftRight(long x, long n){
 	return x >> n;
 }
 
+static public int shiftRightLogicalInt(int x, int n){
+	return x >>> n;
+}
+
+static public long shiftRightLogical(Object x, Object y){
+    return shiftRightLogical(bitOpsCast(x),bitOpsCast(y));
+}
+static public long shiftRightLogical(Object x, long y){
+    return shiftRightLogical(bitOpsCast(x),y);
+}
+static public long shiftRightLogical(long x, Object y){
+    return shiftRightLogical(x,bitOpsCast(y));
+}
+static public long shiftRightLogical(long x, long n){
+	return x >>> n;
+}
+
 final static class LongOps implements Ops{
 	public Ops combine(Ops y){
 		return y.opsWith(this);