old-cross-binutils/gdb/testsuite/gdb.ada/fullname_bp/pck.ads

--  Copyright 2011-2015 Free Software Foundation, Inc.
--
--  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
--  the Free Software Foundation; either version 3 of the License, or
--  (at your option) any later version.
--
--  This program is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--  GNU General Public License for more details.
--
--  You should have received a copy of the GNU General Public License
--  along with this program.  If not, see <http://www.gnu.org/licenses/>.

package Pck is
   procedure Hello;
   procedure There;
   --  The name of that procedure needs to be greater (in terms
   --  of alphabetical order) than the name of the procedure above.
end Pck;
Update year range in copyright notice of all files owned by the GDB project. gdb/ChangeLog: Update year range in copyright notice of all files. 2015-01-01 09:32:14 +00:00			`-- Copyright 2011-2015 Free Software Foundation, Inc.`
wrong value returned by ada-lang.c:compare_names The ada-lang.c:compare_names function returns the wrong value when the first string starts with the same contents as the second string, followed by '_' and then some characters that do not make a symbol name suffix. For instance: string1 = "generics__test_generics__instance__print" string2 = "generics__test_generics" In that case, compare_names (string1, string2) return -1, when clearly, string1 is greater than string2. A consequence of this problem is that GDB may fail to lookup "generics.test_generics" from our partial symtabs, because partial symbols are ordered by strcmp_iw_ordered: (gdb) b generics.test_generics Function "generics.test_generics" not defined. Make breakpoint pending on future shared library load? (y or [n]) gdb/ChangeLog: * ada-lang.c (compare_names): Fix wrong return value in case string1 starts with the same contents as string2, followed by an underscore that do not start a symbol name suffix. gdb/testsuite/ChangeLog: * gdb.ada/fullname_bp: New testcase. 2011-11-29 01:00:52 +00:00			`--`
			`-- 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`
			`-- the Free Software Foundation; either version 3 of the License, or`
			`-- (at your option) any later version.`
			`--`
			`-- This program is distributed in the hope that it will be useful,`
			`-- but WITHOUT ANY WARRANTY; without even the implied warranty of`
			`-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
			`-- GNU General Public License for more details.`
			`--`
			`-- You should have received a copy of the GNU General Public License`
			`-- along with this program. If not, see <http://www.gnu.org/licenses/>.`

			`package Pck is`
			`procedure Hello;`
			`procedure There;`
			`-- The name of that procedure needs to be greater (in terms`
			`-- of alphabetical order) than the name of the procedure above.`
			`end Pck;`