[svn:parrot] r39424 - branches/pmc_pct/compilers/pmcc/src/parser

[cotto at svn.parrot.org]

Author: cotto
Date: Sat Jun  6 07:23:23 2009
New Revision: 39424
URL: https://trac.parrot.org/parrot/changeset/39424

Log:
[pmcc] start making the thawed vtable dump available

Modified:
   branches/pmc_pct/compilers/pmcc/src/parser/actions.pm

Modified: branches/pmc_pct/compilers/pmcc/src/parser/actions.pm
==============================================================================
--- branches/pmc_pct/compilers/pmcc/src/parser/actions.pm	Sat Jun  6 07:22:54 2009	(r39423)
+++ branches/pmc_pct/compilers/pmcc/src/parser/actions.pm	Sat Jun  6 07:23:23 2009	(r39424)
@@ -10,6 +10,7 @@
 
 method pmc($/, $key) {
     our $?PMC;
+    our $?VTABLE;
 
     if $key eq 'begin' {
         $?PMC := PMC::Class.new(
@@ -19,6 +20,14 @@
 
         # Save c_header.
         $?PMC<c_header> := substr($/.orig, 0, $/.from);
+
+        Q:PIR {
+            $P0 = new ['FileHandle']
+            $S0 = $P0.'readall'('../../vtable.frozen')
+            $P0 = thaw $S0
+            set_global '$?VTABLE', $P0 
+        };
+
     }
     else {
         # TODO Set c_header and c_coda