1# Expect script for ELF compressed debug section tests. 2# Copyright (C) 2010-2016 Free Software Foundation, Inc. 3# 4# This file is part of the GNU Binutils. 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, 19# MA 02110-1301, USA. 20# 21 22# Exclude non-ELF targets. 23 24if ![is_elf_format] { 25 return 26} 27 28# The following tests require running the executable generated by ld. 29if ![isnative] { 30 return 31} 32 33# Check if compiler works 34if { [which $CC] == 0 } { 35 return 36} 37 38global as 39if { ![ld_assemble $as "--compress-debug-sections $srcdir/$subdir/empty.s" tmpdir/empty.o ] } { 40 fail "linker compressed debug sections" 41} 42 43if { ![ld_assemble $as "--compress-debug-sections=zlib-gabi $srcdir/$subdir/empty.s" tmpdir/emptyzlib.o ] } { 44 fail "linker compressed debug sections" 45} 46 47set build_tests { 48 {"Build libfoo.so with compressed debug sections" 49 "-shared" "-fPIC -ggdb3 -Wa,--compress-debug-sections" 50 {foo.c} {} "libfoo.so"} 51 {"Build libbar.so with compressed debug sections" 52 "-shared -Wl,--compress-debug-sections=none" 53 "-fPIC -ggdb3 -Wa,--compress-debug-sections" 54 {begin.c end.c} {} "libbar.so"} 55 {"Build libfoozlib.so with compressed debug sections with zlib-gabi" 56 "-shared" "-fPIC -ggdb3 -Wa,--compress-debug-sections=zlib-gabi" 57 {foo.c} {} "libfoozlib.so"} 58 {"Build libbarzlib.so with compressed debug sections with zlib-gabi" 59 "-shared" "-fPIC -ggdb3 -Wa,--compress-debug-sections=zlib-gabi" 60 {begin.c end.c} {} "libbarzlib.so"} 61 {"Build libzlibfoo.so with zlib compressed debug sections" 62 "-shared -Wl,--compress-debug-sections=zlib" 63 "-fPIC -ggdb3 -Wa,--compress-debug-sections=zlib" 64 {foo.c} {} "libzlibfoo.so"} 65 {"Build libgnufoo.so with zlib-gnu compressed debug sections" 66 "-shared -Wl,--compress-debug-sections=zlib-gnu" 67 "-fPIC -ggdb3 -Wa,--compress-debug-sections=zlib-gnu" 68 {foo.c} {} "libgnufoo.so"} 69 {"Build libgabifoo.so with zlib-gabi compressed debug sections" 70 "-shared -Wl,--compress-debug-sections=zlib-gabi" 71 "-fPIC -ggdb3 -Wa,--compress-debug-sections=zlib-gabi" 72 {foo.c} {} "libgabifoo.so"} 73 {"Build zlibbegin.o with zlib compressed debug sections" 74 "-r -nostdlib -Wl,--compress-debug-sections=zlib" 75 "-ggdb3 -Wa,--compress-debug-sections=zlib" 76 {begin.c} {} "zlibbegin.o"} 77 {"Build gnubegin.o with zlib-gnu compressed debug sections" 78 "-r -nostdlib -Wl,--compress-debug-sections=zlib-gnu" 79 "-ggdb3 -Wa,--compress-debug-sections=zlib-gnu" 80 {begin.c} {} "gnubegin.o"} 81 {"Build gabiend.o with zlib-gabi compressed debug sections" 82 "-r -nostdlib -Wl,--compress-debug-sections=zlib-gabi" 83 "-ggdb3 -Wa,--compress-debug-sections=zlib-gnu" 84 {end.c} {} "gabiend.o"} 85} 86 87set run_tests { 88 {"Run normal with libfoo.so with compressed debug sections" 89 "tmpdir/begin.o tmpdir/libfoo.so tmpdir/end.o" "" 90 {main.c} "normal" "normal.out" "-Wa,--compress-debug-sections"} 91 {"Run normal with libfoozlib.so with compressed debug sections with zlib-gabi" 92 "tmpdir/begin.o tmpdir/libfoozlib.so tmpdir/end.o" "" 93 {main.c} "normal" "normal.out" "-Wa,--compress-debug-sections=zlib-gabi"} 94 {"Run zlibnormal with libzlibfoo.so with zlib compressed debug sections" 95 "tmpdir/begin.o tmpdir/libzlibfoo.so tmpdir/end.o --compress-debug-sections=zlib" "" 96 {main.c} "zlibnormal" "normal.out" "-Wa,--compress-debug-sections=zlib"} 97 {"Run zlibnormal with libfoozlib.so with zlib compressed debug sections" 98 "tmpdir/begin.o tmpdir/libfoozlib.so tmpdir/end.o --compress-debug-sections=zlib" "" 99 {main.c} "zlibnormal" "normal.out" "-Wa,--compress-debug-sections=zlib"} 100 {"Run gnunormal with libgnufoo.so with zlib-gnu compressed debug sections" 101 "tmpdir/gnubegin.o tmpdir/libgnufoo.so tmpdir/end.o --compress-debug-sections=zlib-gnu" "" 102 {main.c} "gnunormal" "normal.out" "-Wa,--compress-debug-sections=zlib-gnu"} 103 {"Run gnunormal with libfoozlib.so with zlib-gnu compressed debug sections" 104 "tmpdir/gnubegin.o tmpdir/libfoozlib.so tmpdir/end.o --compress-debug-sections=zlib-gnu" "" 105 {main.c} "gnunormal" "normal.out" "-Wa,--compress-debug-sections=zlib-gnu"} 106 {"Run gabinormal with libgabifoo.so with zlib-gabi compressed debug sections" 107 "tmpdir/zlibbegin.o tmpdir/libgabifoo.so tmpdir/gabiend.o --compress-debug-sections=zlib-gabi" "" 108 {main.c} "gabinormal" "normal.out" "-Wa,--compress-debug-sections=zlib-gabi"} 109 {"Run gabinormal with libfoozlib.so with zlib-gabi compressed debug sections" 110 "tmpdir/zlibbegin.o tmpdir/libfoozlib.so tmpdir/gabiend.o --compress-debug-sections=zlib-gabi" "" 111 {main.c} "gabinormal" "normal.out" "-Wa,--compress-debug-sections=zlib-gabi"} 112} 113 114run_cc_link_tests $build_tests 115run_ld_link_exec_tests [] $run_tests 116 117set test_name "Link with zlib-gabi compressed debug input" 118send_log "cmp tmpdir/libfoo.so tmpdir/libfoozlib.so\n" 119if { [catch {exec cmp tmpdir/libfoo.so tmpdir/libfoozlib.so}] } then { 120 send_log "tmpdir/libfoo.so tmpdir/libfoozlib.so differ.\n" 121 fail "$test_name" 122} else { 123 pass "$test_name" 124} 125 126global READELF 127 128set test_name "Link -r with zlib compressed debug output" 129set test zlibbegin 130send_log "$READELF -S -W tmpdir/$test.o > tmpdir/$test.out\n" 131set got [remote_exec host "$READELF -S -W tmpdir/$test.o" "" "/dev/null" "tmpdir/$test.out"] 132if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 133 send_log "$got\n" 134 unresolved "$test_name" 135} 136if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rS] } then { 137 fail "$test_name" 138} else { 139 pass "$test_name" 140} 141 142set test_name "Link -r with zlib-gnu compressed debug output" 143set test gnubegin 144send_log "$READELF -S -W tmpdir/$test.o > tmpdir/$test.out\n" 145set got [remote_exec host "$READELF -S -W tmpdir/$test.o" "" "/dev/null" "tmpdir/$test.out"] 146if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 147 send_log "$got\n" 148 unresolved "$test_name" 149} 150if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rS] } then { 151 fail "$test_name" 152} else { 153 pass "$test_name" 154} 155 156set test_name "Link -r with zlib-gabi compressed debug output" 157set test gabiend 158send_log "$READELF -t -W tmpdir/$test.o > tmpdir/$test.out\n" 159set got [remote_exec host "$READELF -t -W tmpdir/$test.o" "" "/dev/null" "tmpdir/$test.out"] 160if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 161 send_log "$got\n" 162 unresolved "$test_name" 163} 164if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rt] } then { 165 fail "$test_name" 166} else { 167 pass "$test_name" 168} 169 170set test_name "Link with zlib compressed debug output" 171set test normal 172send_log "$READELF -w tmpdir/$test > tmpdir/$test.out\n" 173set got [remote_exec host "$READELF -w tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"] 174if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 175 send_log "$got\n" 176 unresolved "$test_name" 177} 178 179set test_name "Link with zlib compressed debug output" 180set test zlibnormal 181send_log "$READELF -w tmpdir/$test | sed -e \"s/.zdebug_/.debug_/\" > tmpdir/$test.out\n" 182set got [remote_exec host "$READELF -w tmpdir/$test | sed -e \"s/.zdebug_/.debug_/\"" "" "/dev/null" "tmpdir/$test.out"] 183if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 184 send_log "$got\n" 185 unresolved "$test_name" 186} 187if { [catch {exec cmp tmpdir/normal.out tmpdir/$test.out}] } then { 188 send_log "tmpdir/normal.out tmpdir/$test.out differ.\n" 189 fail "$test_name" 190} else { 191 pass "$test_name" 192} 193send_log "$READELF -S -W tmpdir/$test' > tmpdir/$test.out\n" 194set got [remote_exec host "$READELF -S -W tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"] 195if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 196 send_log "$got\n" 197 unresolved "$test_name" 198} 199if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rS] } then { 200 fail "$test_name" 201} else { 202 pass "$test_name" 203} 204 205set test_name "Link with zlib-gnu compressed debug output" 206set test gnunormal 207send_log "$READELF -w tmpdir/$test | sed -e \"s/.zdebug_/.debug_/\" > tmpdir/$test.out\n" 208set got [remote_exec host "$READELF -w tmpdir/$test | sed -e \"s/.zdebug_/.debug_/\"" "" "/dev/null" "tmpdir/$test.out"] 209if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 210 send_log "$got\n" 211 unresolved "$test_name" 212} 213if { [catch {exec cmp tmpdir/normal.out tmpdir/$test.out}] } then { 214 send_log "tmpdir/normal.out tmpdir/$test.out differ.\n" 215 fail "$test_name" 216} else { 217 pass "$test_name" 218} 219send_log "$READELF -S -W tmpdir/$test' > tmpdir/$test.out\n" 220set got [remote_exec host "$READELF -S -W tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"] 221if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 222 send_log "$got\n" 223 unresolved "$test_name" 224} 225if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rS] } then { 226 fail "$test_name" 227} else { 228 pass "$test_name" 229} 230 231set test gabinormal 232set test_name "Link with zlib-gabi compressed debug output" 233send_log "$READELF -w tmpdir/$test > tmpdir/$test.out\n" 234set got [remote_exec host "$READELF -w tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"] 235if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 236 send_log "$got\n" 237 unresolved "$test_name" 238} 239if { [catch {exec cmp tmpdir/normal.out tmpdir/$test.out}] } then { 240 send_log "tmpdir/normal.out tmpdir/$test.out differ.\n" 241 fail "$test_name" 242} else { 243 pass "$test_name" 244} 245send_log "$READELF -t -W tmpdir/$test > tmpdir/$test.out\n" 246set got [remote_exec host "$READELF -t -W tmpdir/$test" "" "/dev/null" "tmpdir/$test.out"] 247if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { 248 send_log "$got\n" 249 unresolved "$test_name" 250} 251if { [regexp_diff tmpdir/$test.out $srcdir/$subdir/$test.rt] } then { 252 fail "$test_name" 253} else { 254 pass "$test_name" 255} 256