diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 16:23:18 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 16:23:18 +0000 |
| commit | ab2ba306f09948ff09fef49f3592d714c38b2d93 (patch) | |
| tree | b12d13d305b3e049e0907c34ad5d505ce04fa415 /gcc/ada/scng.adb | |
| parent | a39fe8c82fd895251538269b679047bd6fc98ac5 (diff) | |
| download | gcc-ab2ba306f09948ff09fef49f3592d714c38b2d93.tar.gz | |
2008-04-14 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r134275
stilly buggy for libgcc muldi3: internal compiler error: in
execute_ipa_pass_list, at passes.c:1235
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@134279 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 8322a249f81..76f63f9353b 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -236,7 +236,7 @@ package body Scng is -- Scan_Ptr points to the opening string quote (the checksum for this -- character has not been accumulated yet). On return Scan_Ptr points -- past the closing quote of the string literal, Token and Token_Node - -- are set appropriately, and the checksum is upated. + -- are set appropriately, and the checksum is updated. ----------------------- -- Check_End_Of_Line -- @@ -2066,7 +2066,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Mark character is an error (at start of identifer) + -- Mark character is an error (at start of identifier) elsif Is_UTF_32_Mark (Cat) then Error_Msg @@ -2076,7 +2076,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Other format character is an error (at start of identifer) + -- Other format character is an error (at start of identifier) elsif Is_UTF_32_Other (Cat) then Error_Msg @@ -2108,7 +2108,7 @@ package body Scng is -- Routine to scan line terminator. On entry Scan_Ptr points to a -- character which is one of FF,LR,CR,VT, or one of the wide characters - -- that is treated as a line termiantor. + -- that is treated as a line terminator. <<Scan_Line_Terminator>> @@ -2151,7 +2151,7 @@ package body Scng is -- Identifier scanning routine. On entry, some initial characters of -- the identifier may have already been stored in Name_Buffer. If so, - -- Name_Len has the number of characters stored. otherwise Name_Len is + -- Name_Len has the number of characters stored, otherwise Name_Len is -- set to zero on entry. Underline_Found is also set False on entry. <<Scan_Identifier>> @@ -2189,8 +2189,10 @@ package body Scng is -- is active, so if we find an ESC character we know that we have a -- wide character. - if Identifier_Char (Source (Scan_Ptr)) then - + if Identifier_Char (Source (Scan_Ptr)) + or else (Source (Scan_Ptr) in Upper_Half_Character + and then Upper_Half_Encoding) + then -- Case of underline if Source (Scan_Ptr) = '_' then @@ -2322,7 +2324,7 @@ package body Scng is Underline_Found := True; end if; - -- Wide character in Unicode cateogory "Other, Format" + -- Wide character in Unicode category "Other, Format" -- is accepted in an identifier, but is ignored and not -- stored. It seems reasonable to exclude it from the -- checksum. |