~ubuntu-branches/debian/jessie/gdb/jessie

« back to all changes in this revision

Viewing changes to gdb/testsuite/gdb.trace/passc-dyn.exp

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Jacobowitz
  • Date: 2010-03-20 01:21:29 UTC
  • mfrom: (1.3.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20100320012129-t7h25y8zgr8c2369
Tags: 7.1-1
* New upstream release, including:
  - PIE support (Closes: #346409).
  - C++ improvements, including static_cast<> et al, namespace imports,
    and bug fixes in printing virtual base classes.
  - Multi-program debugging.  One GDB can now debug multiple programs
    at the same time.
  - Python scripting improvements, including gdb.parse_and_eval.
  - Updated MIPS Linux signal frame layout (Closes: #570875).
  - No internal error stepping over _dl_debug_state (Closes: #569551).
* Update to Standards-Version: 3.8.4 (no changes required).
* Include more relevant (and smaller) docs in the gdbserver package
  (Closes: #571132).
* Do not duplicate documentation in gdb64, gdb-source, and libgdb-dev.
* Fix crash when switching into TUI mode (Closes: #568489).

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#   Copyright 1998, 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
 
1
#   Copyright 1998, 2005, 2007, 2008, 2009, 2010
 
2
#   Free Software Foundation, Inc.
2
3
#
3
4
# This program is free software; you can redistribute it and/or modify
4
5
# it under the terms of the GNU General Public License as published by
26
27
 
27
28
gdb_exit
28
29
gdb_start
29
 
if [istarget "m68k-*-elf"] then {
30
 
    load_lib "emc-support.exp";
31
 
    set srcfile gdb_c_test.c
32
 
    set binfile [board_info target d490_binfile];
33
 
    gdb_test "set remotetimeout 6" "" ""
34
 
    set timeout 500
35
 
    gdb_target_monitor $binfile
36
 
    # Give a TSTOP and ignore errors, to make sure any previous trace is off
37
 
    gdb_test "tstop" "" ""
38
 
    gdb_test "tfind none" "" ""
39
 
    send_gdb "compare-sections CS\n"
40
 
    gdb_expect {
41
 
        -re "MIS-MATCHED.*$gdb_prompt $" {
42
 
            untested passc-dyn.exp
43
 
            return -1
44
 
            all tests in this module will fail.";
45
 
        }
46
 
        -re ".*$gdb_prompt $" { }
47
 
    }
48
 
} else {
49
 
    set testfile "actions"
50
 
    set srcfile ${testfile}.c
51
 
    set binfile $objdir/$subdir/passc-dyn
52
 
    if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
53
 
            executable {debug nowarnings}] != "" } {
54
 
        untested passc-dyn.exp
55
 
        return -1
56
 
    }
57
 
    gdb_load $binfile
58
 
    gdb_test "tstop"       "" ""
59
 
    gdb_test "tfind none"  "" ""
60
 
    runto_main
 
30
set testfile "actions"
 
31
set srcfile ${testfile}.c
 
32
set binfile $objdir/$subdir/passc-dyn
 
33
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
 
34
          executable {debug nowarnings}] != "" } {
 
35
    untested passc-dyn.exp
 
36
    return -1
61
37
}
 
38
gdb_load $binfile
 
39
gdb_test "tstop"       "" ""
 
40
gdb_test "tfind none"  "" ""
 
41
runto_main
62
42
gdb_reinitialize_dir $srcdir/$subdir
63
43
 
64
44
# We generously give ourselves one "pass" if we successfully 
117
97
 
118
98
gdb_test "tstart" "" ""
119
99
 
120
 
if [istarget "m68k-*-elf"] then {
121
 
    gdb_emclaptop_command "85,1,2,3,4,5,6"
122
 
    sleep 5
123
 
    gdb_emclaptop_command "85,7,8,9,A,B,C"
124
 
    sleep 5
125
 
    gdb_emclaptop_command "85,D,E,F,10,11,12"
126
 
    sleep 5
127
 
    # gdb_test "tstop"
128
 
    ##
129
 
    ## Note! Must NOT give the tstop command, because the passcount
130
 
    ##       has already stopped the experiment.  You would not
131
 
    ##       think this would be an error, but in EMC's mind it is...
132
 
    ##
133
 
} else {
134
 
    gdb_test "break end" "" ""
135
 
    gdb_test "continue" \
136
 
            "Continuing.*Breakpoint $decimal, end.*" \
137
 
            "run trace experiment"
138
 
    gdb_test "tstop" "" ""
139
 
}
 
100
gdb_test "break end" "" ""
 
101
gdb_test "continue" \
 
102
    "Continuing.*Breakpoint $decimal, end.*" \
 
103
    "run trace experiment"
 
104
gdb_test "tstop" "" ""
140
105
 
141
106
gdb_test "tfind none" "" ""
142
107
if [gdb_test "printf \"x \%d x\\n\", \$trace_frame" "x -1 x" ""] {