[truffle] Move reflection behind a @TruffleBoundary

Author: pmurias

src/vm/jvm/runtime/org/perl6/nqp/truffle/Debug.java

@@ -0,0 +1,9 @@
+package org.perl6.nqp.truffle;
+
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+public class Debug {
+    @TruffleBoundary
+    public static RuntimeException wrongThing(String msg, Object value) {
+        return new RuntimeException(msg + ": "  + value.getClass().getCanonicalName());
+    }
+}

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPElemsNode.java

@@ -6,6 +6,7 @@
 import org.perl6.nqp.dsl.Deserializer;
 import org.perl6.nqp.truffle.runtime.NQPHash;
 import org.perl6.nqp.truffle.runtime.NQPList;
+import org.perl6.nqp.truffle.Debug;
 
 @NodeInfo(shortName = "elems")
 public final class NQPElemsNode extends NQPIntNode {
@@ -24,7 +25,7 @@ public long executeInt(VirtualFrame frame) {
         } else if (arg instanceof NQPHash) {
             return ((NQPHash)arg).elems();
         } else {
-            throw new RuntimeException(arg.getClass().getCanonicalName() + " does not implement elems");
+            throw Debug.wrongThing("does not implement elems", arg);
         }
     }
 }

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSmartNumifyNode.java

@@ -54,6 +54,7 @@
 import org.perl6.nqp.truffle.runtime.NQPNull;
 
 import org.perl6.nqp.dsl.Deserializer;
+import org.perl6.nqp.truffle.Debug;
 
 @NodeInfo(shortName = "smart numify")
 public final class NQPSmartNumifyNode extends NQPNumNode {
@@ -80,7 +81,7 @@ public double executeNum(VirtualFrame frame) {
         } else if (value == null) {
             throw new RuntimeException("can't smart numify raw null");
         } else {
-            throw new RuntimeException("can't smart numify: "  + value.getClass().getCanonicalName());
+            throw Debug.wrongThing("can't smart numify", value);
         }
     }
 }

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSmartStringifyNode.java

@@ -52,6 +52,7 @@
 
 import org.perl6.nqp.dsl.Deserializer;
 import org.perl6.nqp.truffle.runtime.Coercions;
+import org.perl6.nqp.truffle.Debug;
 
 @NodeInfo(shortName = "smart stringify")
 public final class NQPSmartStringifyNode extends NQPStrNode {
@@ -74,7 +75,7 @@ public String executeStr(VirtualFrame frame) {
         } else if (value == NQPNull.SINGLETON) {
             return "";
         } else {
-            throw new RuntimeException("can't smart stringify: " + value.getClass().getCanonicalName());
+            throw Debug.wrongThing("can't smart stringify", value);
         }
     }
 }