fix always parse default.pmc bug. partcl now builds

git-svn-id: https://svn.parrot.org/parrot/branches/no_pmc_install@45105 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Mar 22, 2010 · e4b6765 · e4b6765
1 parent 53226ff
commit e4b6765
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/lib/Parrot/Pmc2c/Dumper.pm b/lib/Parrot/Pmc2c/Dumper.pm
@@ -71,7 +71,7 @@ sub dump_pmc {
     }
 
     for my $pmc ( values %$pmcs ) {
-        next if $pmc->name =~ /default$/ && $pmc->dump_is_current;
+        next if $pmc->name =~ /default$/ && $pmc->dump_is_current($pmc2cMain->find_file('default.dump'));
 
         gen_parent_lookup_info( $pmc, $pmc2cMain, $pmcs );
         gen_parent_reverse_lookup_info( $pmc, $pmcs, $vtable_dump );

diff --git a/lib/Parrot/Pmc2c/PMC.pm b/lib/Parrot/Pmc2c/PMC.pm
@@ -432,11 +432,13 @@ B<Comments:>  Called within C<dump_pmc()>.
 =cut
 
 sub dump_is_current {
-    my ($self)   = @_;
-    my $dumpfile = $self->filename('.dump');
+    my ($self, $dumpfile)   = @_;
+    $dumpfile ||= $self->filename('.dump');
     return 0 unless -e $dumpfile;
 
     my $pmcfile  = $self->filename('.pmc');
+    return 1 unless -e $pmcfile;
+
     return ( stat $dumpfile )[9] >= ( stat $pmcfile )[9];
 }