Cleanup script for re2c output that removes unreferenced labels (significantly

reducing C compiler warnings).

svn path=/trunk/yasm/; revision=647

diff --git a/tools/re2c/Makefile.am b/tools/re2c/Makefile.am
index 75d564888eb023e54e9fb7c2496f94f3ef510f39..6c8c5ae12b4fb2ee31c36a891ef2acb49dbe1def 100644 (file)
--- a/tools/re2c/Makefile.am
+++ b/tools/re2c/Makefile.am
@@ -52,4 +52,5 @@ EXTRA_DIST = \
        examples/simple.re      \
        examples/rexx/README    \
        examples/rexx/rexx.l    \
-       examples/rexx/scanio.c
+       examples/rexx/scanio.c  \
+       cleanup.pl

diff --git a/tools/re2c/Makefile.inc b/tools/re2c/Makefile.inc
index 75d564888eb023e54e9fb7c2496f94f3ef510f39..6c8c5ae12b4fb2ee31c36a891ef2acb49dbe1def 100644 (file)
--- a/tools/re2c/Makefile.inc
+++ b/tools/re2c/Makefile.inc
@@ -52,4 +52,5 @@ EXTRA_DIST = \
        examples/simple.re      \
        examples/rexx/README    \
        examples/rexx/rexx.l    \
-       examples/rexx/scanio.c
+       examples/rexx/scanio.c  \
+       cleanup.pl

diff --git a/tools/re2c/cleanup.pl b/tools/re2c/cleanup.pl
new file mode 100755 (executable)
index 0000000..7034a46
--- /dev/null
+++ b/tools/re2c/cleanup.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+my @sourcelines = <>;
+my %usedlabel;
+for (@sourcelines) {
+    $usedlabel{"$1:"} = "$1:" if m/goto\s+(yy[0-9]*)\s*;/
+}
+for (@sourcelines) {
+    s/^(yy[0-9]*:)/$usedlabel{$1}/;
+    print;
+}