#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# Please email any bugs, comments, and/or additions to this file to:
# gcc-patches@gcc.gnu.org
|| [istarget cris-*-*]
|| [istarget h8300-*-*]
|| [istarget mips*-*-elf]
+ || [istarget xtensa-*-elf]
|| [istarget *-*-windiss] } {
set profiling_available_saved 0
} else {
return $answer
}
+# Return 1 if the target supports Fortran real kinds larger than real(8),
+# 0 otherwise.
+#
+# When the target name changes, replace the cached result.
+
+proc check_effective_target_fortran_large_real { } {
+ global et_fortran_large_real_saved
+ global et_fortran_large_real_target_name
+ global tool
+
+ if { ![info exists et_fortran_large_real_target_name] } {
+ set et_fortran_large_real_target_name ""
+ }
+
+ # If the target has changed since we set the cached value, clear it.
+ set current_target [current_target_name]
+ if { $current_target != $et_fortran_large_real_target_name } {
+ verbose "check_effective_target_fortran_large_real: `$et_fortran_large_real_target_name' `$current_target'" 2
+ set et_fortran_large_real_target_name $current_target
+ if [info exists et_fortran_large_real_saved] {
+ verbose "check_effective_target_fortran_large_real: removing cached result" 2
+ unset et_fortran_large_real_saved
+ }
+ }
+
+ if [info exists et_fortran_large_real_saved] {
+ verbose "check_effective_target_fortran_large_real returning saved $et_fortran_large_real_saved" 2
+ } else {
+ set et_fortran_large_real_saved 0
+
+ # Set up, compile, and execute a test program using large real
+ # kinds. Include the current process ID in the file names to
+ # prevent conflicts with invocations for multiple testsuites.
+ set src real[pid].f90
+ set exe real[pid].x
+
+ set f [open $src "w"]
+ puts $f "integer,parameter :: k = &"
+ puts $f " selected_real_kind (precision (0.0_8) + 1)"
+ puts $f "real(kind=k) :: x"
+ puts $f "end"
+ close $f
+
+ verbose "check_effective_target_fortran_large_real compiling testfile $src" 2
+ set lines [${tool}_target_compile $src $exe executable ""]
+ file delete $src
+
+ if [string match "" $lines] then {
+ # No error message, compilation succeeded.
+ set et_fortran_large_real_saved 1
+ }
+ }
+
+ return $et_fortran_large_real_saved
+}
+
+# Return 1 if the target supports Fortran integer kinds larger than
+# integer(8), 0 otherwise.
+#
+# When the target name changes, replace the cached result.
+
+proc check_effective_target_fortran_large_int { } {
+ global et_fortran_large_int_saved
+ global et_fortran_large_int_target_name
+ global tool
+
+ if { ![info exists et_fortran_large_int_target_name] } {
+ set et_fortran_large_int_target_name ""
+ }
+
+ # If the target has changed since we set the cached value, clear it.
+ set current_target [current_target_name]
+ if { $current_target != $et_fortran_large_int_target_name } {
+ verbose "check_effective_target_fortran_large_int: `$et_fortran_large_int_target_name' `$current_target'" 2
+ set et_fortran_large_int_target_name $current_target
+ if [info exists et_fortran_large_int_saved] {
+ verbose "check_effective_target_fortran_large_int: removing cached result" 2
+ unset et_fortran_large_int_saved
+ }
+ }
+
+ if [info exists et_fortran_large_int_saved] {
+ verbose "check_effective_target_fortran_large_int returning saved $et_fortran_large_int_saved" 2
+ } else {
+ set et_fortran_large_int_saved 0
+
+ # Set up, compile, and execute a test program using large integer
+ # kinds. Include the current process ID in the file names to
+ # prevent conflicts with invocations for multiple testsuites.
+ set src int[pid].f90
+ set exe int[pid].x
+
+ set f [open $src "w"]
+ puts $f "integer,parameter :: k = &"
+ puts $f " selected_int_kind (range (0_8) + 1)"
+ puts $f "integer(kind=k) :: i"
+ puts $f "end"
+ close $f
+
+ verbose "check_effective_target_fortran_large_int compiling testfile $src" 2
+ set lines [${tool}_target_compile $src $exe executable ""]
+ file delete $src
+
+ if [string match "" $lines] then {
+ # No error message, compilation succeeded.
+ set et_fortran_large_int_saved 1
+ }
+ }
+
+ return $et_fortran_large_int_saved
+}
+
# Return 1 if the target supports executing AltiVec instructions, 0
# otherwise. Cache the result.
return $alpha_max_hw_available_saved
}
+# Returns true iff the FUNCTION is available on the target system.
+# (This is essentially a Tcl implementation of Autoconf's
+# AC_CHECK_FUNC.)
+
+proc check_function_available { function } {
+ set var "${function}_available_saved"
+ global $var
+ global tool
+
+ if {![info exists $var]} {
+ # Assume it exists.
+ set $var 1
+ # Check to make sure.
+ set src "function[pid].c"
+ set exe "function[pid].exe"
+
+ set f [open $src "w"]
+ puts $f "int main () { $function (); }"
+ close $f
+
+ set lines [${tool}_target_compile $src $exe executable ""]
+ file delete $src
+ file delete $exe
+
+ if {![string match "" $lines]} then {
+ set $var 0
+ verbose -log "$function is not available"
+ } else {
+ verbose -log "$function is available"
+ }
+ }
+
+ eval return \$$var
+}
+
+# Returns true iff "fork" is available on the target system.
+
+proc check_fork_available {} {
+ return [check_function_available "fork"]
+}
+
+# Returns true iff "mkfifo" is available on the target system.
+
+proc check_mkfifo_available {} {
+ if {[istarget *-*-cygwin*]} {
+ # Cygwin has mkfifo, but support is incomplete.
+ return 0
+ }
+
+ return [check_function_available "mkfifo"]
+}
+
# Return 1 if we're generating 32-bit code using default options, 0
# otherwise.
#
return $et_lp64_saved
}
+# Return 1 if the target needs a command line argument to enable a SIMD
+# instruction set.
+#
+# This won't change for different subtargets so cache the result.
+
+proc check_effective_target_vect_cmdline_needed { } {
+ global et_vect_cmdline_needed_saved
+
+ if [info exists et_vect_cmdline_needed_saved] {
+ verbose "check_effective_target_vect_cmdline_needed: using cached result" 2
+ } else {
+ set et_vect_cmdline_needed_saved 1
+ if { [istarget ia64-*-*]
+ || [istarget x86_64-*-*] } {
+ set et_vect_cmdline_needed_saved 0
+ }
+ }
+
+ verbose "check_effective_target_vect_cmdline_needed: returning $et_vect_cmdline_needed_saved" 2
+ return $et_vect_cmdline_needed_saved
+}
+
# Return 1 if the target supports hardware vectors of int, 0 otherwise.
#
# This won't change for different subtargets so cache the result.
return $et_vect_int_saved
}
+# Return 1 is this is an arm target using 32-bit instructions
+proc check_effective_target_arm32 { } {
+ global et_arm32_saved
+ global et_arm32_target_name
+ global compiler_flags
+
+ if { ![info exists et_arm32_target_name] } {
+ set et_arm32_target_name ""
+ }
+
+ # If the target has changed since we set the cached value, clear it.
+ set current_target [current_target_name]
+ if { $current_target != $et_arm32_target_name } {
+ verbose "check_effective_target_arm32: `$et_arm32_target_name' `$current_target'" 2
+ set et_arm32_target_name $current_target
+ if { [info exists et_arm32_saved] } {
+ verbose "check_effective_target_arm32: removing cached result" 2
+ unset et_arm32_saved
+ }
+ }
+
+ if [info exists et_arm32_saved] {
+ verbose "check-effective_target_arm32: using cached result" 2
+ } else {
+ set et_arm32_saved 0
+ if { [istarget arm-*-*]
+ || [istarget strongarm*-*-*]
+ || [istarget xscale-*-*] } {
+ if ![string match "*-mthumb *" $compiler_flags] {
+ set et_arm32_saved 1
+ }
+ }
+ }
+ verbose "check_effective_target_arm32: returning $et_arm32_saved" 2
+ return $et_arm32_saved
+}
+
# Return 1 if the target supports hardware vector shift operation.
proc check_effective_target_vect_shift { } {
- if { [istarget powerpc*-*-*] } {
- set answer 1
+ global et_vect_shift_saved
+
+ if [info exists et_vect_shift_saved] {
+ verbose "check_effective_target_vect_shift: using cached result" 2
} else {
- set answer 0
+ set et_vect_shift_saved 0
+ if { [istarget powerpc*-*-*]
+ || [istarget ia64-*-*]
+ || [istarget i?86-*-*]
+ || [istarget x86_64-*-*] } {
+ set et_vect_shift_saved 1
+ }
}
- verbose "check_effective_target_vect_shift: returning $answer" 2
- return $answer
+ verbose "check_effective_target_vect_shift: returning $et_vect_shift_saved" 2
+ return $et_vect_shift_saved
}
# Return 1 if the target supports hardware vectors of long, 0 otherwise.
}
# Return 1 if the target plus current options does not support a vector
-# max instruction, 0 otherwise.
+# max instruction on "int", 0 otherwise.
#
# This won't change for different subtargets so cache the result.
-proc check_effective_target_vect_no_max { } {
- global et_vect_no_max_saved
+proc check_effective_target_vect_no_int_max { } {
+ global et_vect_no_int_max_saved
- if [info exists et_vect_no_max_saved] {
- verbose "check_effective_target_vect_no_max: using cached result" 2
+ if [info exists et_vect_no_int_max_saved] {
+ verbose "check_effective_target_vect_no_int_max: using cached result" 2
} else {
- set et_vect_no_max_saved 0
- if { [istarget i?86-*-*]
- || [istarget x86_64-*-*]
- || [istarget sparc*-*-*]
+ set et_vect_no_int_max_saved 0
+ if { [istarget sparc*-*-*]
|| [istarget alpha*-*-*] } {
- set et_vect_no_max_saved 1
+ set et_vect_no_int_max_saved 1
+ }
+ }
+ verbose "check_effective_target_vect_no_int_max: returning $et_vect_no_int_max_saved" 2
+ return $et_vect_no_int_max_saved
+}
+
+# Return 1 if the target plus current options does not support a vector
+# add instruction on "int", 0 otherwise.
+#
+# This won't change for different subtargets so cache the result.
+
+proc check_effective_target_vect_no_int_add { } {
+ global et_vect_no_int_add_saved
+
+ if [info exists et_vect_no_int_add_saved] {
+ verbose "check_effective_target_vect_no_int_add: using cached result" 2
+ } else {
+ set et_vect_no_int_add_saved 0
+ # Alpha only supports vector add on V8QI and V4HI.
+ if { [istarget alpha*-*-*] } {
+ set et_vect_no_int_add_saved 1
}
}
- verbose "check_effective_target_vect_no_max: returning $et_vect_no_max_saved" 2
- return $et_vect_no_max_saved
+ verbose "check_effective_target_vect_no_int_add: returning $et_vect_no_int_add_saved" 2
+ return $et_vect_no_int_add_saved
}
# Return 1 if the target plus current options does not support vector
proc check_effective_target_vect_condition { } {
global et_vect_cond_saved
- if [info exists et_vect_int_cond] {
+ if [info exists et_vect_cond_saved] {
verbose "check_effective_target_vect_cond: using cached result" 2
} else {
set et_vect_cond_saved 0
- if { [istarget powerpc*-*-*] } {
+ if { [istarget powerpc*-*-*]
+ || [istarget ia64-*-*]
+ || [istarget i?86-*-*]
+ || [istarget x86_64-*-*] } {
set et_vect_cond_saved 1
}
}
return $et_vect_cond_saved
}
+# Return 1 if the target supports vector int multiplication, 0 otherwise.
+
+proc check_effective_target_vect_int_mult { } {
+ global et_vect_int_mult_saved
+
+ if [info exists et_vect_int_mult_saved] {
+ verbose "check_effective_target_vect_int_mult: using cached result" 2
+ } else {
+ set et_vect_int_mult_saved 0
+ if { [istarget powerpc*-*-*]
+ || [istarget i?86-*-*]
+ || [istarget x86_64-*-*] } {
+ set et_vect_int_mult_saved 1
+ }
+ }
+
+ verbose "check_effective_target_vect_int_mult: returning $et_vect_int_mult_saved" 2
+ return $et_vect_int_mult_saved
+}
+
+# Return 1 if the target supports atomic operations on "int" and "long".
+
+proc check_effective_target_sync_int_long { } {
+ global et_sync_int_long_saved
+
+ if [info exists et_sync_int_long_saved] {
+ verbose "check_effective_target_sync_int_long: using cached result" 2
+ } else {
+ set et_sync_int_long_saved 0
+# This is intentionally powerpc but not rs6000, rs6000 doesn't have the
+# load-reserved/store-conditional instructions.
+ if { [istarget ia64-*-*]
+ || [istarget i?86-*-*]
+ || [istarget x86_64-*-*]
+ || [istarget alpha*-*-*]
+ || [istarget s390*-*-*]
+ || [istarget powerpc*-*-*] } {
+ set et_sync_int_long_saved 1
+ }
+ }
+
+ verbose "check_effective_target_sync_int_long: returning $et_sync_int_long_saved" 2
+ return $et_sync_int_long_saved
+}
+
+# Return 1 if the target supports atomic operations on "char" and "short".
+
+proc check_effective_target_sync_char_short { } {
+ global et_sync_char_short_saved
+
+ if [info exists et_sync_char_short_saved] {
+ verbose "check_effective_target_sync_char_short: using cached result" 2
+ } else {
+ set et_sync_char_short_saved 0
+# This is intentionally powerpc but not rs6000, rs6000 doesn't have the
+# load-reserved/store-conditional instructions.
+ if { [istarget ia64-*-*]
+ || [istarget i?86-*-*]
+ || [istarget x86_64-*-*]
+ || [istarget alpha*-*-*]
+ || [istarget powerpc*-*-*] } {
+ set et_sync_char_short_saved 1
+ }
+ }
+
+ verbose "check_effective_target_sync_char_short: returning $et_sync_char_short_saved" 2
+ return $et_sync_char_short_saved
+}
# Return 1 if the target matches the effective target 'arg', 0 otherwise.
# This can be used with any check_* proc that takes no argument and