Implement nqp::getmessage.

jnthn · Feb 27, 2013 · 81e35e7 · 81e35e7
1 parent f20d4c2
commit 81e35e7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/lib/QAST/JASTCompiler.nqp b/lib/QAST/JASTCompiler.nqp
@@ -1276,6 +1276,7 @@ QAST::OperationsJAST.map_classlib_core_op('die_s', $TYPE_OPS, 'die_s', [$RT_STR]
 QAST::OperationsJAST.map_classlib_core_op('die', $TYPE_OPS, 'die_s', [$RT_STR], $RT_STR, :tc);
 QAST::OperationsJAST.map_classlib_core_op('exception', $TYPE_OPS, 'exception', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('getextype', $TYPE_OPS, 'getextype', [$RT_OBJ], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('getmessage', $TYPE_OPS, 'getmessage', [$RT_OBJ], $RT_STR, :tc);
 my %handler_names := nqp::hash(
     'CATCH',   $EX_CAT_CATCH,
     'CONTROL', $EX_CAT_CONTROL,

diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -2771,6 +2771,12 @@ public static long getextype(SixModelObject obj, ThreadContext tc) {
     	else
     		throw new RuntimeException("getextype needs an object with VMException representation");
     }
+    public static String getmessage(SixModelObject obj, ThreadContext tc) {
+    	if (obj instanceof VMExceptionInstance)
+    		return ((VMExceptionInstance)obj).message;
+    	else
+    		throw new RuntimeException("getmessage needs an object with VMException representation");
+    }
 
     /* HLL configuration and compiler related options. */
     public static SixModelObject sethllconfig(String language, SixModelObject configHash, ThreadContext tc) {