gas/testsuite/gas/pe/pe.exp

   1 # Expect control script for GAS testsuite PE object-format-specific tests.
   2
   3 # Copyright (C) 2009
   4 # Free Software Foundation, Inc.
   5
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 3 of the License, or
   9 # (at your option) any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  19
  20 # Please email any bugs, comments, and/or additions to this file to:
  21 # binutils@gnu.org
  22
  23 load_lib gas-dg.exp
  24 load_lib gas-defs.exp
  25
  26 # These tests can only be run on PE/COFF platforms.
  27 if {![is_pecoff_format]} {
  28     return
  29 }
  30
  31 run_dump_test "aligncomm-a"
  32 run_dump_test "aligncomm-b"
  33 run_dump_test "aligncomm-c"
  34 run_dump_test "aligncomm-d"
  35
  36 run_dump_test "section-align-1"
  37 run_dump_test "section-align-3"
  38
  39 # SEH related tests
  40
  41 # These tests are only for x86_64 targets
  42 if ([istarget "x86_64-*-mingw*"]) then {
  43
  44         run_dump_test "peseh-x64"
  45         run_dump_test "peseh-x64-2"
  46         run_dump_test "peseh-x64-3"
  47 }