Merge branch 'getstrfromname'

Author: samcv

src/HLL/Actions.nqp

@@ -203,11 +203,19 @@ class HLL::Actions {
     }
 
     method charname($/) {
-        my $codepoint := $<integer>
-                         ?? $<integer>.made
+#?if !moar
+        my $codepoint := ?? $<integer>.made
                          !! nqp::codepointfromname(~$/);
-        $/.CURSOR.panic("Unrecognized character name $/") if $codepoint < 0;
+                         $/.CURSOR.panic("Unrecognized character name $/") if $codepoint < 0;
         make nqp::chr($codepoint);
+#?endif
+#?if moar
+        my $codepoint := $<integer>
+                         ?? nqp::chr($<integer>.made)
+                         !! nqp::getstrfromname(~$/);
+        $/.CURSOR.panic("Unrecognized character name $/") if $codepoint eq '';
+        make $codepoint;
+#?endif
     }
 
     method charnames($/) {

src/vm/moar/QAST/QASTOperationsMAST.nqp

@@ -2386,6 +2386,7 @@ QAST::MASTOperations.add_core_moarop_mapping('isge_n', 'ge_n');
 
 QAST::MASTOperations.add_core_moarop_mapping('cmp_s', 'cmp_s');
 QAST::MASTOperations.add_core_moarop_mapping('unicmp_s', 'unicmp_s');
+QAST::MASTOperations.add_core_moarop_mapping('getstrfromname', 'getstrfromname');
 QAST::MASTOperations.add_core_moarop_mapping('iseq_s', 'eq_s');
 QAST::MASTOperations.add_core_moarop_mapping('isne_s', 'ne_s');
 QAST::MASTOperations.add_core_moarop_mapping('islt_s', 'lt_s');