also write profiler output when rakudo exit()s

FROGGS · FROGGS · commit 05cb90ebbe11 · 2014-11-01T18:01:50.000+01:00
timotimo++ for the proposed patch.
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) {

Original file line number	Diff line number	Diff line change
`@@ -38,11 +38,15 @@ class HLL::Backend::MoarVM {`
`38`	`38`	`}`
`39`	`39`	`}`
`40`	`40`	`method run_profiled($what) {`
	`41`	`+ my @END := nqp::gethllsym('perl6', '@END_PHASERS');`
	`42`	`+ @END.push: -> { self.dump_profile_data($prof_end_sub()) } if nqp::defined(@END);`
`41`	`43`	`self.ensure_prof_routines();`
`42`	`44`	`$prof_start_sub(nqp::hash());`
`43`	`45`	`my $res := $what();`
`44`		`- my $data := $prof_end_sub();`
`45`		`- self.dump_profile_data($data);`
	`46`	`+ unless nqp::defined(@END) {`
	`47`	`+ my $data := $prof_end_sub();`
	`48`	`+ self.dump_profile_data($data);`
	`49`	`+ }`
`46`	`50`	`$res;`
`47`	`51`	`}`
`48`	`52`	`method dump_profile_data($data) {`