[truffle] Add support for a Block's name

nqp::getcodename now works without requiring nqp::setcodename to be
explicitly called beforehand.

Author: MasterDuke17

src/vm/jvm/Truffle.nqp

@@ -1129,6 +1129,7 @@ class QAST::TruffleCompiler does SerializeOnce {
             }
 
             @body.push($node.cuid);
+            @body.push($node.name);
 
             my $setup_context := [];
 

src/vm/jvm/bin/run_tests.pl

@@ -9,6 +9,6 @@
     }
 });
 
-my @nqp_tests = glob "t/nqp/{001,002,003,004,005,006,007,008,010,011,012,013,015,016,017,018,022,025,026,036,037,038,046,083,109}*.t";
+my @nqp_tests = glob "t/nqp/{001,002,003,004,005,006,007,008,010,011,012,013,015,016,017,018,022,025,026,036,037,038,046,083,091,109}*.t";
 
 $harness->runtests(@nqp_tests);

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

@@ -72,32 +72,32 @@ public static NQPScope createNewForcedOuterScope(NQPScope scope) {
     }
 
     @Deserializer("block")
-    public static NQPNode createBlock(NQPScope scope, String cuid, NQPNode[] children) {
+    public static NQPNode createBlock(NQPScope scope, String cuid, String name, NQPNode[] children) {
         FrameDescriptor frameDescriptor = ((NQPScopeWithFrame) scope).getFrameDescriptor();
 
         RootNode rootNode = new NQPRootNode(null, frameDescriptor, new NQPBlockBodyNode(children));
-        NQPCodeRef code = new NQPCodeRef(rootNode, null);
+        NQPCodeRef code = new NQPCodeRef(rootNode, null, name);
         scope.addCuid(cuid, code);
 
         return new NQPBlockNode(
-            new NQPRootNode(null, frameDescriptor, new NQPBlockBodyNode(children))
+            new NQPRootNode(null, frameDescriptor, new NQPBlockBodyNode(children)), name
         );
     }
 
     @Deserializer("block-static")
-    public static NQPNode createStaticBlock(NQPScope scope, String cuid, NQPNode[] children) {
+    public static NQPNode createStaticBlock(NQPScope scope, String cuid, String name, NQPNode[] children) {
         FrameDescriptor frameDescriptor = ((NQPScopeWithFrame) scope).getFrameDescriptor();
         RootNode rootNode = new NQPRootNode(null, frameDescriptor, new NQPBlockBodyNode(children));
-        NQPCodeRef code = new NQPCodeRef(rootNode, null);
+        NQPCodeRef code = new NQPCodeRef(rootNode, null, name);
         scope.addCuid(cuid, code);
         return new NQPStaticBlockNode(code);
     }
 
     @Deserializer("block-forced-outer")
-    public static NQPNode createForcedOuterBlock(NQPScope scope, String cuid, NQPNode[] children) {
+    public static NQPNode createForcedOuterBlock(NQPScope scope, String cuid, String name, NQPNode[] children) {
         FrameDescriptor frameDescriptor = ((NQPScopeWithFrame) scope).getFrameDescriptor();
         RootNode rootNode = new NQPRootNode(null, frameDescriptor, new NQPBlockBodyNode(children));
-        NQPCodeRef code = new NQPCodeRef(rootNode, null);
+        NQPCodeRef code = new NQPCodeRef(rootNode, null, name);
         scope.addCuid(cuid, code);
         return new NQPForcedOuterBlockNode(code);
     }

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/control/NQPBlockNode.java

@@ -8,13 +8,16 @@
 public class NQPBlockNode extends NQPNode {
     private RootNode rootNode;
 
-    public NQPBlockNode(RootNode rootNode) {
+    public String name = "";
+
+    public NQPBlockNode(RootNode rootNode, String name) {
         this.rootNode = rootNode;
+        this.name = name;
     }
 
     @Override
     public Object execute(VirtualFrame frame) {
-        return new NQPCodeRef(rootNode, frame.materialize());
+        return new NQPCodeRef(rootNode, frame.materialize(), name);
     }
 
     @Override

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

@@ -54,9 +54,10 @@ public final class NQPCodeRef  {
 
     public String name;
 
-    public NQPCodeRef(RootNode root, MaterializedFrame outer) {
+    public NQPCodeRef(RootNode root, MaterializedFrame outer, String name) {
         this.callTarget = Truffle.getRuntime().createCallTarget(root);
         this.outer = outer;
+        this.name = name;
     }
 
     public RootCallTarget getCallTarget() {