2018-01-01 05:43:02 +01:00
|
|
|
# Copyright 2002-2018 Free Software Foundation, Inc.
|
2010-07-26 11:38:50 +02: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/>. */
|
|
|
|
|
|
|
|
# code_elim.exp -- tests that GDB can handle executables where some data/code
|
|
|
|
# has been eliminated by the linker.
|
|
|
|
|
|
|
|
set testfile1 code_elim1
|
|
|
|
set testfile2 code_elim2
|
|
|
|
set srcfile1 ${testfile1}.c
|
|
|
|
set srcfile2 ${testfile2}.c
|
test suite update - gdb.base/[cd]
Convert files gdb.base/[cd]*.exp to use standard_output_file et al.
* call-ar-st.exp, call-rt-st.exp, call-sc.exp,
call-signal-resume.exp, call-strs.exp, callexit.exp,
callfuncs.exp, catch-load.exp, catch-syscall.exp, charset.exp,
checkpoint.exp, chng-syms.exp, code-expr.exp, code_elim.exp,
commands.exp, completion.exp, complex.exp, cond-expr.exp,
condbreak.exp, consecutive.exp, constvars.exp, corefile.exp,
ctxobj.exp, cursal.exp, cvexpr.exp, dbx.exp, default.exp,
define.exp, del.exp, detach.exp, dfp-test.exp, display.exp,
dmsym.exp, dump.exp, dup-sect.exp: Use standard_testfile,
standard_output_file, prepare_for_testing, clean_restart.
2013-06-27 20:49:03 +02:00
|
|
|
set binfile1 [standard_output_file ${testfile1}]
|
|
|
|
set binfile2 [standard_output_file ${testfile2}]
|
2010-07-26 11:38:50 +02:00
|
|
|
set opts [list debug]
|
|
|
|
lappend opts "additional_flags=-ffunction-sections"
|
|
|
|
lappend opts "additional_flags=-fdata-sections"
|
|
|
|
lappend opts "additional_flags=-Wl,-gc-sections"
|
|
|
|
lappend opts "additional_flags=-Wl,-e,main"
|
|
|
|
|
|
|
|
remote_exec build "rm -f ${binfile1}"
|
|
|
|
remote_exec build "rm -f ${binfile2}"
|
|
|
|
|
|
|
|
if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile1}" executable $opts] != "" } {
|
2016-12-23 17:52:18 +01:00
|
|
|
untested "failed to compile"
|
2010-07-26 11:38:50 +02:00
|
|
|
return -1
|
|
|
|
}
|
|
|
|
|
|
|
|
if { [gdb_compile "${srcdir}/${subdir}/${srcfile2}" "${binfile2}" executable $opts] != "" } {
|
2016-12-23 17:52:18 +01:00
|
|
|
untested "failed to compile"
|
2010-07-26 11:38:50 +02:00
|
|
|
return -1
|
|
|
|
}
|
|
|
|
|
|
|
|
proc not_null_var_address { var } {
|
|
|
|
|
|
|
|
# Same as get_var_address, expect that it reports a failure if a null
|
|
|
|
# address is returned by gdb.
|
|
|
|
|
|
|
|
set address [get_var_address $var]
|
|
|
|
regexp "0x\[0-9a-fA-F\]+" $address address
|
|
|
|
if { "$address" == "0x0" } {
|
|
|
|
fail "$var has null address"
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
proc test_eliminated_var { var } {
|
|
|
|
global gdb_prompt hex
|
|
|
|
|
|
|
|
# Match output 'No symbol "${var}" in current context'
|
|
|
|
|
|
|
|
gdb_test_multiple "print &${var}" "test eliminated var ${var}" {
|
|
|
|
-re "No symbol \"${var}\" in current context\\.\[\r\n\]+${gdb_prompt} $" {
|
|
|
|
pass "test eliminated var ${var}"
|
|
|
|
}
|
|
|
|
-re "\\\$\[0-9\]+ = \\(.*\\) (0|$hex)( <${var}>)?\[\r\n\]+${gdb_prompt} $" {
|
|
|
|
fail "test eliminated var ${var}"
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# Check that the code and data eliminated in binfile1 are not included
|
|
|
|
# into partial symtab... and that non-eliminated symbols are still there.
|
|
|
|
|
|
|
|
gdb_exit
|
|
|
|
gdb_start
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
gdb_test "symbol-file ${binfile1}" \
|
2018-05-19 19:25:20 +02:00
|
|
|
"Reading symbols from .*${testfile1}\\.\\.\\.(|\r\nUsing host libthread_db library .*libthread_db.so.*\\.)" \
|
2012-06-03 19:06:04 +02:00
|
|
|
"symbol-file ${testfile1}"
|
2010-07-26 11:38:50 +02:00
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
with_test_prefix "single psymtabs" {
|
|
|
|
test_eliminated_var my_global_symbol
|
|
|
|
test_eliminated_var my_static_symbol
|
|
|
|
test_eliminated_var my_global_func
|
|
|
|
not_null_var_address main
|
|
|
|
}
|
2010-07-26 11:38:50 +02:00
|
|
|
|
|
|
|
# Same thing for symtabs
|
|
|
|
|
|
|
|
gdb_exit
|
|
|
|
global GDBFLAGS
|
|
|
|
set saved_gdbflags $GDBFLAGS
|
|
|
|
set GDBFLAGS "$GDBFLAGS --readnow $binfile1"
|
|
|
|
gdb_start
|
|
|
|
set GDBFLAGS $saved_gdbflags
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
with_test_prefix "single symtabs" {
|
|
|
|
test_eliminated_var my_global_symbol
|
|
|
|
test_eliminated_var my_static_symbol
|
|
|
|
test_eliminated_var my_global_func
|
|
|
|
not_null_var_address main
|
|
|
|
}
|
2010-07-26 11:38:50 +02:00
|
|
|
|
|
|
|
# binfile2 contains the symbols that have been eliminated in binfile1. Check
|
|
|
|
# the eliminated symbols does not hide these valid ones.
|
|
|
|
|
|
|
|
gdb_exit
|
|
|
|
gdb_start
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
with_test_prefix "order1" {
|
2012-06-03 19:10:28 +02:00
|
|
|
gdb_test "add-symbol-file ${binfile1} 0x100000 -s .bss 0x120000" \
|
2018-05-19 19:25:20 +02:00
|
|
|
"Reading symbols from .*${testfile1}\\.\\.\\." \
|
2012-06-03 19:10:28 +02:00
|
|
|
"add-symbol-file ${testfile1} 0x100000" \
|
|
|
|
"add symbol table from file \".*${testfile1}\" at.*\\(y or n\\) " \
|
|
|
|
"y"
|
|
|
|
|
|
|
|
gdb_test "add-symbol-file ${binfile2} 0x200000 -s .data 0x210000 -s .bss 0x220000" \
|
2018-05-19 19:25:20 +02:00
|
|
|
"Reading symbols from .*${testfile2}\\.\\.\\." \
|
2012-06-03 19:10:28 +02:00
|
|
|
"add-symbol-file ${testfile2} 0x200000" \
|
|
|
|
"add symbol table from file \".*${testfile2}\" at.*\\(y or n\\) " \
|
|
|
|
"y"
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
not_null_var_address my_global_symbol
|
|
|
|
not_null_var_address my_static_symbol
|
|
|
|
not_null_var_address my_global_func
|
|
|
|
not_null_var_address main
|
|
|
|
}
|
2010-07-26 11:38:50 +02:00
|
|
|
|
|
|
|
# Same thing, but loading binfile2 before binfile1.
|
|
|
|
|
|
|
|
gdb_exit
|
|
|
|
gdb_start
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
with_test_prefix "order2" {
|
2012-06-03 19:10:28 +02:00
|
|
|
gdb_test "add-symbol-file ${binfile2} 0x200000 -s .data 0x210000 -s .bss 0x220000" \
|
2018-05-19 19:25:20 +02:00
|
|
|
"Reading symbols from .*${testfile2}\\.\\.\\." \
|
2012-06-03 19:10:28 +02:00
|
|
|
"add-symbol-file ${testfile2} 0x200000" \
|
|
|
|
"add symbol table from file \".*${testfile2}\" at.*\\(y or n\\) " \
|
|
|
|
"y"
|
|
|
|
|
|
|
|
gdb_test "add-symbol-file ${binfile1} 0x100000 -s .bss 0x120000" \
|
2018-05-19 19:25:20 +02:00
|
|
|
"Reading symbols from .*${testfile1}\\.\\.\\." \
|
2012-06-03 19:10:28 +02:00
|
|
|
"add-symbol-file ${testfile1} 0x100000" \
|
|
|
|
"add symbol table from file \".*${testfile1}\" at.*\\(y or n\\) " \
|
|
|
|
"y"
|
|
|
|
|
2012-06-03 19:06:04 +02:00
|
|
|
not_null_var_address my_global_symbol
|
|
|
|
not_null_var_address my_static_symbol
|
|
|
|
not_null_var_address my_global_func
|
|
|
|
not_null_var_address main
|
|
|
|
}
|