[jvm] Die with 'Division by zero' in div_i, try 2

Without this change a division by zero led to a Java exception:
java.lang.ArithmeticException: / by zero

For some reasons that didn't work well with 'dies-ok'. As a
result t/nqp/059-nqpop.t was blowing up on the jvm backend.
With this patch 'make test' is clean, again. Also, the error
message is now identical to the other two backends.

Author: usev6

src/vm/jvm/QAST/Compiler.nqp

@@ -2196,7 +2196,7 @@ QAST::OperationsJAST.map_jvm_core_op('sub_n', 'dsub', [$RT_NUM, $RT_NUM], $RT_NU
 QAST::OperationsJAST.map_jvm_core_op('mul_i', 'lmul', [$RT_INT, $RT_INT], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('mul_I', $TYPE_OPS, 'mul_I', [$RT_OBJ, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_jvm_core_op('mul_n', 'dmul', [$RT_NUM, $RT_NUM], $RT_NUM);
-QAST::OperationsJAST.map_classlib_core_op('div_i', $TYPE_OPS, 'div_i', [$RT_INT, $RT_INT], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('div_i', $TYPE_OPS, 'div_i', [$RT_INT, $RT_INT], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('div_I', $TYPE_OPS, 'div_I', [$RT_OBJ, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('div_In', $TYPE_OPS, 'div_In', [$RT_OBJ, $RT_OBJ], $RT_NUM, :tc);
 QAST::OperationsJAST.map_jvm_core_op('div_n', 'ddiv', [$RT_NUM, $RT_NUM], $RT_NUM);

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

@@ -6761,8 +6761,11 @@ public static double div_In(SixModelObject a, SixModelObject b, ThreadContext tc
             : new BigDecimal(getBI(tc, a)).divide(new BigDecimal(divisor), 309, RoundingMode.HALF_UP).doubleValue();
     }
 
-    public static long div_i(long a, long b) {
-        return (b == 0) ? a / b : (long)Math.floor((double) a / b);
+    public static long div_i(long a, long b, ThreadContext tc) {
+        if (b == 0) {
+            die_s("Division by zero", tc);
+        }
+        return (long)Math.floor((double) a / b);
     }
 
     public static SixModelObject mod_I(SixModelObject a, SixModelObject b, SixModelObject type, ThreadContext tc) {