# Expect script for AIX 5.2+ tests
#   Copyright 2009 Free Software Foundation
#
# This file is part of the GNU Binutils.
#
# 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
# MA 02110-1301, USA.
#

if { ![istarget "powerpc*-*-aix\[5-9\]*"]
     || [istarget "powerpc*-*-aix5.\[01\]*"] } {
    return
}

# Run a run_link_tests-style test for AIX.  SIZE selects the target size
# (32 or 64).  The other arguments are elements of a run_link_tests test.
#
# Make the following changes before running the test:
#
#    - Mention SIZE in the test name.
#    - Add "-aSIZE --defsym size=SIZE" to the assembler options.
#    - Add the source directory to any "-bI:" and "-bE:" linker options.
#    - Add "-bSIZE" to the linker options.
#    - Add "-XSIZE" to the archiver options.
#    - Replace "SIZE" with SIZE in TOOLS.
#    - When testing 64-bit targets:
#      - Turn tmpdir/aix-* into tmpdir/aix64-*.
#      - Turn tmpdir/libaix-* into tmpdir/libaix64-*.
#      - Turn -laix* into -laix64*, to compensate for the above.
proc run_aix_test { size name ldopts asopts sources tools output } {
    global srcdir subdir

    if { $size == 64 } {
	regsub -all {tmpdir/aix-} $ldopts {tmpdir/aix64-} ldopts
	regsub {^aix} $output {aix64} output

	regsub -all -- {-laix-} $ldopts {-laix64-} ldopts
	regsub {^libaix} $output {libaix64} output
    }
    if { [regexp {.a$} $output] } {
	append ldopts " -X$size"
    } else {
	regsub -all {(-b[IE]):} $ldopts "\\1:$srcdir/$subdir/" ldopts
	append ldopts " -b$size"
    }
    regsub -all {SIZE} $tools $size tools
    run_ld_link_tests [list [list "$name ($size-bit)" \
				 $ldopts "" \
				 "$asopts -a$size --defsym size=$size" \
				 $sources \
				 $tools \
				 $output]]
}

foreach file { "aix-lineno-1.txt" } {
    remote_upload host "$srcdir/$subdir/$file" "tmpdir/$file"
}

set aix52tests {
    {"Absolute branch test 1"
     "-shared -bI:aix-abs-branch-1.im -bE:aix-abs-branch-1.ex"
     "" {aix-abs-branch-1.s}
     {{objdump {-dR} aix-abs-branch-1.dd} {nm {} aix-abs-branch-1.nd}}
     "aix-abs-branch-1.so"}

    {"Relocations against absolute symbols 1"
     "-shared -bI:aix-abs-reloc-1.im -bE:aix-abs-reloc-1.ex"
     {} {aix-abs-reloc-1.s}
     {{objdump -sRj.data aix-abs-reloc-1.od} {nm {} aix-abs-reloc-1.nd}}
     "aix-abs-reloc-1.so"}

    {"Core sections test 1" "-shared -bE:aix-core-sec-1.ex"
     "" {aix-core-sec-1.s}
     {{objdump -h aix-core-sec-1.hd}}
     "aix-core-sec-1.so"}

    {"Core sections test 2" "-shared -bE:aix-core-sec-2.ex"
     "" {aix-core-sec-2.s}
     {{objdump -h aix-core-sec-2.hd}}
     "aix-core-sec-2.so"}

    {"Core sections test 3" "-shared -bE:aix-core-sec-3.ex"
     "" {aix-core-sec-3.s}
     {{objdump -h aix-core-sec-3.hd}}
     "aix-core-sec-3.so"}

    {"Duplicate symbol check 1 (rel)" "-r"
     "" {aix-no-dup-syms-1a.s aix-no-dup-syms-1b.s}
     {{nm {} aix-no-dup-syms-1-rel.nd} {objdump -r aix-no-dup-syms-1-rel.rd}}
     "aix-no-dup-syms-1.o"}

    {"Duplicate symbol check 1 (shared)"
     "-shared --allow-multiple-definition -bI:aix-no-dup-syms-1.im -bE:aix-no-dup-syms-1.ex"
     "" {aix-no-dup-syms-1a.s aix-no-dup-syms-1b.s}
     {{nm {} aix-no-dup-syms-1-dso.nd} {objdump -r aix-no-dup-syms-1-dso.rd}
      {nm -D aix-no-dup-syms-1-dso.dnd} {objdump -R aix-no-dup-syms-1-dso.drd}}
     "aix-no-dup-syms-1.so"}

    {"Export test 1 (archive)" ""
      "" {aix-export-1a.s}
      {} "libaix-export-1.a"}

    {"Export test 1 (object)" "-r"
      "" {aix-export-1b.s}
      {} "aix-export-1.o"}

    {"Export test 1 (-bexpall)"
     "-shared -bexpall tmpdir/aix-export-1.o -Ltmpdir -laix-export-1"
     "" {}
     {{objdump -dj.data aix-export-1-all.dd}}
     "aix-export-1-all.so"}

    {"Export test 1 (-bexpfull)"
     "-shared -bexpfull tmpdir/aix-export-1.o -Ltmpdir -laix-export-1"
     "" {}
     {{objdump -dj.data aix-export-1-full.dd}}
     "aix-export-1-full.so"}

    {"Export test 2" "-shared -bexpall"
     {} {aix-export-2.s}
     {{nm -D aix-export-2.nd}} "aix-export-2.so"}

    {"Garbage collection test 1"
     "-shared -binitfini:init_function:fini_function -bE:aix-gc-1.ex"
     "" {aix-gc-1.s}
     {{objdump {-dz -j.text -j.data} aix-gc-1-SIZE.dd}
      {nm {} aix-gc-1.nd}}
     "aix-gc-1.so"}

    {"Glink test 1"
     "-shared -bE:aix-glink-1.ex --unresolved-symbols=ignore-all"
     "" {aix-glink-1.s}
     {{objdump {-D -j.text -j.data} aix-glink-1-SIZE.dd}}
     "aix-glink-1.so"}

    {"Glink test 2 (part a)" "-shared -bE:aix-glink-2a.ex"
     "" {aix-glink-2a.s}
     {}
     "aix-glink-2a.so"}

    {"Glink test 2 (part b)" "-r"
     "" {aix-glink-2b.s}
     {}
     "aix-glink-2b.ro"}

    {"Glink test 2 (part c)" "-shared -bE:aix-glink-2c.ex"
     "" {aix-glink-2c.s}
     {}
     "aix-glink-2c.so"}

    {"Glink test 2"
     "-e.main tmpdir/aix-glink-2a.so tmpdir/aix-glink-2b.ro tmpdir/aix-glink-2c.so"
     "" {aix-glink-2d.s}
     {{objdump -d aix-glink-2-SIZE.dd}}
     "aix-glink-2"}

    {"Glink test 3 (shared library a)"
     "-shared -bexpall"
     "" {aix-glink-3a.s}
     {} "aix-glink-3a.so"}

    {"Glink test 3 (shared library b)"
     "-shared -bexpall"
     "" {aix-glink-3b.s}
     {} "aix-glink-3b.so"}

    {"Glink test 3 (main test)"
     "-bnoautoimp tmpdir/aix-glink-3b.so tmpdir/aix-glink-3a.so"
     "" {aix-glink-3.s}
     {{objdump -d aix-glink-3.dd}}
     "aix-glink-3"}

    {"Line number test 1 (no discards)" "-e.main"
     "" {aix-lineno-1.s}
     {{objdump -dS aix-lineno-1a.dd} {nm {} aix-lineno-1a.nd}}
     "aix-lineno-1a.exe"}

    {"Line number test 1 (discard locals)" "-e.main -x"
     "" {aix-lineno-1.s}
     {{objdump -dS aix-lineno-1b.dd} {nm {} aix-lineno-1b.nd}}
     "aix-lineno-1b.exe"}

    {"Relocatable test 1" "-r"
     "" {aix-rel-1.s}
     {{objdump -hr aix-rel-1.od}} "aix-rel-1.ro"}

    {".ref test 1" "-efoo1"
     "" {aix-ref-1.s}
     {{objdump -dr aix-ref-1-SIZE.od}}
     "aix-ref-1"}

    {"Weak test 1 (rel)" "-r"
     "" {aix-weak-1a.s aix-weak-1b.s}
     {{nm {} aix-weak-1-rel.nd} {objdump -h aix-weak-1-rel.hd}}
     "aix-weak-1.o"}

    {"Weak test 1 (shared, nogc)" "-shared -bE:aix-weak-1.ex -bnogc"
     "" {aix-weak-1a.s aix-weak-1b.s}
     {{nm {} aix-weak-1-dso.nd} {objdump -h aix-weak-1-dso.hd}
      {nm -D aix-weak-1-dso.dnd}}
     "aix-weak-1-nogc.so"}

    {"Weak test 1 (shared, gc)" "-shared -bE:aix-weak-1.ex"
     "" {aix-weak-1a.s aix-weak-1b.s}
     {{nm {} aix-weak-1-gcdso.nd} {objdump -h aix-weak-1-gcdso.hd}
      {nm -D aix-weak-1-gcdso.dnd}}
     "aix-weak-1-gc.so"}

    {"Weak test 2 (library 1)" "-shared -bE:aix-weak-2a.ex"
     "" {aix-weak-2a.s}
     {{nm -D aix-weak-2a.nd}}
     "aix-weak-2a.so"}

    {"Weak test 2 (library 2)" "-shared -bE:aix-weak-2a.ex"
     "" {aix-weak-2b.s}
     {{nm -D aix-weak-2b.nd}}
     "aix-weak-2b.so"}

    {"Weak test 2 (main library)"
     "-shared -bE:aix-weak-2c.ex tmpdir/aix-weak-2a.so tmpdir/aix-weak-2b.so"
     "" {aix-weak-2c.s}
     {{nm {} aix-weak-2c.nd} {objdump {-sj.data -R} aix-weak-2c.od}}
     "aix-weak-2c.so"}

    {"Weak test 3 (library)" "-shared -bE:aix-weak-3a.ex"
     "" {aix-weak-3a.s}
     {}
     "aix-weak-3a.so"}

    {"Weak test 3 (main, dynamic)" "-e.main tmpdir/aix-weak-3a.so"
     "" {aix-weak-3b.s}
     {{objdump -Dzrj.data aix-weak-3-SIZE.dd}}
     "aix-weak-3"}

    {"TOC test 1" "-shared -bE:aix-toc-1.ex"
     "" {aix-toc-1a.s aix-toc-1b.s}
     {{objdump -dr aix-toc-1-SIZE.dd}}
     "aix-toc-1.so"}
}

foreach test $aix52tests {
    foreach { name ldopts asopts sources tools output } $test {
	run_aix_test 32 $name $ldopts $asopts $sources $tools $output
	run_aix_test 64 $name $ldopts $asopts $sources $tools $output
    }
}

run_dump_test "aix-glink-1-32"
run_dump_test "aix-glink-1-64"
run_dump_test "aix-glink-3-32"
run_dump_test "aix-glink-3-64"
run_dump_test "aix-weak-3-32"
run_dump_test "aix-weak-3-64"