[svn:parrot] r35886 - trunk/languages/pipp

[email protected] Thu, 22 Jan 2009 05:12:17 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: bernhard
Date: Thu Jan 22 05:12:17 2009
New Revision: 35886

Modified:
   trunk/languages/pipp/pipp.pir

Log:
[Pipp] Call '_dumper' in ['parrot'], not in the current namespace

Modified: trunk/languages/pipp/pipp.pir
==============================================================================
--- trunk/languages/pipp/pipp.pir	(original)
+++ trunk/languages/pipp/pipp.pir	Thu Jan 22 05:12:17 2009
@@ -168,6 +168,8 @@
     push args, prog
     push args, rest
 
+    $P0 = get_root_global ['parrot'], '_dumper'
+    $P0( args )
     .tailcall pipp_compiler.'command_line'( args, 'target' => target, 'output' => output )
 
 RUN_NQP:
@@ -215,7 +217,8 @@
     .local pmc stmts
     ( stmts ) = php_entry()     # stmts contains the PAST
     if target != 'past' goto NO_PAST_DUMP
-        _dumper( stmts )
+        $P0 = get_root_global ['parrot'], '_dumper'
+        $P0( stmts )
         .return ()
     NO_PAST_DUMP: