gcc/testsuite/gcc.dg/compat/struct-layout-1.exp

   1 # Copyright (C) 2002-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with GCC; see the file COPYING3.  If not see
  15 # <http://www.gnu.org/licenses/>.
  16 #
  17 # This file was written by Jakub Jelinek, <jakub@redhat.com>
  18 # Based on compat.exp writte by Janis Johnson, <janis187@us.ibm.com>
  19
  20
  21 # Test interoperability of two compilers that follow the same ABI.
  22 #
  23 # Break simple tests into two pieces and see that they work when linked
  24 # together.  If an alternate compiler is specified then the two main
  25 # pieces of each test are compiled with different compilers.  The
  26 # alternate compiler must be installed, and is specified by defining
  27 # ALT_CC_UNDER_TEST in the environment.
  28 #
  29 # struct-layout-1 are generated structure layout interoperability tests,
  30 # so a generator first needs to be compiled on host, run there and the
  31 # generated tests then compiled on build and executed on target.
  32
  33 if $tracelevel then {
  34     strace $tracelevel
  35 }
  36
  37 global GCC_UNDER_TEST
  38 global compat_save_gcc_under_test
  39 global compat_use_alt
  40 global compat_same_alt
  41 global compat_have_dfp
  42
  43 # Load procedures from common libraries.
  44 load_lib standard.exp
  45 load_lib gcc.exp
  46 load_lib target-libpath.exp
  47
  48 # Load the language-dependent compabibility support procedures.
  49 load_lib c-compat.exp
  50
  51 # Load the language-independent compabibility support procedures.
  52 load_lib compat.exp
  53
  54 gcc_init
  55
  56 # Save variables for the C compiler under test, which each test will
  57 # change a couple of times.  This must be done after calling gcc-init.
  58 set compat_save_gcc_under_test $GCC_UNDER_TEST
  59
  60 # Define an identifier for use with this suite to avoid name conflicts
  61 # with other compat tests running at the same time.
  62 set sid "c_compat"
  63
  64 # Find out whether there is an alternate compiler to test.  If the
  65 # variable is defined but is set to "same", that means we use the same
  66 # compiler twice, which is meaningful if the two parts of COMPAT_OPTIONS
  67 # are different.
  68 set compat_use_alt 0
  69 set compat_same_alt 0
  70
  71 if [info exists ALT_CC_UNDER_TEST] then {
  72     set compat_use_alt 1
  73     if [string match "same" $ALT_CC_UNDER_TEST] then {
  74         set compat_same_alt 1
  75     }
  76 }
  77
  78 compat_setup_dfp
  79
  80 if { $compat_have_dfp == 0 } {
  81     set skip_dfp "-DSKIP_DECIMAL_FLOAT"
  82 } else {
  83     set skip_dfp ""
  84 }
  85
  86 set tstobjdir "$tmpdir/gcc.dg-struct-layout-1"
  87 set generator "$tmpdir/gcc.dg-struct-layout-1_generate.exe"
  88
  89 set generator_src "$srcdir/$subdir/struct-layout-1_generate.c"
  90 set generator_src "$generator_src $srcdir/$subdir/generate-random.c"
  91 set generator_src "$generator_src $srcdir/$subdir/generate-random_r.c"
  92 set generator_cmd "-o $generator $skip_dfp $generator_src"
  93
  94 # Temporarily switch to the environment for the host compiler.
  95 restore_ld_library_path_env_vars
  96 set status [remote_exec build "$HOSTCC $HOSTCFLAGS $generator_cmd"]
  97 set status [lindex $status 0]
  98 set_ld_library_path_env_vars
  99
 100 if { $status == 0 } then {
 101     file delete -force $tstobjdir
 102     file mkdir $tstobjdir
 103     set generator_args "-s $srcdir/$subdir -d $tstobjdir"
 104     if [info exists env(RUN_ALL_COMPAT_TESTS) ] then {
 105         set generator_args "$generator_args -n 15000"
 106     }
 107     if [check_effective_target_short_enums] then {
 108         set generator_args "-e $generator_args"
 109     }
 110     set status [remote_exec host "$generator $generator_args"]
 111     set status [lindex $status 0]
 112     if { $status == 0 } then {
 113         foreach src [lsort [find $tstobjdir *_main.c]] {
 114             # If we're only testing specific files and this isn't one
 115             # of them, skip it.
 116             if ![runtest_file_p $runtests $src] then {
 117                 continue
 118             }
 119
 120             compat-execute $src $sid $compat_use_alt
 121         }
 122     } else {
 123         warning "Could not execute gcc.dg/compat/struct-layout-1 generator"
 124     }
 125 } else {
 126     warning "Could not compile gcc.dg/compat/struct-layout-1 generator"
 127 }
 128
 129 # Restore the original compiler under test.
 130 compat-use-tst-compiler