Always give VM code handle to newthread

rakudo · Aug 25, 2021 · 3f2218b · 3f2218b
1 parent af7df61
commit 3f2218b
Showing 1 changed file with 14 additions and 14 deletions.
diff --git a/src/core.c/Thread.pm6 b/src/core.c/Thread.pm6
@@ -36,29 +36,29 @@ my class Thread {
       --> Nil
     ) {
         constant THREAD_ERROR = 'Could not create a new Thread: ';
-        $!vm_thread := nqp::newthread(
-            anon sub THREAD-ENTRY() {
-                my $*THREAD = self;
-                CONTROL {
-                    default {
+        my $entry := anon sub THREAD-ENTRY() {
+            my $*THREAD = self;
+            CONTROL {
+                default {
 #?if !jvm
-                        ++⚛$aborted;
+                    ++⚛$aborted;
 #?endif
 #?if jvm
-                        ++$aborted;
+                    ++$aborted;
 #?endif
-                        my Mu $vm-ex := nqp::getattr(nqp::decont($_), Exception, '$!ex');
-                        nqp::getcomp('Raku').handle-control($vm-ex);
-                    }
+                    my Mu $vm-ex := nqp::getattr(nqp::decont($_), Exception, '$!ex');
+                    nqp::getcomp('Raku').handle-control($vm-ex);
                 }
-                code();
+            }
+            code();
 #?if !jvm
-                ++⚛$completed;
+            ++⚛$completed;
 #?endif
 #?if jvm
-                ++$completed;
+            ++$completed;
 #?endif
-            },
+        }
+        $!vm_thread := nqp::newthread(nqp::getattr($entry, Code, '$!do'),
             $!app_lifetime ?? 1 !! 0);
 
 #?if !jvm