From: Robert Dewar Date: Tue, 31 Oct 2006 18:00:56 +0000 (+0100) Subject: g-speche.ads, [...]: Add special case to recognize misspelling initial letter o as... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=30f41abaecc1914140134b0f97619fa4dc9c90c9;p=gcc.git g-speche.ads, [...]: Add special case to recognize misspelling initial letter o as a zero. 2006-10-31 Robert Dewar * g-speche.ads, g-speche.adb: Add special case to recognize misspelling initial letter o as a zero. From-SVN: r118281 --- diff --git a/gcc/ada/g-speche.adb b/gcc/ada/g-speche.adb index 26af290b3b1..9d00bc5e099 100644 --- a/gcc/ada/g-speche.adb +++ b/gcc/ada/g-speche.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005 AdaCore -- +-- Copyright (C) 1998-2006, AdaCore -- -- -- -- 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- -- @@ -39,8 +39,7 @@ package body GNAT.Spelling_Checker is function Is_Bad_Spelling_Of (Found : String; - Expect : String) - return Boolean + Expect : String) return Boolean is FN : constant Natural := Found'Length; FF : constant Natural := Found'First; @@ -60,9 +59,14 @@ package body GNAT.Spelling_Checker is elsif EN = 0 then return False; - -- If first character does not match, then definitely not misspelling + -- If first character does not match, then we consider that this is + -- definitely not a misspelling. An exception is when we expect a + -- letter O and found a zero. - elsif Found (FF) /= Expect (EF) then + elsif Found (FF) /= Expect (EF) + and then (Found (FF) /= '0' + or else (Expect (EF) /= 'o' and then Expect (EF) /= 'O')) + then return False; -- Not a bad spelling if both strings are 1-2 characters long @@ -149,7 +153,6 @@ package body GNAT.Spelling_Checker is else return False; end if; - end Is_Bad_Spelling_Of; end GNAT.Spelling_Checker; diff --git a/gcc/ada/g-speche.ads b/gcc/ada/g-speche.ads index f3482d47e3a..ab3daeaecd5 100644 --- a/gcc/ada/g-speche.ads +++ b/gcc/ada/g-speche.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2005 AdaCore -- +-- Copyright (C) 1998-2006, AdaCore -- -- -- -- 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- -- @@ -40,8 +40,7 @@ package GNAT.Spelling_Checker is function Is_Bad_Spelling_Of (Found : String; - Expect : String) - return Boolean; + Expect : String) return Boolean; -- Determines if the string Found is a plausible misspelling of the -- string Expect. Returns True for an exact match or a probably -- misspelling, False if no near match is detected. This routine