From: Tom Tromey <tromey@redhat.com>
Date: Sat, 29 Dec 2001 04:31:10 +0000 (+0000)
Subject: gen-table.pl: Don't process characters after \uffff.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dab722ee86e26ab588544b20dc1e6dad12a23f45;p=gcc.git

gen-table.pl: Don't process characters after \uffff.

	* gen-table.pl: Don't process characters after \uffff.  Added
	comment pointing to input file.

From-SVN: r48359
---

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index b5b34bc1cd6..74bffb6e6ac 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-28  Tom Tromey  <tromey@redhat.com>
+
+	* gen-table.pl: Don't process characters after \uffff.  Added
+	comment pointing to input file.
+
 2001-12-28  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* gen-table.pl: Const-ify output.  Document the location of a
diff --git a/gcc/java/gen-table.pl b/gcc/java/gen-table.pl
index cb0a870291f..98d003ca60b 100644
--- a/gcc/java/gen-table.pl
+++ b/gcc/java/gen-table.pl
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-#    Copyright (C) 2000 Free Software Foundation
+#    Copyright (C) 2000, 2001 Free Software Foundation
 
 #    This program is free software; you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
@@ -20,9 +20,13 @@
 # gen-table.pl - Generate tables for gcj from Unicode data.
 # Usage: perl gen-table.pl DATA-FILE
 #
-# A suitable DATA-FILE is available at:
-# ftp://www.unicode.org/Public/3.0-Update/UnicodeData-3.0.0.txt
-
+# You can find the Unicode data file here:
+#   ftp://www.unicode.org/Public/3.0-Update1/UnicodeData-3.0.1.txt
+# Please update this URL when this program is used with a more
+# recent version of the table.  Note that this table cannot be
+# distributed with gcc.
+# This program should not be re-run indiscriminately.  Care must be
+# taken that what it generates is in sync with the Java specification.
 
 # Names of fields in Unicode data table.
 $CODE = 0;
@@ -80,6 +84,7 @@ while (<INPUT>)
     }
 
     $code = hex ($fields[$CODE]);
+    last if $code > 0xffff;
     if ($code > $last_code + 1)
     {
 	# Found a gap.