Lines Matching refs:stack

698 	my @stack = ();
738 		  $syst = $stack[-1][0] if scalar @stack;
741 		  #warn("Inserted exit for $stack[-1][0].\n")
756 		  	my $ename = $dir eq '*' ? $stack[-1][0]  : $name;
814 			push( @stack, $x );
832 	if( @stack ){
835 			foreach $x (@stack) {
843 			warn( "Faking " . scalar( @stack ) . " exit timestamp(s).\n");
844 			foreach $x ( reverse @stack ){
863 	my($stack, $tstack, $t, $times, $ctimes, $name, $in, $tab, $deep, $outer) = @_;
866 	$x = pop( @$stack );
879 	    foreach $z (@stack, $x) {