mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-18 07:18:52 +08:00
Code Issues Packages Projects Releases Wiki Activity

re GNATS libgcj/378 (Problem with scripts/classes.pl)

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

From-SVN: r38198
This commit is contained in:
Tom Tromey 2000-12-11 21:50:39 +00:00 committed by Tom Tromey
parent 27b18383e6
commit 7896f1e43a
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libjava/ChangeLog
View File

@ -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> 2000-12-11 Bryce McKinlay <bryce@albatross.co.nz>
* configure.in: Remove check for -fuse-divide-subroutine. * configure.in: Remove check for -fuse-divide-subroutine.

6
libjava/scripts/classes.pl
View File

@ -68,8 +68,12 @@ sub scan
local ($outer, $classname); local ($outer, $classname);
while (<FILE>) while (<FILE>)
{ {
# NOTE: we don't skip `/*' comments.
s,//.*$,,; 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 # For now assume that class names start with upper
# case letter. # case letter.
next unless /\b(class|interface) ([A-Z][A-Za-z0-9]+)/; next unless /\b(class|interface) ([A-Z][A-Za-z0-9]+)/;