| Index: gdb/testsuite/gdb.ada/fun_addr.exp
|
| diff --git a/gdb/testsuite/gdb.ada/fun_addr.exp b/gdb/testsuite/gdb.ada/fun_addr.exp
|
| index 1c76a1e6b7e93e3316542482d57aad5aba3b7382..99249954532e614f81037db295b2a80949c53ac5 100644
|
| --- a/gdb/testsuite/gdb.ada/fun_addr.exp
|
| +++ b/gdb/testsuite/gdb.ada/fun_addr.exp
|
| @@ -13,10 +13,6 @@
|
| # You should have received a copy of the GNU General Public License
|
| # along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
| -if $tracelevel then {
|
| - strace $tracelevel
|
| -}
|
| -
|
| load_lib "ada.exp"
|
|
|
| set testdir "fun_addr"
|
| @@ -35,7 +31,7 @@ clean_restart ${testfile}
|
| # the inferior is *not* running (no frame).
|
|
|
| gdb_test "print foo'address" \
|
| - "= .* 0x\[0-9a-zA-Z\]+" \
|
| + "= .* 0x\[0-9a-zA-Z\]+ <foo>" \
|
| "print foo'address"
|
|
|
|
|
|
|