-# Copyright 2010-2019 Free Software Foundation, Inc.
+# Copyright 2010-2024 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
global inferior_spawn_id
global gdb_spawn_id
-if ![istarget *-linux*] {
- continue
-}
+require {istarget *-linux*}
# In remote mode we cannot use the 'set args' command, and this
# test requires it.
-if { [target_info exists gdb_protocol] } then {
- if { [target_info gdb_protocol] == "remote" } then {
- continue
+if {[target_info exists gdb_protocol]} {
+ if {[target_info gdb_protocol] == "remote"} {
+ return
}
}
# Use conditional compilation according to `BIN' as GDB remembers the source
# file name of the breakpoint.
-set opts [list debug additional_flags=-fPIE ldflags=-pie]
+set opts [list debug pie]
if {[build_executable ${testfile}.exp $executable1 $srcfile [concat $opts {additional_flags=-DBIN=1}]] == -1
|| [build_executable ${testfile}.exp $executable2 $srcfile [concat $opts {additional_flags=-DBIN=2}]] == -1} {
return -1
delete_breakpoints
gdb_breakpoint "pie_execl_marker"
-gdb_test "info breakpoints" ".*" ""
+gdb_test "info breakpoints" "" "info breakpoints first"
set addr1 ""
set test "pie_execl_marker address first"
}
}
-gdb_test "info breakpoints" ".*" ""
+gdb_test "info breakpoints" "" "info breakpoints second"
set addr2 ""
set test "pie_execl_marker address second"