develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
bernhard
Date:
January 22, 2009 05:12
Subject:
[svn:parrot] r35886 - trunk/languages/pipp
Message ID:
20090122131218.0046ACB9AE@x12.develooper.com
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:
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About