Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 145 lines (127 sloc) 3.872 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145
# step2.exp -- Expect script to test gdb step.c
# Copyright (C) 1992, 1997, 2007, 2008, 2009, 2010
# 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 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/>.

# This file was written by Jeff Law. (law@cygnus.com)
#


if $tracelevel then {
strace $tracelevel
}

set program_exited 0

# A simple and crude test to see that we can step two threads independently
proc test_multi_threaded_stepping {} {
    global gdb_prompt
    global hex
    global srcfile
    global decimal

    # Set breakpoints in code that we know is executed in only
    # thread of control.
    gdb_test "break thread1" \
"Break.* at $hex: file .*$srcfile, line $decimal\\."
    gdb_test "break thread2" \
"Break.* at $hex: file .*$srcfile, line $decimal\\."

    # the order in which things happen is indeterminate. So we basically
    # look for a set of events and note that each one happens and that
    # all of the required events have happened when we're done.
    #
    # Right now we only verify that both threads start and that they
    # both call pthread_cond_wait twice.
    set thread1started 0
    set thread1condwait 0
    set thread2started 0
    set thread2condwait 0
    
    send_gdb "run\n"
    gdb_expect {
-re "The program .* has been started already.*y or n. $" {
send_gdb "y\n"
exp_continue
}
-re ".*Breakpoint \[0-9\]+,.*thread1.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
if { $thread1started != 0 } then {
fail "thread1 started"
return
} else {
set thread1started 1
pass "thread1 started"
}
send_gdb "step\n"
exp_continue
}
-re ".*Breakpoint \[0-9\]+,.*thread2.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
if { $thread2started != 0 } then {
fail "thread2 started"
return
} else {
set thread2started 1
pass "thread2 started"
}
send_gdb "step\n"
exp_continue
}
-re ".*pthread_cond_wait.*cv_a.*$gdb_prompt" {
if { $thread1started == 0 } then {
fail "thread1 condwait"
return
}
if { $thread1condwait < 2 } then {
pass "thread1 condwait"
incr thread1condwait
}
if { $thread2condwait == 2 } then {
pass "multi threaded stepping"
return
}
send_gdb "step\n"
exp_continue
}

-re ".*pthread_cond_wait.*cv_b.*$gdb_prompt" {
if { $thread2started == 0 } then {
fail "thread2 condwait"
return
}
if { $thread2condwait < 2 } then {
pass "thread2 condwait"
incr thread2condwait
}
if { $thread1condwait == 2 } then {
pass "multi threaded stepping"
return
}
send_gdb "step\n"
exp_continue
}

-re "$gdb_prompt" {
send_gdb "step\n"
exp_continue
}
default { fail "multi threaded stepping" }
    }
}

# Check to see if we have an executable to test. If not, then either we
# haven't tried to compile one, or the compilation failed for some reason.
# In either case, just notify the user and skip the tests in this file.

set binfile "step"
set srcfile "step.c"

if ![file exists $objdir/$subdir/$binfile] then {
    if $all_flag then {
warning "$binfile does not exist; tests suppressed."
    }
    return
}


# Start with a fresh gdb.

gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $objdir/$subdir/$binfile

test_multi_threaded_stepping
Something went wrong with that request. Please try again.