also write profiler output when rakudo exit()s

timotimo++ for the proposed patch.
Raku · Nov 1, 2014 · 05cb90e · 05cb90e
1 parent f54c1a1
commit 05cb90e
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/vm/moar/HLL/Backend.nqp b/src/vm/moar/HLL/Backend.nqp
@@ -38,11 +38,15 @@ class HLL::Backend::MoarVM {
         }
     }
     method run_profiled($what) {
+        my @END := nqp::gethllsym('perl6', '@END_PHASERS');
+        @END.push: -> { self.dump_profile_data($prof_end_sub()) } if nqp::defined(@END);
         self.ensure_prof_routines();
         $prof_start_sub(nqp::hash());
         my $res  := $what();
-        my $data := $prof_end_sub();
-        self.dump_profile_data($data);
+        unless nqp::defined(@END) {
+            my $data := $prof_end_sub();
+            self.dump_profile_data($data);
+        }
         $res;
     }
     method dump_profile_data($data) {