[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: