blob: 07c732d42d52cdb8e764b174c07fe69495fcd120 (
plain)
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
|
# Copyright 2015 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/>. */
# Test gdb checkpoint and restart in non-stop mode.
# We drive non-stop mode from a separate file because the whole test
# takes a while to run. This way, we can test both modes in parallel.
# Run BODY in the context of the caller, with EXTRA_GDBFLAGS appended
# to the global GDBFLAGS. Returns the result of BODY.
#
proc with_extra_gdbflags { extra_gdbflags body } {
global GDBFLAGS
set saved_gdbflags $GDBFLAGS
append GDBFLAGS $extra_gdbflags
set code [catch {uplevel 1 $body} result]
set GDBFLAGS $saved_gdbflags
if {$code == 1} {
global errorInfo errorCode
return -code $code -errorinfo $errorInfo -errorcode $errorCode $result
} else {
return -code $code $result
}
}
# Wrap with with_extra_gdbflags to restore GDBFLAGS, as otherwise a
# continue/return from the sourced script would return straight to our
# caller.
with_extra_gdbflags " -ex \"set non-stop on\"" {
source $srcdir/$subdir/checkpoint.exp
}
|