proc gcc-dg-target-supports-debug-format { target_compile trivial type } {
global srcdir subdir
+ if {$type == "-gctf" && [istarget *-*-aix*]} { return 0 }
set comp_output [$target_compile \
"$srcdir/$subdir/$trivial" "trivial.S" assembly \
"additional_flags=$type"]
if ![info exists DEBUG_TORTURE_OPTIONS] {
set DEBUG_TORTURE_OPTIONS ""
foreach type {-gctf -gdwarf-2 -gstabs -gstabs+ -gxcoff -gxcoff+} {
- if { $type == "-gctf" } {
- if [expr [gcc-dg-frontend-supports-ctf \
- $target_compile $trivial]] {
- # At this time, running tests with various opt levels or
- # ctf debug info levels does not add value.
- lappend DEBUG_TORTURE_OPTIONS [list "${type}"]
+ if [expr [gcc-dg-target-supports-debug-format \
+ $target_compile $trivial $type]] {
+ if { $type == "-gctf" } {
+ if [expr [gcc-dg-frontend-supports-ctf \
+ $target_compile $trivial]] {
+ # At this time, running tests with various opt levels or
+ # ctf debug info levels does not add value.
+ lappend DEBUG_TORTURE_OPTIONS [list "${type}"]
+ }
+ continue
}
- } else {
- if [expr [gcc-dg-target-supports-debug-format \
- $target_compile $trivial $type]] {
- foreach level {1 "" 3} {
- if { ($type == "-gdwarf-2") && ($level != "") } {
- lappend DEBUG_TORTURE_OPTIONS [list "${type}" "-g${level}"]
- foreach opt $opt_opts {
- lappend DEBUG_TORTURE_OPTIONS \
- [list "${type}" "-g${level}" "$opt" ]
- }
- } else {
- lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
- foreach opt $opt_opts {
- lappend DEBUG_TORTURE_OPTIONS \
- [list "${type}${level}" "$opt" ]
- }
+ foreach level {1 "" 3} {
+ if { ($type == "-gdwarf-2") && ($level != "") } {
+ lappend DEBUG_TORTURE_OPTIONS [list "${type}" "-g${level}"]
+ foreach opt $opt_opts {
+ lappend DEBUG_TORTURE_OPTIONS \
+ [list "${type}" "-g${level}" "$opt" ]
+ }
+ } else {
+ lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
+ foreach opt $opt_opts {
+ lappend DEBUG_TORTURE_OPTIONS \
+ [list "${type}${level}" "$opt" ]
}
}
}