[svn:parrot] r41019 - branches/pluggable_runcore/tools/dev

[cotto at svn.parrot.org]

Author: cotto
Date: Sat Sep  5 22:05:21 2009
New Revision: 41019
URL: https://trac.parrot.org/parrot/changeset/41019

Log:
[pprof2cg] actually empty the array and remove some debugging code

Modified:
   branches/pluggable_runcore/tools/dev/pprof2cg.pl

Modified: branches/pluggable_runcore/tools/dev/pprof2cg.pl
==============================================================================
--- branches/pluggable_runcore/tools/dev/pprof2cg.pl	Sat Sep  5 21:45:31 2009	(r41018)
+++ branches/pluggable_runcore/tools/dev/pprof2cg.pl	Sat Sep  5 22:05:21 2009	(r41019)
@@ -90,7 +90,6 @@
 
             if ($is_first) {
                 $ctx_stack->[0] = $cs_hash;
-                print "added $cs_hash->{'ns'} with ctx $cs_hash->{'ctx'}\n";
             }
             elsif ($reused_ctx) {
                 $ctx_stack->[0]{'sub'} = $cs_hash->{'sub'};
@@ -107,21 +106,18 @@
                 };
                 store_stats($stats, $ctx_stack->[0], 0, $extra );
                 unshift @$ctx_stack, $cs_hash;
-                print "added $cs_hash->{'ns'} with ctx $cs_hash->{'ctx'}\n";
             }
             else {
                 #shift contexts off the stack until one matches the current ctx
                 while ($ctx_stack->[0]->{'ctx'} ne $cs_hash->{'ctx'}) {
                     my $ctx = shift @$ctx_stack;
-                    print "shifted away $ctx->{'ns'}@ $ctx->{'ctx'} looking for $cs_hash->{'ctx'}\n";
                 }
-                print "done\n";
             }
             #print Dumper($ctx_stack);
         }
         elsif (/^END_OF_RUNLOOP$/) {
             #end of loop
-            $ctx_stack = [];
+            @$ctx_stack = ();
         }
         elsif (/^OP:(.*)$/) {
             my $op_hash = split_vars($1);