Extract heap snapshotting logic into separate module

rakudo · Aug 4, 2022 · 4308a1a · 4308a1a
1 parent 9b13a55
commit 4308a1a
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/lib/heap-snapshot.rakumod b/lib/heap-snapshot.rakumod
@@ -0,0 +1,11 @@
+use Perl6::Compiler:from<NQP>;
+
+my $snapshot-idx = 1;
+my sub heap-snapshot(
+   IO() $io = "heapsnapshot-$($*PID)-$($snapshot-idx++).mvmheap"
+--> Str:D) is export {
+
+    my $filename := $io.absolute;
+    Perl6::Compiler.profiler-snapshot: :kind<heap>, :$filename;
+    $filename
+}
diff --git a/tools/build/install-core-dist.raku b/tools/build/install-core-dist.raku
@@ -13,6 +13,7 @@ my %provides =
     "Telemetry"                     => "lib/Telemetry.rakumod",
     "snapper"                       => "lib/snapper.rakumod",
     "safe-snapper"                  => "lib/safe-snapper.rakumod",
+    "heap-snapshot"                 => "lib/heap-snapshot.rakumod",
     "BUILDPLAN"                     => "lib/BUILDPLAN.rakumod",
 ;