aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib/rocm.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/lib/rocm.exp')
-rw-r--r--gdb/testsuite/lib/rocm.exp2
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/testsuite/lib/rocm.exp b/gdb/testsuite/lib/rocm.exp
index 2276bb3..b2db0d5 100644
--- a/gdb/testsuite/lib/rocm.exp
+++ b/gdb/testsuite/lib/rocm.exp
@@ -112,7 +112,7 @@ set gpu_lock_filename gpu-parallel.lock
# the GPU lock.
proc with_rocm_gpu_lock { body } {
- with_lock $::gpu_lock_filename $body
+ with_lock $::gpu_lock_filename {uplevel 1 $body}
# In case BODY returned early due to some testcase failing, and
# left GDB running, debugging the GPU.