[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7846] Parser.pm remove debugging code
From: |
gavinsmith0123 |
Subject: |
[7846] Parser.pm remove debugging code |
Date: |
Sat, 24 Jun 2017 15:20:24 -0400 (EDT) |
Revision: 7846
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7846
Author: gavin
Date: 2017-06-24 15:20:24 -0400 (Sat, 24 Jun 2017)
Log Message:
-----------
Parser.pm remove debugging code
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Parser.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2017-06-24 19:17:18 UTC (rev 7845)
+++ trunk/ChangeLog 2017-06-24 19:20:24 UTC (rev 7846)
@@ -1,5 +1,10 @@
2017-06-24 Gavin Smith <address@hidden>
+ * tp/Texinfo/Parser.pm (_parse_texi): Remove debugging code
+ to dump parse tree every time a new line is read.
+
+2017-06-24 Gavin Smith <address@hidden>
+
* configure.ac: Increase version to 6.4dev. Remove "dist-xz"
option.
Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm 2017-06-24 19:17:18 UTC (rev 7845)
+++ trunk/tp/Texinfo/Parser.pm 2017-06-24 19:20:24 UTC (rev 7846)
@@ -3685,17 +3685,10 @@
last if (!defined($line));
if ($self->{'DEBUG'}) {
- $current->{'HERE !!!!'} = 1; # marks where we are in the tree
- if ($self->{'DEBUG'} >= 100) {
- local $Data::Dumper::Indent = 1;
- local $Data::Dumper::Purity = 1;
- print STDERR "".Data::Dumper->Dump([$root], ['$root']);
- }
my $line_text = '';
$line_text = "$line_nr->{'line_nr'}.$line_nr->{'macro'}" if ($line_nr);
print STDERR "NEW LINE(".join('|',
@{$self->{'context_stack'}}).":@{$self->{'conditionals_stack'}}:$line_text):
$line";
#print STDERR "CONTEXT_STACK
".join('|',@{$self->{'context_stack'}})."\n";
- delete $current->{'HERE !!!!'};
}
if (not
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7846] Parser.pm remove debugging code,
gavinsmith0123 <=