Implement neg_I and abs_I for JVM.

Author: jnthn

src/vm/jvm/QAST/Compiler.nqp

@@ -1568,8 +1568,10 @@ QAST::OperationsJAST.map_jvm_core_op('mod_n', 'drem', [$RT_NUM, $RT_NUM], $RT_NU
 QAST::OperationsJAST.map_classlib_core_op('pow_n', $TYPE_MATH, 'pow', [$RT_NUM, $RT_NUM], $RT_NUM);
 QAST::OperationsJAST.map_classlib_core_op('pow_I', $TYPE_OPS, 'pow_I', [$RT_OBJ, $RT_OBJ, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_jvm_core_op('neg_i', 'lneg', [$RT_INT], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('neg_I', $TYPE_OPS, 'neg_I', [$RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_jvm_core_op('neg_n', 'dneg', [$RT_NUM], $RT_NUM);
 QAST::OperationsJAST.map_classlib_core_op('abs_i', $TYPE_MATH, 'abs', [$RT_INT], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('abs_I', $TYPE_OPS, 'abs_I', [$RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('abs_n', $TYPE_MATH, 'abs', [$RT_NUM], $RT_NUM);
 
 QAST::OperationsJAST.map_classlib_core_op('ceil_n', $TYPE_MATH, 'ceil', [$RT_NUM], $RT_NUM);

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

@@ -3387,6 +3387,14 @@ else if (cmp > 0) {
         }
     }
 
+    public static SixModelObject neg_I(SixModelObject a, SixModelObject type, ThreadContext tc) {
+        return makeBI(tc, type, getBI(tc, a).negate());
+    }
+    
+    public static SixModelObject abs_I(SixModelObject a, SixModelObject type, ThreadContext tc) {
+        return makeBI(tc, type, getBI(tc, a).abs());
+    }
+    
     public static SixModelObject bitor_I(SixModelObject a, SixModelObject b, SixModelObject type, ThreadContext tc) {
         return makeBI(tc, type, getBI(tc, a).or(getBI(tc, b)));
     }