From 66fc87a0d50d2b91322cc24d17461c07925fa867 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Wed, 3 Jan 2018 23:28:14 -0500 Subject: [PATCH] Add gdb.ada/info_addr_mixed_case new testcase This patch adds a new testcase to demonstrate a regression introduced by: commit b5ec771e60c1a0863e51eb491c85c674097e9e13 Date: Wed Nov 8 14:22:32 2017 +0000 Subject: Introduce lookup_name_info and generalize Ada's FULL/WILD name matching The purpose of the testcase is to verify that a user can use any casing for an Ada symbol name passed to the "info address" command. After the patch above was applied, GDB was no longer able to find the symbol: (gdb) info address My_Table No symbol "My_Table" in current context. gdb/testsuite/ChangeLog: PR gdb/22670 * gdb.ada/info_addr_mixed_case: New testcase. Tested on x86_64-linux, both before and after the patch. --- gdb/testsuite/ChangeLog | 5 +++ .../gdb.ada/info_addr_mixed_case.exp | 42 +++++++++++++++++++ .../gdb.ada/info_addr_mixed_case/foo.adb | 21 ++++++++++ .../gdb.ada/info_addr_mixed_case/pck.adb | 24 +++++++++++ .../gdb.ada/info_addr_mixed_case/pck.ads | 35 ++++++++++++++++ 5 files changed, 127 insertions(+) create mode 100644 gdb/testsuite/gdb.ada/info_addr_mixed_case.exp create mode 100644 gdb/testsuite/gdb.ada/info_addr_mixed_case/foo.adb create mode 100644 gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.adb create mode 100644 gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.ads diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 500dbddf1c6..b1be7e393cc 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2018-01-04 Joel Brobecker + + PR gdb/22670 + * gdb.ada/info_addr_mixed_case: New testcase. + 2018-01-03 Xavier Roirand * gdb.ada/excep_handle.exp: New testcase. diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp new file mode 100644 index 00000000000..e9fce0d93c9 --- /dev/null +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp @@ -0,0 +1,42 @@ +# Copyright 2018 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 . + +load_lib "ada.exp" + +standard_ada_testfile foo + +if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { + return -1 +} + +clean_restart ${testfile} + +set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] +if ![runto "foo.adb:$bp_location" ] then { + perror "Couldn't run ${testfile}" + return +} + +# The following test exercises the situation when uppercase letters +# are used in the name of the symbol passed to the "info address" +# command. This should not make a difference, as the language is +# Ada, and Ada is case-insensitive. + +# commit b5ec771e60c1a0863e51eb491c85c674097e9e13 (Introduce +# lookup_name_info and generalize Ada's FULL/WILD name matching) +# caused the following test to fail. KFAIL it while investigating... +setup_kfail gdb/22670 "*-*-*" +gdb_test "info address My_Table" \ + "Symbol \"pck\\.my_table\" is static storage at address $hex\\." diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case/foo.adb b/gdb/testsuite/gdb.ada/info_addr_mixed_case/foo.adb new file mode 100644 index 00000000000..0028fdaad34 --- /dev/null +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case/foo.adb @@ -0,0 +1,21 @@ +-- Copyright 2018 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 . + +with Pck; use Pck; + +procedure Foo is +begin + Do_Nothing (My_Table'Address); -- START +end Foo; diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.adb b/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.adb new file mode 100644 index 00000000000..20570405d03 --- /dev/null +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.adb @@ -0,0 +1,24 @@ +-- Copyright 2018 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 . + +package body Pck is + + procedure Do_Nothing (A : System.Address) is + begin + null; + end Do_Nothing; + +end Pck; + diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.ads b/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.ads new file mode 100644 index 00000000000..0a786ccf4d1 --- /dev/null +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case/pck.ads @@ -0,0 +1,35 @@ +-- Copyright 2018 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 . + +with System; + +package Pck is + + type Float_Array is array (Integer range <>) of Integer; + type Float_Ptr is access Float_Array; + + type Table_Type is (One, Two, Three, Four, Five); + type New_Table_Array is array (Table_Type) of Float_Ptr; + + My_Table : New_Table_Array := (others => new Float_Array'((4 => 16#DE#, + 5 => 16#AD#))); + + My_F : Float_Ptr := new Float_Array'(4 => 16#BE#, + 5 => 16#EF#); + + procedure Do_Nothing (A : System.Address); + +end Pck; + -- 2.30.2