[PATCH 1/3] ld/testsuite: centralize board_cflags and board_ldflags
Alan Modra
amodra@gmail.com
Tue Jan 7 10:45:23 GMT 2025
On Mon, Jan 06, 2025 at 02:28:28PM +0100, Clément Chigot wrote:
> Those flags are retrieving the CFLAGS or LDFLAGS defined by the dejagnu
> board. The same pattern was repeated many times.
OK, thanks this looks good.
> ---
> ld/testsuite/ld-unique/unique.exp | 14 +---
> ld/testsuite/lib/ld-lib.exp | 133 +++++++++---------------------
> 2 files changed, 40 insertions(+), 107 deletions(-)
>
> diff --git a/ld/testsuite/ld-unique/unique.exp b/ld/testsuite/ld-unique/unique.exp
> index 5987263402d..855e25509fd 100644
> --- a/ld/testsuite/ld-unique/unique.exp
> +++ b/ld/testsuite/ld-unique/unique.exp
> @@ -116,20 +116,10 @@ if ![ld_compile "$CC_FOR_TARGET -c" "$srcdir/$subdir/unique_empty.s" "tmpdir/uni
> # When using GCC as the linker driver, we need to specify board cflags when
> # linking because cflags may contain linker options. For example when linker
> # options are included in GCC spec files then we need the -specs option.
> -if [board_info [target_info name] exists cflags] {
> - set board_cflags " [board_info [target_info name] cflags]"
> -} else {
> - set board_cflags ""
> -}
> -
> -if [board_info [target_info name] exists ldflags] {
> - set board_ldflags " [board_info [target_info name] ldflags]"
> -} else {
> - set board_ldflags ""
> -}
> +set board_flags [get_board_flags]
>
> # Create executable containing unique symbol.
> -if ![ld_link "$CC_FOR_TARGET $NOPIE_LDFLAGS $board_cflags $board_ldflags" "tmpdir/unique_prog" "tmpdir/unique.o"] {
> +if ![ld_link "$CC_FOR_TARGET $NOPIE_LDFLAGS $board_flags" "tmpdir/unique_prog" "tmpdir/unique.o"] {
> fail "Could not link a unique executable"
> set fails [expr $fails + 1]
> }
> diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
> index 6182d3e066a..bd2dd50ae47 100644
> --- a/ld/testsuite/lib/ld-lib.exp
> +++ b/ld/testsuite/lib/ld-lib.exp
> @@ -177,6 +177,28 @@ proc is_endian_output_format { object_flags } {
> }
> }
>
> +# Return flags as defined within board_info
> +#
> +proc get_board_flags {} {
> + global board_cflags
> + global board_ldflags
> +
> + if [board_info [target_info name] exists cflags] {
> + set board_cflags " [board_info [target_info name] cflags]"
> + } else {
> + set board_cflags ""
> + }
> +
> + if [board_info [target_info name] exists ldflags] {
> + set board_ldflags " [board_info [target_info name] ldflags]"
> + } else {
> + set board_ldflags ""
> + }
> +
> + return "$board_cflags $board_ldflags"
> +}
> +
> +
> # Link a program using ld
> #
> proc default_ld_link { ld target objects } {
> @@ -677,25 +699,13 @@ proc run_ld_link_exec_tests { ldtests args } {
> global CXX_FOR_TARGET
> global errcnt
> global exec_output
> - global board_cflags
> - global board_ldflags
> global STATIC_LDFLAGS
>
> # When using GCC as the linker driver, we need to specify board cflags when
> # linking because cflags may contain linker options. For example when
> # linker options are included in GCC spec files then we need the -specs
> # option.
> - if [board_info [target_info name] exists cflags] {
> - set board_cflags " [board_info [target_info name] cflags]"
> - } else {
> - set board_cflags ""
> - }
> -
> - if [board_info [target_info name] exists ldflags] {
> - set board_ldflags " [board_info [target_info name] ldflags]"
> - } else {
> - set board_ldflags ""
> - }
> + set board_flags [get_board_flags]
>
> foreach testitem $ldtests {
> set testname [lindex $testitem 0]
> @@ -777,11 +787,11 @@ proc run_ld_link_exec_tests { ldtests args } {
> continue;
> } else {
> if { [string match "" $STATIC_LDFLAGS] \
> - && [regexp -- ".* \[-\]+static .*" " $board_cflags $board_ldflags $ld_options $objfiles $ld_after "] } {
> + && [regexp -- ".* \[-\]+static .*" " $board_flags $ld_options $objfiles $ld_after "] } {
> untested $testname
> continue
> }
> - if ![$link_proc $link_cmd $binfile "$board_cflags $board_ldflags -L$srcdir/$subdir $ld_options $objfiles $ld_after"] {
> + if ![$link_proc $link_cmd $binfile "$board_flags -L$srcdir/$subdir $ld_options $objfiles $ld_after"] {
> set failed 1
> }
> }
> @@ -855,21 +865,9 @@ proc run_cc_link_tests { ldtests } {
> global CXX_FOR_TARGET
> global ar
> global exec_output
> - global board_cflags
> - global board_ldflags
> global STATIC_LDFLAGS
>
> - if [board_info [target_info name] exists cflags] {
> - set board_cflags " [board_info [target_info name] cflags]"
> - } else {
> - set board_cflags ""
> - }
> -
> - if [board_info [target_info name] exists ldflags] {
> - set board_ldflags " [board_info [target_info name] ldflags]"
> - } else {
> - set board_ldflags ""
> - }
> + set board_flags [get_board_flags]
>
> foreach testitem $ldtests {
> set testname [lindex $testitem 0]
> @@ -978,11 +976,11 @@ proc run_cc_link_tests { ldtests } {
> }
> } else {
> if { [string match "" $STATIC_LDFLAGS] \
> - && [regexp -- ".* \[-\]+static .*" " $board_cflags $board_ldflags $ldflags $objfiles "] } {
> + && [regexp -- ".* \[-\]+static .*" " $board_flags $ldflags $objfiles "] } {
> untested $testname
> continue
> }
> - ld_link $cc_cmd $binfile "$board_cflags $board_ldflags -L$srcdir/$subdir $ldflags $objfiles"
> + ld_link $cc_cmd $binfile "$board_flags -L$srcdir/$subdir $ldflags $objfiles"
> set ld_output "$exec_output"
>
> if { $check_ld(source) == "regexp" } then {
> @@ -1113,8 +1111,8 @@ proc check_gc_sections_available { } {
>
> # elf2flt uses -q (--emit-relocs), which is incompatible with
> # --gc-sections.
> - if { [board_info target exists ldflags]
> - && [regexp " -elf2flt\[ =\]" " [board_info target ldflags] "] } {
> + set board_flags [get_board_flags]
> + if { [regexp " (-Wl,)*-elf2flt\[ =\]" " $board_flags "] } {
> set gc_sections_available_saved 0
> return 0
> }
> @@ -1227,14 +1225,7 @@ proc check_compiler_available { } {
> return 0
> }
>
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/compiler[pid]"
> set src ${basename}.c
> set output ${basename}.out
> @@ -1300,14 +1291,7 @@ proc check_lto_available { } {
> return 1
> }
> # Check if gcc supports -flto -fuse-linker-plugin
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/lto[pid]"
> set src ${basename}.c
> set output ${basename}.out
> @@ -1343,14 +1327,7 @@ proc check_lto_fat_available { } {
> return 1
> }
> # Check if gcc supports -flto -fuse-linker-plugin
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/lto[pid]"
> set src ${basename}.c
> set output ${basename}.out
> @@ -1386,14 +1363,7 @@ proc check_lto_shared_available { } {
> return 1
> }
> # Check if gcc supports -flto -fuse-linker-plugin -shared
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/lto_shared[pid]"
> set src ${basename}.c
> set output ${basename}.so
> @@ -1445,14 +1415,7 @@ proc check_ifunc_available { } {
> return 0
> }
> # Check if gcc supports -flto -fuse-linker-plugin
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/ifunc[pid]"
> set src ${basename}.c
> set output ${basename}.out
> @@ -1494,14 +1457,7 @@ proc check_ifunc_attribute_available { } {
> return 0
> }
> # Check if gcc supports -flto -fuse-linker-plugin
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags [get_board_flags]
> set basename "tmpdir/ifunc[pid]"
> set src ${basename}.c
> set output ${basename}.out
> @@ -1577,14 +1533,7 @@ proc check_gnu2_tls_available { } {
> return 0
> }
> # Check if GNU2 TLS works.
> - set flags "$GNU2_CFLAGS"
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> -
> + set flags "$GNU2_CFLAGS [get_board_flags]"
> set basename "tmpdir/gnu2_tls[pid]"
> set src1 ${basename}1.c
> set output1 ${basename}.so
> @@ -1633,13 +1582,7 @@ proc compile_one_cc { src output additional_flags } {
> global CC_FOR_TARGET
> global CFLAGS_FOR_TARGET
>
> - set flags ""
> - if [board_info [target_info name] exists cflags] {
> - append flags " [board_info [target_info name] cflags]"
> - }
> - if [board_info [target_info name] exists ldflags] {
> - append flags " [board_info [target_info name] ldflags]"
> - }
> + set flags [get_board_flags]
>
> if [is_remote host] {
> set src [remote_download host $src]
> --
> 2.34.1
--
Alan Modra
More information about the Binutils
mailing list