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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu May 14 11:04:14 2009
New Revision: 38771
URL: https://trac.parrot.org/parrot/changeset/38771

Log:
Save pmc's c_header.

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	Thu May 14 11:03:50 2009	(r38770)
+++ branches/pmc_pct/compilers/pmcc/src/parser/actions.pm	Thu May 14 11:04:14 2009	(r38771)
@@ -16,6 +16,9 @@
             :name(~$<identifier>),
             :node($/)
         );
+
+        # Save c_header.
+        $?PMC<c_header> := substr($/.orig, 0, $/.from);
     }
     else {
         # TODO Set c_header and c_coda