clang-tests/gdb-1472-testsuite/src/gdb/gdb.apple/arch-test.exp

# Copyright 2005 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# 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.

# We added a "-arch" option to gdb to allow you to run the 32 bit side of a Universal
# binary on a machine which would ordinarily run the 32 bit version.
# This tests that.

set using_dsym 0
foreach x $board_variant_list {
    if {$x == ""} {
	continue
    }
    switch $x {
	dsym  {set using_dsym 1}
	default {}
    }
}

if {$using_dsym} {
    gdb_suppress_entire_file "This test doesn't work when forcing dsym testing"
    return 0
}

if {[istarget "powerpc-apple-darwin*"]} {
    set arch_name(32) "ppc"
} elseif {[istarget "i686-apple-darwin*"]} {
    set arch_name(32) "i386"
    set arch_name(64) "x86_64"
} else {
    puts "Unsupported architecture"
    return
}

set testfile arch-test
set srcfile $testfile.c
set binfile $objdir/$subdir/$testfile
set arches [list ppc i386 x86_64] 


# We need to take the -arch whatever flags out of the cflags, or we will
# be building each time for two architectures.
# Be sure to put it back when we are done.

if {[board_info target exists cflags]} {
    set old_board_flags [board_info target cflags]
    regsub -- {-arch *[^ ]*} $old_board_flags {} new_board_flags
    unset_currtarget_info cflags
    set_currtarget_info cflags $new_board_flags
    set put_cflags_back 1
} else {
    set pub_cflags_back 0
}

foreach arch $arches {
    set additional_flags "additional_flags=-arch\\ $arch"
    if  { [gdb_compile "$srcdir/$subdir/$testfile.c" "$binfile-$arch.o" object "debug $additional_flags"] != "" } {
        gdb_suppress_entire_file "Testcase compile failed for arch $arch in  $test_name, so all tests in this file will automatically fail."
    }
    if  { [gdb_compile "$binfile-$arch.o" "$binfile-$arch" executable "debug $additional_flags"] != "" } {
        gdb_suppress_entire_file "Testcase compile failed for arch $arch in  $test_name, so all tests in this file will automatically fail."
    }
}

if {$put_cflags_back == 1} {
  unset_currtarget_info cflags
  set_currtarget_info cflags $old_board_flags
}

set command "lipo -create -output \"$binfile\""
foreach arch $arches {
    set command "$command -arch $arch \"$binfile-$arch\""
}

set status [remote_exec  host $command]
if {[lindex $status 0] != 0} {
    puts [lindex $status 1]
    gdb_suppress_entire_file "lipo command failed for $test_name, so all tests in this file will automatically fail."
}

# Make sure we get an error if we try to set arch to 64 on a file that only has 32 bit.

gdb_exit


gdb_start "--arch $arch_name(32)"
gdb_reinitialize_dir $srcdir/$subdir
gdb_test "file $binfile-$arch_name(64)" \
    ".*Architecture of file.*does not match user selected architecture.*" \
    "Got an error passing the wrong architecture"

# This tests that we can run BITSIZE side of the Universal binary.
# Test both values of START_WITH_SHELL, since "0" uses posix_spawn and "1" uses "exec arch".
proc run_one_test {bitsize start_with_shell} {
    global GDBFLAGS
    global srcdir srcfile subdir binfile arch_name
    global gdb_prompt hex

    gdb_exit
    
    set this_test "$bitsize bit start-with-shell: $start_with_shell"
    gdb_start "--arch $arch_name($bitsize)"
    gdb_reinitialize_dir $srcdir/$subdir
    gdb_file_cmd "$binfile"
    
    send_gdb "set width 0\n"
    gdb_expect -re "$gdb_prompt \$"
    
    gdb_test "set start-with-shell $start_with_shell" "" "$this_test: set start-with-shell"
    gdb_test "set env FROM_GDB passed" "" "$this_test: set FROM_GDB environment variable"
    gdb_test "set arg this that" "" "$this_test set args"
    
    gdb_test "break [gdb_get_line_number {Good place to put a breakpoint}]" \
	"Breakpoint 1 at $hex: file.*, line.*\\." \
	"$this_test: Set breakpoint on line 'Good place to put a breakpoint'"
    
    gdb_test "run" "Starting program: $binfile this that *\r\n\.*Reading symbols for shared libraries \(\[.+\]\)+ done.*I am $bitsize bit.*Breakpoint 1, main.*" \
	"$this_test: run to \"Good place to put a breakpoint\""
    
    gdb_test {print argc} {\$[0-9]+ = 3} "$this_test: Make sure both arguments got passed."
    gdb_test {print argv[1]} {\$[0-9]+ = .* "this"} "$this_test: argv\[1\] == this" 
    gdb_test {show env FROM_GDB} {FROM_GDB = passed} "$this_test: Make sure environ got passed."

}

run_one_test 32 0
run_one_test 32 1
run_one_test 64 0
run_one_test 64 1