# Copyright 2002 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 2 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, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# This file was written by Jim Ingham <jingham@apple.com>
# This program loads, unloads & reloads a bundle. We set a breakpoint in
# a function in a dependent bundle to the loaded one. We also load a dummy
# bundle between the load & unload to force the second load to a different
# location.
if $tracelevel then {
strace $tracelevel
}
set prms_id 0
set bug_id 0
set bindir [file join ${objdir} ${subdir}]
set reallib "libreal"
set realbinfile [file join $bindir $reallib.dylib]
set loaded_bundle loaded
set loaded_binfile [file join $bindir $loaded_bundle.bundle]
set dummy_bundle dummy
set dummy_binfile [file join $bindir $dummy_bundle.bundle]
set testfile "loader"
set srcfile ${testfile}.c
set binfile [file join $bindir $testfile]
# Make libreal.dylib
set additional_flags "additional_flags=-dynamiclib"
if { [gdb_compile "${srcdir}/${subdir}/real.c" "$realbinfile" executable [list debug $additional_flags]] != "" } {
gdb_suppress_entire_file "Testcase real compile failed, so all tests in this file will automatically fail."
}
# Make loaded
set additional_flags "additional_flags=-bundle -L$bindir -lreal"
if { [gdb_compile "${srcdir}/${subdir}/loaded.c" "$loaded_binfile" executable [list debug $additional_flags]] != "" } {
gdb_suppress_entire_file "Testcase loaded compile failed, so all tests in this file will automatically fail."
}
# Make dummy
set additional_flags "additional_flags=-dynamiclib"
if { [gdb_compile "${srcdir}/${subdir}/dummy.c" "$dummy_binfile" executable [list debug $additional_flags]] != "" } {
gdb_suppress_entire_file "Testcase dummy bundle compile failed, so all tests in this file will automatically fail."
}
# Make dummy
if { [gdb_compile "${srcdir}/${subdir}/loader.c" "$binfile" executable debug] != "" } {
gdb_suppress_entire_file "Testcase dummy bundle compile failed, so all tests in this file will automatically fail."
}
load_lib mi-support.exp
set MIFLAGS "-i=mi1"
gdb_exit
if [mi_gdb_start] {
continue
}
mi_delete_breakpoints
mi_gdb_reinitialize_dir $srcdir/$subdir
mi_gdb_load ${binfile}
mi_run_to_main
send_gdb "200-break-insert -s libreal.dylib -f real_function\n"
gdb_expect {
-re "200\\^done,bkpt=\{number=\"2\",type=\"breakpoint\",disp=\"keep\",enabled=\"y\",addr=\"<PENDING>\",pending=\"real_function\",times=\"0\"\}\[\r\n\]+$mi_gdb_prompt$" {
pass "break-insert blocky operation"
}
-re ".*$mi_gdb_prompt$" {
fail "break-insert blocky operation"
}
timeout {
fail "(timeout) break-insert blocky operation"
}
}
send_gdb "200-break-insert -s dummy.bundle -f dummy_function\n"
gdb_expect {
-re "200\\^done,bkpt=\{number=\"3\",type=\"breakpoint\",disp=\"keep\",enabled=\"y\",addr=\"<PENDING>\",pending=\"dummy_function\",times=\"0\"\}\[\r\n\]+$mi_gdb_prompt$" {
pass "break-insert blocky operation"
}
-re ".*$mi_gdb_prompt$" {
fail "break-insert blocky operation"
}
timeout {
fail "(timeout) break-insert blocky operation"
}
}
send_gdb "210-gdb-set sharedlibrary load-rules dyld .* extern\n"
gdb_expect {
-re "210\\^done\[\r\n\]+$mi_gdb_prompt$" {
pass "setting sharedlibrary load rules to extern."
}
timeout {
fail "(timeout) setting sharedlibrary load rules to extern."
}
}
send_gdb "211-gdb-set auto-raise-load-levels 1\n"
gdb_expect {
-re "211\\^done\[\r\n\]+$mi_gdb_prompt$" {
pass "setting auto-raise load levels."
}
timeout {
fail "(timeout) setting auto-raise load levels."
}
}
set libs_loaded {.*\r\n=shlibs-added,shlib-info=\[num="[0-9]+",name="loaded.bundle",.*\].*\r\n=shlibs-added,shlib-info=\[num="[0-9]+",name="libreal.dylib".*\].*\r\n.*}
set libs_unloaded {.*\r\n=shlibs-removed,shlib-info=\[num="[0-9]+",name="loaded.bundle",.*\].*\r\n=shlibs-removed,shlib-info=\[num="[0-9]+",name="libreal.dylib".*\].*\r\n.*}
set varobj_deleted {=var-deleted,var="loaded_varobj".*\r\n.*}
mi_continue_to 2 real_function ".*" real.c "11" "Run to real function first time" $libs_loaded
# Now make a variable object that relies on types from the loaded.bundle.
# Then when we get unloaded, we can try to update & evaluate the varobj, and
# if we haven't figured out that this varobj relies on the types that got unloaded,
# we'll just crash.
mi_gdb_test {-var-create loaded_varobj * global_struct} \
{name="loaded_varobj",numchild="2",type="struct real_struct",.*} \
{Create varobj relying on types in loaded.bundle}
mi_gdb_test {-var-list-children --all-values loaded_varobj} \
{numchild="2",children=\[child=\{.*value="0".*\},child=\{.*value="0".*\}\]} \
{List children of loaded_varobj}
mi_continue_to 3 dummy_function ".*" dummy.c "4" "Run to dummy function" $libs_unloaded$varobj_deleted
mi_gdb_test {-var-update loaded_varobj} {.*msg="Variable object not found".*} {Try to update loaded_varobj, should already be gone.}
mi_continue_to 2 real_function ".*" real.c "11" "Run to real function second time" $libs_loaded
send_gdb "210-break-disable 3\n"
gdb_expect {
-re "210\\^done\[\r\n\]+$mi_gdb_prompt$" {
pass "Disable breakpoint at dummy_function"
}
timeout {
fail "(timeout) disable breakpoint at dummy_function"
}
}
send_gdb "220-exec-run\n"
gdb_expect {
-re "220\\*stopped,reason=\"breakpoint-hit\",commands=\"no\",times=\"1\",bkptno=\"1\",thread-id=\"$decimal\"\[\r\n\]+$mi_gdb_prompt$" {
pass "Rerunning."
}
timeout {
fail "(timeout) rerunning"
}
}
mi_continue_to 2 real_function ".*" real.c "11" "Rerun to real function first time" $libs_loaded
mi_continue_to 2 real_function ".*" real.c "11" "Rerun to real function second time" $libs_unloaded$libs_loaded