diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:18:43 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:18:43 +0200 |
| commit | 8dbf3473b19d7579acb40e4f0342d4a1c055e4d5 (patch) | |
| tree | cbbdb7b765b7450d3975715bb6b8f577fd8d8e65 /gcc/ada/namet-sp.adb | |
| parent | 56fe7b052dda1139d25bddad2e9fe9cb6ea222bf (diff) | |
| download | gcc-8dbf3473b19d7579acb40e4f0342d4a1c055e4d5.zip gcc-8dbf3473b19d7579acb40e4f0342d4a1c055e4d5.tar.gz gcc-8dbf3473b19d7579acb40e4f0342d4a1c055e4d5.tar.bz2 | |
[multiple changes]
2009-04-20 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor reformatting
* lib-load.adb: Minor reformatting
* sem_ch4.adb: Minor reformatting
2009-04-20 Robert Dewar <dewar@adacore.com>
* namet-sp.ads, namet-sp.adb (Is_Bad_Spelling_Of): Implement new spec
(equal values => False).
2009-04-20 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Is_Null_Procedure): predicate is global, so that calls
to null procedures can be inlined unconditionally.
From-SVN: r146368
Diffstat (limited to 'gcc/ada/namet-sp.adb')
| -rwxr-xr-x | gcc/ada/namet-sp.adb | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/gcc/ada/namet-sp.adb b/gcc/ada/namet-sp.adb index e2deda9..30f85f5 100755 --- a/gcc/ada/namet-sp.adb +++ b/gcc/ada/namet-sp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2009, 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- -- @@ -186,9 +186,18 @@ package body Namet.Sp is begin Get_Name_String_UTF_32 (Found, FB, FBL); Get_Name_String_UTF_32 (Expect, EB, EBL); - return - GNAT.UTF_32_Spelling_Checker.Is_Bad_Spelling_Of - (FB (1 .. FBL), EB (1 .. EBL)); + + -- For an exact match, return False, otherwise check bad spelling. We + -- need this special test because the library routine returns True for + -- an exact match. + + if FB (1 .. FBL) = EB (1 .. EBL) then + return False; + else + return + GNAT.UTF_32_Spelling_Checker.Is_Bad_Spelling_Of + (FB (1 .. FBL), EB (1 .. EBL)); + end if; end Is_Bad_Spelling_Of; end Namet.Sp; |