Try getting bigint negative modulo working.

Raku · Jun 22, 2013 · 231d1f2 · 231d1f2
1 parent d4a13c5
commit 231d1f2
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -4221,7 +4221,15 @@ public static double div_In(SixModelObject a, SixModelObject b, ThreadContext tc
     }
 
     public static SixModelObject mod_I(SixModelObject a, SixModelObject b, SixModelObject type, ThreadContext tc) {
-        return makeBI(tc, type, getBI(tc, a).mod(getBI(tc, b)));
+        BigInteger divisor = getBI(tc, b);
+        if (divisor.compareTo(BigInteger.ZERO) < 0) {
+            BigInteger negDivisor = divisor.negate();
+            BigInteger res = getBI(tc, a).mod(negDivisor);
+            return makeBI(tc, type, res.equals(BigInteger.ZERO) ? res : divisor.add(res));
+        }
+        else {
+            return makeBI(tc, type, getBI(tc, a).mod(divisor));
+        }
     }
 
     public static SixModelObject expmod_I(SixModelObject a, SixModelObject b, SixModelObject c, SixModelObject type, ThreadContext tc) {