[svn:parrot] r39421 - branches/pmc_pct/compilers/vtdumper

[cotto at svn.parrot.org]

Author: cotto
Date: Sat Jun  6 03:21:22 2009
New Revision: 39421
URL: https://trac.parrot.org/parrot/changeset/39421

Log:
[vtdumper] put the freeze code back, since the vtable dump doesn't actually need to be portable

Modified:
   branches/pmc_pct/compilers/vtdumper/vtdumper.pir

Modified: branches/pmc_pct/compilers/vtdumper/vtdumper.pir
==============================================================================
--- branches/pmc_pct/compilers/vtdumper/vtdumper.pir	Sat Jun  6 03:14:50 2009	(r39420)
+++ branches/pmc_pct/compilers/vtdumper/vtdumper.pir	Sat Jun  6 03:21:22 2009	(r39421)
@@ -26,11 +26,24 @@
     $P0.'removestage'('evalpmc')
 
     #add an extra stage to generate the c, h and dump files
-    $P0.'addstage'('generate_json', 'after'=>'past')
+    $P0.'addstage'('generate_dump', 'after'=>'past')
 
 .end
 
 
+.sub 'generate_dump'
+    .param pmc past
+    .param pmc adverbs :slurpy :named
+
+    .local string frozen
+
+    frozen = freeze past
+    'write_file'("vtable.frozen", frozen)
+
+    exit 0
+.end
+
+
 .sub 'generate_json' :method
     .param pmc past
     .param pmc adverbs :slurpy :named