libgomp/testsuite/lib/libgomp.exp

   1 # Damn dejagnu for not having proper library search paths for load_lib.
   2 # We have to explicitly load everything that gcc-dg.exp wants to load.
   3
   4 proc load_gcc_lib { filename } {
   5     global srcdir loaded_libs
   6
   7     load_file $srcdir/../../gcc/testsuite/lib/$filename
   8     set loaded_libs($filename) ""
   9 }
  10
  11 load_lib dg.exp
  12
  13 # Required to use gcc-dg.exp - however, the latter should NOT be
  14 # loaded until ${tool}_target_compile is defined since it uses that
  15 # to determine default LTO options.
  16
  17 load_gcc_lib prune.exp
  18 load_gcc_lib target-libpath.exp
  19 load_gcc_lib wrapper.exp
  20 load_gcc_lib gcc-defs.exp
  21 load_gcc_lib timeout.exp
  22 load_gcc_lib target-supports.exp
  23 load_gcc_lib file-format.exp
  24 load_gcc_lib target-supports-dg.exp
  25 load_gcc_lib scanasm.exp
  26 load_gcc_lib scandump.exp
  27 load_gcc_lib scanrtl.exp
  28 load_gcc_lib scantree.exp
  29 load_gcc_lib scanipa.exp
  30 load_gcc_lib timeout-dg.exp
  31 load_gcc_lib torture-options.exp
  32 load_gcc_lib fortran-modules.exp
  33
  34 set dg-do-what-default run
  35
  36 #
  37 # GCC_UNDER_TEST is the compiler under test.
  38 #
  39
  40 set libgomp_compile_options ""
  41
  42 #
  43 # libgomp_init
  44 #
  45
  46 if [info exists TOOL_OPTIONS] {
  47     set multilibs [get_multilibs $TOOL_OPTIONS]
  48 } else {
  49     set multilibs [get_multilibs]
  50 }
  51
  52 proc libgomp_init { args } {
  53     global srcdir blddir objdir tool_root_dir
  54     global libgomp_initialized
  55     global tmpdir
  56     global blddir
  57     global gluefile wrap_flags
  58     global ALWAYS_CFLAGS
  59     global CFLAGS
  60     global TOOL_EXECUTABLE TOOL_OPTIONS
  61     global GCC_UNDER_TEST
  62     global TESTING_IN_BUILD_TREE
  63     global target_triplet
  64     global always_ld_library_path
  65
  66     set blddir [lookfor_file [get_multilibs] libgomp]
  67
  68     # We set LC_ALL and LANG to C so that we get the same error
  69     # messages as expected.
  70     setenv LC_ALL C
  71     setenv LANG C
  72
  73     # Many hosts now default to a non-ASCII C locale, however, so
  74     # they can set a charset encoding here if they need.
  75     if { [ishost "*-*-cygwin*"] } {
  76       setenv LC_ALL C.ASCII
  77       setenv LANG C.ASCII
  78     }
  79
  80     if ![info exists GCC_UNDER_TEST] then {
  81         if [info exists TOOL_EXECUTABLE] {
  82             set GCC_UNDER_TEST $TOOL_EXECUTABLE
  83         } else {
  84             set GCC_UNDER_TEST "[find_gcc]"
  85         }
  86     }
  87
  88     if ![info exists tmpdir] {
  89         set tmpdir "/tmp"
  90     }
  91
  92     if [info exists gluefile] {
  93         unset gluefile
  94     }
  95
  96     if {![info exists CFLAGS]} {
  97         set CFLAGS ""
  98     }
  99
 100     # Locate libgcc.a so we don't need to account for different values of
 101     # SHLIB_EXT on different platforms
 102     set gccdir [lookfor_file $tool_root_dir gcc/libgcc.a]
 103     if {$gccdir != ""} {
 104         set gccdir [file dirname $gccdir]
 105     }
 106
 107     # Compute what needs to be put into LD_LIBRARY_PATH
 108     set always_ld_library_path ".:${blddir}/.libs"
 109
 110     # Compute what needs to be added to the existing LD_LIBRARY_PATH.
 111     if {$gccdir != ""} {
 112         # Add AIX pthread directory first.
 113         if { [llength [glob -nocomplain ${gccdir}/pthread/libgcc_s*.a]] >= 1 } {
 114             append always_ld_library_path ":${gccdir}/pthread"
 115         }
 116         append always_ld_library_path ":${gccdir}"
 117         set compiler [lindex $GCC_UNDER_TEST 0]
 118
 119         if { [is_remote host] == 0 && [which $compiler] != 0 } {
 120           foreach i "[exec $compiler --print-multi-lib]" {
 121             set mldir ""
 122             regexp -- "\[a-z0-9=_/\.-\]*;" $i mldir
 123             set mldir [string trimright $mldir "\;@"]
 124             if { "$mldir" == "." } {
 125               continue
 126             }
 127             if { [llength [glob -nocomplain ${gccdir}/${mldir}/libgcc_s*.so.*]] >= 1 } {
 128               append always_ld_library_path ":${gccdir}/${mldir}"
 129             }
 130           }
 131         }
 132     }
 133
 134     set ALWAYS_CFLAGS ""
 135     if { $blddir != "" } {
 136         lappend ALWAYS_CFLAGS "additional_flags=-B${blddir}/"
 137         # targets that use libgomp.a%s in their specs need a -B option
 138         # for uninstalled testing.
 139         lappend ALWAYS_CFLAGS "additional_flags=-B${blddir}/.libs"
 140         lappend ALWAYS_CFLAGS "additional_flags=-I${blddir}"
 141         lappend ALWAYS_CFLAGS "ldflags=-L${blddir}/.libs"
 142     }
 143     lappend ALWAYS_CFLAGS "additional_flags=-I${srcdir}/.."
 144
 145     # We use atomic operations in the testcases to validate results.
 146     if { ([istarget i?86-*-*] || [istarget x86_64-*-*])
 147          && [check_effective_target_ia32] } {
 148         lappend ALWAYS_CFLAGS "additional_flags=-march=i486"
 149     }
 150
 151     if [istarget *-*-darwin*] {
 152         lappend ALWAYS_CFLAGS "additional_flags=-shared-libgcc"
 153     }
 154
 155     if [istarget sparc*-*-*] {
 156         lappend ALWAYS_CFLAGS "additional_flags=-mcpu=v9"
 157     }
 158
 159     if [info exists TOOL_OPTIONS] {
 160         lappend ALWAYS_CFLAGS "additional_flags=$TOOL_OPTIONS"
 161     }
 162
 163     # Make sure that lines are not wrapped.  That can confuse the
 164     # error-message parsing machinery.
 165     lappend ALWAYS_CFLAGS "additional_flags=-fmessage-length=0"
 166
 167     # Disable caret
 168     lappend ALWAYS_CFLAGS "additional_flags=-fno-diagnostics-show-caret"
 169
 170     # Disable color diagnostics
 171     lappend ALWAYS_CFLAGS "additional_flags=-fdiagnostics-color=never"
 172 }
 173
 174 #
 175 # libgomp_target_compile -- compile a source file
 176 #
 177
 178 proc libgomp_target_compile { source dest type options } {
 179     global blddir
 180     global libgomp_compile_options
 181     global gluefile wrap_flags
 182     global ALWAYS_CFLAGS
 183     global GCC_UNDER_TEST
 184     global lang_test_file
 185     global lang_library_path
 186     global lang_link_flags
 187     global lang_include_flags
 188     global lang_source_re
 189
 190     if { [info exists lang_test_file] } {
 191         if { $blddir != "" } {
 192             # Some targets use libgfortran.a%s in their specs, so they need
 193             # a -B option for uninstalled testing.
 194             lappend options "additional_flags=-B${blddir}/${lang_library_path}"
 195             lappend options "ldflags=-L${blddir}/${lang_library_path}"
 196         }
 197         lappend options "ldflags=${lang_link_flags}"
 198         if { [info exists lang_include_flags] \
 199              && [regexp ${lang_source_re} ${source}] } {
 200             lappend options "additional_flags=${lang_include_flags}"
 201         }
 202     }
 203
 204     if { [target_info needs_status_wrapper] != "" && [info exists gluefile] } {
 205         lappend options "libs=${gluefile}"
 206         lappend options "ldflags=${wrap_flags}"
 207     }
 208
 209     lappend options "additional_flags=[libio_include_flags]"
 210     lappend options "timeout=[timeout_value]"
 211     lappend options "compiler=$GCC_UNDER_TEST"
 212
 213     set options [concat $libgomp_compile_options $options]
 214
 215     if [info exists ALWAYS_CFLAGS] {
 216         set options [concat "$ALWAYS_CFLAGS" $options]
 217     }
 218
 219     set options [dg-additional-files-options $options $source]
 220
 221     set result [target_compile $source $dest $type $options]
 222
 223     return $result
 224 }
 225
 226 proc libgomp_option_help { } {
 227     send_user " --additional_options,OPTIONS\t\tUse OPTIONS to compile the testcase files. OPTIONS should be comma-separated.\n"
 228 }
 229
 230 proc libgomp_option_proc { option } {
 231     if [regexp "^--additional_options," $option] {
 232         global libgomp_compile_options
 233         regsub "--additional_options," $option "" option
 234         foreach x [split $option ","] {
 235             lappend libgomp_compile_options "additional_flags=$x"
 236         }
 237         return 1
 238     } else {
 239         return 0
 240     }
 241 }