[svn:parrot] r39794 - in branches/pmc_pct/compilers/pmcc/src: . emitter

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Jun 26 03:44:09 2009
New Revision: 39794
URL: https://trac.parrot.org/parrot/changeset/39794

Log:
[pmcc] switch back to using the stowed vtable dump, now that sanity has been restored

Modified:
   branches/pmc_pct/compilers/pmcc/src/emitter/c.pir
   branches/pmc_pct/compilers/pmcc/src/emitter/pmc.pm
   branches/pmc_pct/compilers/pmcc/src/nodes.pm

Modified: branches/pmc_pct/compilers/pmcc/src/emitter/c.pir
==============================================================================
--- branches/pmc_pct/compilers/pmcc/src/emitter/c.pir	Fri Jun 26 03:39:45 2009	(r39793)
+++ branches/pmc_pct/compilers/pmcc/src/emitter/c.pir	Fri Jun 26 03:44:09 2009	(r39794)
@@ -60,8 +60,6 @@
   loop:
     unless $P0 goto done
     $P1 = shift $P0
-    #print 'P1 '
-    #say $P1
     $S0 = self.'!generate_body_part'(pmclass, $P1)
     push res, $S0
     goto loop

Modified: branches/pmc_pct/compilers/pmcc/src/emitter/pmc.pm
==============================================================================
--- branches/pmc_pct/compilers/pmcc/src/emitter/pmc.pm	Fri Jun 26 03:39:45 2009	(r39793)
+++ branches/pmc_pct/compilers/pmcc/src/emitter/pmc.pm	Fri Jun 26 03:44:09 2009	(r39794)
@@ -312,7 +312,7 @@
 
 method generate_c_code($past) {
 
-    my %vtables := self.past.vtdump;
+    my %vtables := self.past<vtdump>;
     #make sure there aren't any misnamed VTABLE functions
     for self.past.vtables{'default'} {
         if !%vtables{$_} {
@@ -322,7 +322,6 @@
         }
     }
 
-
     self.pre_method_gen();
     my $res :=
           self.past<c_header> ~ "\n\n"

Modified: branches/pmc_pct/compilers/pmcc/src/nodes.pm
==============================================================================
--- branches/pmc_pct/compilers/pmcc/src/nodes.pm	Fri Jun 26 03:39:45 2009	(r39793)
+++ branches/pmc_pct/compilers/pmcc/src/nodes.pm	Fri Jun 26 03:44:09 2009	(r39794)
@@ -7,7 +7,7 @@
 
     my %vtdump;
 
-    %vtdump := self.past.vtdump;
+    %vtdump := self<vtdump>;
 
     for (self.vtables{'default'}) {
        if (!%vtdump{$_}{'attributes'}{'write'}) {