OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.threads/] [multi-create.exp] - Blame information for rev 25

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 jlechner
# multi-create.exp -- Test creating many threads in parallel
2
# Copyright (C) 2007, 2008 Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with this program.  If not, see .
16
 
17
set testfile "multi-create"
18
set srcfile ${testfile}.c
19
set binfile ${objdir}/${subdir}/${testfile}
20
 
21
if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
22
         executable {debug}] != "" } {
23
    return -1
24
}
25
 
26
gdb_start
27
gdb_reinitialize_dir $srcdir/$subdir
28
gdb_load ${binfile}
29
runto_main
30
 
31
# Run to the beginning of create_function several times.  Make sure
32
# we always stop there, and not somewhere else in the guts of the
33
# thread library.
34
 
35
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
36
gdb_breakpoint $srcfile:$bp_location1
37
for {set i 0} {$i < 32} {incr i} {
38
    gdb_test "continue" ".*Breakpoint $decimal,.*$srcfile:$bp_location1.*" \
39
        "continue to breakpoint $i"
40
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.