From 7896f1e43ae63014fa254ebba46e01e28aa516e4 Mon Sep 17 00:00:00 2001
From: Tom Tromey <tromey@redhat.com>
Date: Mon, 11 Dec 2000 21:50:39 +0000
Subject: [PATCH] re GNATS libgcj/378 (Problem with scripts/classes.pl)

	* scripts/classes.pl (scan): Skip lines with leading `*'.
	Fix for PR libgcj/378.

From-SVN: r38198
---
 libjava/ChangeLog          | 5 +++++
 libjava/scripts/classes.pl | 6 +++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/libjava/ChangeLog b/libjava/ChangeLog
index 5af05af36ec..7ca34d2abbf 100644
--- a/libjava/ChangeLog
+++ b/libjava/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-11  Tom Tromey  <tromey@redhat.com>
+
+	* scripts/classes.pl (scan): Skip lines with leading `*'.
+	Fix for PR libgcj/378.
+
 2000-12-11  Bryce McKinlay  <bryce@albatross.co.nz>
 
 	* configure.in: Remove check for -fuse-divide-subroutine.
diff --git a/libjava/scripts/classes.pl b/libjava/scripts/classes.pl
index 9523823a313..cc5ef786668 100644
--- a/libjava/scripts/classes.pl
+++ b/libjava/scripts/classes.pl
@@ -68,8 +68,12 @@ sub scan
 	    local ($outer, $classname);
 	    while (<FILE>)
 	    {
-		# NOTE: we don't skip `/*' comments.
 		s,//.*$,,;
+		# NOTE: we don't skip `/*' comments.  However, we do
+		# skip lines with a `*' with leading whitespace.  This
+		# catches the most important cases.
+		s,^\s*\*.*$,,;
+
 		# For now assume that class names start with upper
 		# case letter.
 		next unless /\b(class|interface) ([A-Z][A-Za-z0-9]+)/;