From 7339a42e03e6168e949e1a41755ab6698e2fa043 Mon Sep 17 00:00:00 2001 From: Jeff Johnston Date: Thu, 22 Apr 2004 22:19:40 +0000 Subject: [PATCH] 2004-04-22 Jeff Johnston Daniel Jacobowitz * gdb.threads/manythreads.c: New testcase. * gdb.threads/manythreads.exp: Ditto. --- gdb/testsuite/ChangeLog | 7 ++ gdb/testsuite/gdb.threads/manythreads.c | 42 ++++++++ gdb/testsuite/gdb.threads/manythreads.exp | 125 ++++++++++++++++++++++ 3 files changed, 174 insertions(+) create mode 100644 gdb/testsuite/gdb.threads/manythreads.c create mode 100644 gdb/testsuite/gdb.threads/manythreads.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d11849cc22e..2b5e05d87df 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-04-22 Jeff Johnston + Daniel Jacobowitz + + * gdb.threads/manythreads.c: New testcase. + * gdb.threads/manythreads.exp: Ditto. + 2004-04-22 Jim Blandy * gdb.stabs/exclfwd.exp, gdb.stabs/exclfwd1.c, @@ -87,6 +93,7 @@ * lib/ada.exp: New file. +>>>>>>> 1.851 2004-03-24 Daniel Jacobowitz * gdb.base/gdb1250.exp: Use runto {allow-pending}. diff --git a/gdb/testsuite/gdb.threads/manythreads.c b/gdb/testsuite/gdb.threads/manythreads.c new file mode 100644 index 00000000000..c874b154fb2 --- /dev/null +++ b/gdb/testsuite/gdb.threads/manythreads.c @@ -0,0 +1,42 @@ +#include +#include + +void * +thread_function (void *arg) +{ + int x = (int)arg; + + printf ("Thread <%d> executing\n", x); + + return NULL; +} + +int +main (int argc, char **argv) +{ + pthread_attr_t attr; + pthread_t threads[256]; + int i, j; + + pthread_attr_init (&attr); + + /* Create a ton of quick-executing threads, then wait for them to + complete. */ + for (i = 0; i < 1000; ++i) + { + for (j = 0; j < 256; ++j) + { + pthread_create (&threads[j], &attr, thread_function, + (void *)(i * 1000 + j)); + } + + for (j = 0; j < 256; ++j) + { + pthread_join (threads[j], NULL); + } + } + + pthread_attr_destroy (&attr); + + return 0; +} diff --git a/gdb/testsuite/gdb.threads/manythreads.exp b/gdb/testsuite/gdb.threads/manythreads.exp new file mode 100644 index 00000000000..dcedd7f30b9 --- /dev/null +++ b/gdb/testsuite/gdb.threads/manythreads.exp @@ -0,0 +1,125 @@ +# manythreads.exp -- Expect script to test stopping many threads +# Copyright (C) 2004 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. + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +# This file was written by Jeff Johnston. (jjohnstn@redhat.com) + +if $tracelevel then { + strace $tracelevel +} + +set prms_id 0 +set bug_id 0 + +set testfile "manythreads" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug "incdir=${objdir}"]] != "" } { + return -1 +} + +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} +gdb_test "set print sevenbit-strings" "" +runto_main + +# We'll need this when we send_gdb a ^C to GDB. Need to do it before we +# run the program and gdb starts saving and restoring tty states. +# On Ultrix, we don't need it and it is really slow (because shell_escape +# doesn't use vfork). +if ![istarget "*-*-ultrix*"] then { + gdb_test "shell stty intr '^C'" "" +} + +set message "first continue" +gdb_test_multiple "continue" "first continue" { + -re "error:.*$gdb_prompt $" { + fail "$message" + } + -re "Continuing" { + pass "$message" + } +} + +# Send a Ctrl-C and verify that we can do info threads and continue +after 1000 {send_gdb "\003"} +set message "stop threads 1" +gdb_test_multiple "" "stop threads 1" { + -re "\\\[New \[^\]\]*\\\]\r\n" { + exp_continue + } + -re "\\\[\[^\]\]* exited\\\]\r\n" { + exp_continue + } + -re "Thread \[^\n\]* executing\r\n" { + exp_continue + } + -re "Program received signal SIGINT.*$gdb_prompt $" { + pass "$message" + } + timeout { + fail "$message (timeout)" + } +} + +gdb_test "info threads" ".*1 Thread.*.LWP.*" + +set message "second continue" +gdb_test_multiple "continue" "second continue" { + -re "error:.*$gdb_prompt $" { + fail "$message" + } + -re "Continuing" { + pass "$message" + } +} + +# Send another Ctrl-C and verify that we can do info threads and quit +after 1000 {send_gdb "\003"} +set message "stop threads 2" +gdb_test_multiple "" "stop threads 2" { + -re "\\\[New \[^\]\]*\\\]\r\n" { + exp_continue + } + -re "\\\[\[^\]\]* exited\\\]\r\n" { + exp_continue + } + -re "Thread \[^\n\]* executing\r\n" { + exp_continue + } + -re "Program received signal SIGINT.*$gdb_prompt $" { + pass "stop threads 2" + } +} + +gdb_test_multiple "quit" "GDB exits after stopping multithreaded program" { + -re "The program is running. Exit anyway\\? \\(y or n\\) $" { + send_gdb "y\n" + exp_continue + } + eof { + pass "GDB exits after stopping multithreaded program" + } + timeout { + fail "GDB exits after stopping multithreaded program (timeout)" + } +} + -- 2.30.2