Skip to content

Instantly share code, notes, and snippets.

@niner
Created June 15, 2016 18:30
Show Gist options
  • Save niner/4910787a3b7799e47c6a5bbd401362b8 to your computer and use it in GitHub Desktop.
Save niner/4910787a3b7799e47c6a5bbd401362b8 to your computer and use it in GitHub Desktop.
diff --git a/src/core/CompUnit/PrecompilationRepository.pm b/src/core/CompUnit/PrecompilationRepository.pm
index 6956e12..18cbc37 100644
--- a/src/core/CompUnit/PrecompilationRepository.pm
+++ b/src/core/CompUnit/PrecompilationRepository.pm
@@ -181,14 +181,6 @@ class CompUnit::PrecompilationRepository::Default does CompUnit::PrecompilationR
}
my $bc = "$io.bc".IO;
- my $rev-deps = ($io ~ '.rev-deps').IO;
- if $rev-deps.e {
- for $rev-deps.lines {
- $RMD("removing outdated rev-dep $_") if $RMD;
- self.store.delete($compiler-id, $_);
- }
- }
-
$lle //= Rakudo::Internals.LL-EXCEPTION;
$profile //= Rakudo::Internals.PROFILE;
my %ENV := %*ENV;
@@ -243,10 +235,6 @@ class CompUnit::PrecompilationRepository::Default does CompUnit::PrecompilationR
}
my $dependency = CompUnit::PrecompilationDependency::File.deserialize($dependency-str);
$RMD("id: $dependency.id(), src: $dependency.src(), spec: $dependency.spec()") if $RMD;
- my $path = self.store.path($compiler-id, $dependency.id);
- if $path.e {
- spurt($path ~ '.rev-deps', "$id\n", :append);
- }
@dependencies.push: $dependency;
}
$RMD("Writing dependencies and byte code to $io.tmp") if $RMD;
diff --git a/src/core/CompUnit/Repository/Installation.pm b/src/core/CompUnit/Repository/Installation.pm
index 1d41171..3223ea7 100644
--- a/src/core/CompUnit/Repository/Installation.pm
+++ b/src/core/CompUnit/Repository/Installation.pm
@@ -261,8 +261,6 @@ sub MAIN(:$name is copy, :$auth, :$ver, *@, *%) {
for @provides -> ($source-name, $id) {
my $source = $sources-dir.child($id);
my $source-file = $repo-prefix ?? $repo-prefix ~ $source.relative($.prefix) !! $source;
- my $rev-deps-file = ($precomp.store.path($compiler-id, $id) ~ '.rev-deps').IO;
- my @rev-deps = $rev-deps-file.e ?? $rev-deps-file.lines !! ();
if %done{$id} {
note "(Already did $id)" if $verbose;
@@ -275,21 +273,6 @@ sub MAIN(:$name is copy, :$auth, :$ver, *@, *%) {
:source-name("$source-file ($source-name)"),
);
%done{$id} = 1;
- for @rev-deps -> $rev-dep-id {
- if %done{$rev-dep-id} {
- note "(Already did $rev-dep-id)" if $verbose;
- next;
- }
- note("Precompiling rev-dep $rev-dep-id") if $verbose;
- my $source = $sources-dir.child($rev-dep-id);
- $precomp.precompile(
- $source,
- $rev-dep-id,
- :force,
- :source-name($source-file)
- ) if $source.e;
- %done{$rev-dep-id} = 1;
- }
}
PROCESS::<$REPO> := $head;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment