* gdb.base/solib-nodir.exp: Skip if remote target.
* gdb.base/gdb.fortran.exp: Use shlib= flag when linking main application. Call gdb_load_shlibs. * gdb.mi/mi-solib.exp: Use mi_load_shlibs instead of gdb_load_shlibs.
This commit is contained in:
parent
2e2a012404
commit
4255c8d248
|
@ -1,3 +1,10 @@
|
|||
2011-11-30 Ulrich Weigand <uweigand@de.ibm.com>
|
||||
|
||||
* gdb.base/solib-nodir.exp: Skip if remote target.
|
||||
* gdb.base/gdb.fortran.exp: Use shlib= flag when linking main
|
||||
application. Call gdb_load_shlibs.
|
||||
* gdb.mi/mi-solib.exp: Use mi_load_shlibs instead of gdb_load_shlibs.
|
||||
|
||||
2011-11-29 Joel Brobecker <brobecker@adacore.com>
|
||||
|
||||
* gdb.base/infoline.c, gdb.base/infoline.exp: New files.
|
||||
|
|
|
@ -14,7 +14,7 @@
|
|||
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
||||
|
||||
# are we on a target board
|
||||
if {![isnative] || [skip_shlib_tests]} {
|
||||
if {[is_remote target] || [skip_shlib_tests]} {
|
||||
return
|
||||
}
|
||||
|
||||
|
|
|
@ -34,13 +34,15 @@ if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$li
|
|||
# just for the linking phase (and not the source compilation phase). And any
|
||||
# warnings on ignored $libfile abort the process.
|
||||
|
||||
if { [gdb_compile [list $srcdir/$subdir/$srcfile $objdir/$subdir/$libfile] $objdir/$subdir/$binfile executable {debug f90}] != "" } {
|
||||
if { [gdb_compile $srcdir/$subdir/$srcfile $objdir/$subdir/$binfile executable [list debug f90 shlib=$objdir/$subdir/$libfile]] != "" } {
|
||||
untested "Couldn't compile ${srcfile}"
|
||||
return -1
|
||||
}
|
||||
|
||||
clean_restart $binfile
|
||||
|
||||
gdb_load_shlibs $objdir/$subdir/$libfile
|
||||
|
||||
if ![runto MAIN__] then {
|
||||
perror "couldn't run to breakpoint MAIN__"
|
||||
continue
|
||||
|
|
|
@ -51,7 +51,7 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
|
|||
mi_gdb_reinitialize_dir $srcdir/$subdir
|
||||
mi_gdb_load ${binfile}
|
||||
|
||||
gdb_load_shlibs $binfile_lib
|
||||
mi_load_shlibs $binfile_lib
|
||||
|
||||
mi_gdb_test "777-gdb-set stop-on-solib-events 1" "777\\^done" \
|
||||
"set stop-on-solib-events"
|
||||
|
|
Loading…
Reference in New Issue