Skip to content

Instantly share code, notes, and snippets.

@MasterDuke17
Created April 13, 2025 20:41
Show Gist options
  • Save MasterDuke17/d8909d78eaafe068fab0b855832a5908 to your computer and use it in GitHub Desktop.
Save MasterDuke17/d8909d78eaafe068fab0b855832a5908 to your computer and use it in GitHub Desktop.
diff --git lib/MoarVM/Profiler.rakumod lib/MoarVM/Profiler.rakumod
index 26913f4f1..334d6a301 100644
--- lib/MoarVM/Profiler.rakumod
+++ lib/MoarVM/Profiler.rakumod
@@ -499,7 +499,7 @@ class Thread does OnHash[<
}
# Main object returned by profile() and friends.
-class MoarVM::Profiler {
+class MoarVM::Profiler::App {
has %.types_by_id;
has %.types_by_name;
has %.threads_by_id;
@@ -662,20 +662,20 @@ sub profile_start(--> Nil) is export {
nqp::mvmstartprofile({:instrumented})
}
-sub profile_end(--> MoarVM::Profiler:D) is export {
- MoarVM::Profiler.new(nqp::mvmendprofile)
+sub profile_end(--> MoarVM::Profiler::App:D) is export {
+ MoarVM::Profiler::App.new(nqp::mvmendprofile)
}
# Profile the rest of the compilation unit
sub profile_rest(--> Nil) is export {
nqp::mvmstartprofile({:instrumented});
my $end-profile = True;
- END MoarVM::Profiler.new(nqp::mvmendprofile) if $end-profile;
+ END MoarVM::Profiler::App.new(nqp::mvmendprofile) if $end-profile;
}
# HLL sub for profiling a piece of code and getting the info from that
-sub profile(&code --> MoarVM::Profiler:D) is export {
- MoarVM::Profiler.profile(&code)
+sub profile(&code --> MoarVM::Profiler::App:D) is export {
+ MoarVM::Profiler::App.profile(&code)
}
# vim: expandtab shiftwidth=4
diff --git tools/build/install-core-dist.raku tools/build/install-core-dist.raku
index 72634ac27..481aafef1 100644
--- tools/build/install-core-dist.raku
+++ tools/build/install-core-dist.raku
@@ -1,4 +1,4 @@
-my constant Staging = "lib/CompUnit/Repository/Staging.rakumod".IO.slurp.EVAL;
+BEGIN my $Staging = "lib/CompUnit/Repository/Staging.rakumod".IO.slurp.EVAL;
my %provides =
"Test" => "lib/Test.rakumod",
@@ -16,7 +16,7 @@ my %provides =
"BUILDPLAN" => "lib/BUILDPLAN.rakumod",
"RakuDoc::To::Text" => "lib/RakuDoc/To/Text.rakumod",
"RakuDoc::To::RakuDoc" => "lib/RakuDoc/To/RakuDoc.rakumod",
- "RakuAST::L10N" => "lib/RakuAST/L10N.rakumod",
+ #"RakuAST::L10N" => "lib/RakuAST/L10N.rakumod",
"RakuAST::Deparse::Highlight"
=> "lib/RakuAST/Deparse/Highlight.rakumod",
;
@@ -35,7 +35,7 @@ if Compiler.backend eq 'moar' {
}
my $prefix := @*ARGS[0];
-my $REPO := PROCESS::<$REPO> := Staging.new(
+my $REPO := PROCESS::<$REPO> := $Staging.new(
:$prefix
:next-repo(
# Make CompUnit::Repository::Staging available to precomp processes
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment