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
|
# SPDX-FileCopyrightText: 2011 - 2012 Free Software Foundation, Inc.
#
# SPDX-License-Identifier: GPL-3.0-or-later
# Specialized subroutines for launching gdb and testing the very first prompt.
#
# start gdb -- start gdb running, prompt procedure
# this procedure differs from the default in that you must pass 'set height 0',
# and 'set width 0', yourself in GDBFLAGS, and it has a gdb_prompt_fail variable,
#
# uses pass if it sees $gdb_prompt, and fail if it sees $gdb_prompt_fail.
#
proc default_prompt_gdb_start { } {
global verbose
global GDB
global INTERNAL_GDBFLAGS GDBFLAGS
global gdb_prompt
global gdb_prompt_fail
global timeout
global gdb_spawn_id;
gdb_stop_suppressing_tests;
verbose "Spawning $GDB $INTERNAL_GDBFLAGS $GDBFLAGS"
if [info exists gdb_spawn_id] {
return 0;
}
if ![is_remote host] {
if { [which $GDB] == 0 } then {
perror "$GDB does not exist."
exit 1
}
}
set res [remote_spawn host "$GDB $INTERNAL_GDBFLAGS $GDBFLAGS [host_info gdb_opts]"];
if { $res < 0 || $res == "" } {
perror "Spawning $GDB failed."
return 1;
}
gdb_expect 360 {
-re ".*$gdb_prompt_fail.*$gdb_prompt_fail.*" {
fail "double prompted fail prompt"
}
-re ".*$gdb_prompt.*$gdb_prompt.*" {
fail "double prompted"
}
-re "\[\r\n\]$gdb_prompt_fail $" {
fail "GDB initializing first prompt"
}
-re "\[\r\n\]$gdb_prompt $" {
pass "GDB initializing first prompt"
}
-re "$gdb_prompt $" {
perror "GDB never initialized."
return -1
}
-re "$gdb_prompt_fail $" {
perror "GDB never initialized."
return -1
}
timeout {
perror "(timeout) GDB never initialized after 10 seconds."
remote_close host;
return -1
}
}
set gdb_spawn_id -1;
return 0;
}
#
# Overridable function. You can override this function in your
# baseboard file.
#
proc prompt_gdb_start { } {
default_prompt_gdb_start
}
|
