Fix handling of generic method names.

On JVM (and MoarVM, for that matter) the name associated with a code
object is stored statically, not in the actual code ref itself like on
Parrot. This is generally more efficient (saves a field in closures),
but we relied on it. This prevented declaring more than one user
defined operator in Rakudo on JVM, which busted various tests. On
Parrot, we keep the same approach as today.

Author: jnthn

src/core/NQPRoutine.nqp

@@ -345,6 +345,32 @@ my knowhow NQPRoutine {
         nqp::setcodename($!do, $name);
     }
 
+    method !reify_name($name) {
+#?if parrot
+        nqp::setcodename($!do, $name);
+        self
+#?endif
+#?if !parrot
+        # Make a fresh underlying VM code ref.
+        my $do  := nqp::freshcoderef($!do);
+        
+        # Clone and attach the code object.
+        my $der := nqp::clone(self);
+        nqp::bindattr($der, NQPRoutine, '$!do', $do);
+        nqp::setcodeobj($do, $der);
+        
+        # If needed, arrange for a fixup of the cloned code-ref.
+        unless nqp::isnull($!clone_callback) {
+            $!clone_callback($!do, $do, $der);
+        }
+        
+        # Update name.
+        nqp::setcodename($do, $name);
+        
+        $der
+#?endif
+    }
+    
     method name() {
         nqp::getcodename($!do)
     }
@@ -458,6 +484,31 @@ my knowhow NQPRegex {
     method !set_name($name) {
         nqp::setcodename($!do, $name);
     }
+    method !reify_name($name) {
+#?if parrot
+        nqp::setcodename($!do, $name);
+        self
+#?endif
+#?if !parrot
+        # Make a fresh underlying VM code ref.
+        my $do  := nqp::freshcoderef($!do);
+        
+        # Clone and attach the code object.
+        my $der := nqp::clone(self);
+        nqp::bindattr($der, NQPRegex, '$!do', $do);
+        nqp::setcodeobj($do, $der);
+        
+        # If needed, arrange for a fixup of the cloned code-ref.
+        unless nqp::isnull($!clone_callback) {
+            $!clone_callback($!do, $do, $der);
+        }
+        
+        # Update name.
+        nqp::setcodename($do, $name);
+        
+        $der
+#?endif
+    }
 }
 nqp::setinvokespec(NQPRegex, NQPRegex, '$!do', nqp::null);
 nqp::setboolspec(NQPRegex, 5, nqp::null());

src/how/NQPParametricRoleHOW.nqp

@@ -143,7 +143,7 @@ knowhow NQPParametricRoleHOW {
                 !! nqp::iterval($_).clone();
             if nqp::substr($name, 0, 12) eq '!!LATENAME!!' {
                 $name := nqp::atkey($pad, nqp::substr($name, 12));
-                $meth.'!set_name'($name);
+                $meth := $meth.'!reify_name'($name);
             }
             $irole.HOW.add_method($irole, $name, $meth);
         }