espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-21 02:24:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

2012-01-16 Pedro Alves <palves@redhat.com>

Browse Source 
* lib/gdb.exp (banned_procedures): New variable.
	(banned_variables_traced): Rename to ...
	(banned_traced): ... this.
	(gdb_init): Also trace banned procedures.
	(gdb_finish): Also untrace banned procedures.
This commit is contained in:
Pedro Alves
2012-01-16 17:31:25 +00:00
parent 97ccebe869
commit abcc497831
2 changed files with 33 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2012-01-16 Pedro Alves <palves@redhat.com>
* lib/gdb.exp (banned_procedures): New variable.
(banned_variables_traced): Rename to ...
(banned_traced): ... this.
(gdb_init): Also trace banned procedures.
(gdb_finish): Also untrace banned procedures.
2012-01-16 Pedro Alves <palves@redhat.com> 2012-01-16 Pedro Alves <palves@redhat.com>
Remove all calls to strace. Remove all calls to strace.

34
gdb/testsuite/lib/gdb.exp
View File

@ -2983,14 +2983,19 @@ if ![info exists gdb_test_timeout] {
# an error when that happens. # an error when that happens.
set banned_variables { bug_id prms_id } set banned_variables { bug_id prms_id }
# A list of procedures that GDB testcases should not use.
# We try to prevent their use by monitoring invocations and raising
# an error when that happens.
set banned_procedures { strace }
# gdb_init is called by runtest at start, but also by several # gdb_init is called by runtest at start, but also by several
# tests directly; gdb_finish is only called from within runtest after # tests directly; gdb_finish is only called from within runtest after
# each test source execution. # each test source execution.
# Placing several traces by repetitive calls to gdb_init leads # Placing several traces by repetitive calls to gdb_init leads
# to problems, as only one trace is removed in gdb_finish. # to problems, as only one trace is removed in gdb_finish.
# To overcome this possible problem, we add a variable that records # To overcome this possible problem, we add a variable that records
# if the banned variables are traced. # if the banned variables and procedures are already traced.
set banned_variables_traced 0 set banned_traced 0
proc gdb_init { args } { proc gdb_init { args } {
# Reset the timeout value to the default. This way, any testcase # Reset the timeout value to the default. This way, any testcase
@ -3000,15 +3005,21 @@ proc gdb_init { args } {
global timeout global timeout
set timeout $gdb_test_timeout set timeout $gdb_test_timeout
# Block writes to all banned variables... # Block writes to all banned variables, and invocation of all
# banned procedures...
global banned_variables global banned_variables
global banned_variables_traced global banned_procedures
if (!$banned_variables_traced) { global banned_traced
if (!$banned_traced) {
foreach banned_var $banned_variables { foreach banned_var $banned_variables {
global "$banned_var" global "$banned_var"
trace add variable "$banned_var" write error trace add variable "$banned_var" write error
} }
set banned_variables_traced 1 foreach banned_proc $banned_procedures {
global "$banned_proc"
trace add execution "$banned_proc" enter error
}
set banned_traced 1
} }
# We set LC_ALL, LC_CTYPE, and LANG to C so that we get the same # We set LC_ALL, LC_CTYPE, and LANG to C so that we get the same
@ -3057,13 +3068,18 @@ proc gdb_finish { } {
# Unblock write access to the banned variables. Dejagnu typically # Unblock write access to the banned variables. Dejagnu typically
# resets some of them between testcases. # resets some of them between testcases.
global banned_variables global banned_variables
global banned_variables_traced global banned_procedures
if ($banned_variables_traced) { global banned_traced
if ($banned_traced) {
foreach banned_var $banned_variables { foreach banned_var $banned_variables {
global "$banned_var" global "$banned_var"
trace remove variable "$banned_var" write error trace remove variable "$banned_var" write error
} }
set banned_variables_traced 0 foreach banned_proc $banned_procedures {
global "$banned_proc"
trace remove execution "$banned_proc" enter error
}
set banned_traced 0
} }
} }