From 357ac4df50fc0c22a5cee64bee133b4f2fdfba38 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 16 Jun 2005 10:45:19 +0200 Subject: scng.adb: Add call to new Check_EOF routine 2005-06-14 Robert Dewar * scng.adb: Add call to new Check_EOF routine (Accumulate_Checksum): Properly handle wide wide char >= 2 ** 24 Add some comments regarding wide character handling * style.ads, styleg.ads, styleg.adb: Implement new style switch -gnatyu * stylesw.ads, stylesw.adb: Implement new style switch -gnatyu * g-utf_32.ads, g-utf_32.adb (Is_UTF_32_Non_Graphic): Other_Format characters are now considered graphic characters and hence yield false in this call. From-SVN: r101056 --- gcc/ada/style.ads | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/ada/style.ads') diff --git a/gcc/ada/style.ads b/gcc/ada/style.ads index c7a46ed..324cd0f 100644 --- a/gcc/ada/style.ads +++ b/gcc/ada/style.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -111,6 +111,10 @@ package Style is renames Style_Inst.Check_Dot_Dot; -- Called after scanning out dot dot to check spacing + procedure Check_EOF + renames Style_Inst.Check_EOF; + -- Called after scanning out end of file mark + procedure Check_HT renames Style_Inst.Check_HT; -- Called with Scan_Ptr pointing to a horizontal tab character -- cgit v1.1