child_lwp->status_pending_p = 0;
child_thr = get_lwp_thread (child_lwp);
child_thr->last_resume_kind = resume_stop;
+ child_thr->last_status.kind = TARGET_WAITKIND_STOPPED;
+
parent_proc = get_thread_process (event_thr);
child_proc->attached = parent_proc->attached;
clone_all_breakpoints (&child_proc->breakpoints,
}
}
+ # gdbserver had a bug that resulted in reporting the fork child's
+ # initial stop to gdb, which gdb does not expect, in turn
+ # resulting in a broken session, like:
+ #
+ # [Thread 31536.31536] #16 stopped. <== BAD
+ # [New Thread 31547.31547]
+ # [Inferior 10 (process 31536) exited normally]
+ # [New Thread 31547.31560]
+ #
+ # [Thread 31547.31547] #18 stopped. <== BAD
+ # Cannot remove breakpoints because program is no longer writable. <== BAD
+ # Further execution is probably impossible. <== BAD
+ # [Inferior 11 (process 31547) exited normally]
+ # [Inferior 1 (process 31454) exited normally]
+ #
+ # These variables track whether we see such broken behavior.
+ set saw_cannot_remove_breakpoints 0
+ set saw_thread_stopped 0
+
set test "inferior 1 exited"
gdb_test_multiple "" $test {
+ -re "Cannot remove breakpoints" {
+ set saw_cannot_remove_breakpoints 1
+ exp_continue
+ }
+ -re "Thread \[^\r\n\]+ stopped\\." {
+ set saw_thread_stopped 1
+ exp_continue
+ }
-re "Inferior 1 \(\[^\r\n\]+\) exited normally" {
pass $test
}
}
+ gdb_assert !$saw_cannot_remove_breakpoints \
+ "no failure to remove breakpoints"
+ gdb_assert !$saw_thread_stopped \
+ "no spurious thread stop"
+
gdb_test "info threads" "No threads\." \
"no threads left"