# Expect script for ld-weak tests
-# Copyright 2001, 2002, 2003, 2004, 2005, 2007, 2010
+# Copyright 2001, 2002, 2003, 2004, 2005, 2007, 2010, 2012
# Free Software Foundation, Inc.
#
# This file is part of the GNU Binutils.
&& ![istarget sh\[34\]*-*-linux*]
&& ![istarget sparc*-*-elf]
&& ![istarget sparc*-*-solaris2*]
- && ![istarget sparc*-*-linux*] } {
+ && ![istarget sparc*-*-linux*]
+ && ![istarget *-*-nacl*] } {
return
}
perror "$expectfile doesn't exist"
return 0
}
-
+
if [file exists $tmpdir/objdump.out] then {
set file_b [open $tmpdir/objdump.out r]
} else {
}
}
close $file_b
-
+
for { set i 0 } { $i < [llength $list_a] } { incr i } {
set line_a [lindex $list_a $i]
set line_b [lindex $list_b $i]
-
+
verbose "\t$expectfile: $i: $line_a" 3
verbose "\t/tmp/objdump.out: $i: $line_b" 3
} else {
verbose -log "\t$expectfile: $i: $line_a"
verbose -log "\t$tmpdir/objdump.out: $i: $line_b"
-
+
return 0
}
}
-
+
if { [llength $list_a] != [llength $list_b] } {
verbose -log "Line count"
return 0
}
-
+
if $differences<1 then {
return 1
}
-
+
return 0
} else {
verbose -log "$exec_output"
warning "$expectfile doesn't exist"
return 0
}
-
+
if [file exists $tmpdir/objdump.out] then {
set file_b [open $tmpdir/objdump.out r]
} else {
}
}
close $file_b
-
+
for { set i 0 } { $i < [llength $list_b] } { incr i } {
set line_b [lindex $list_b $i]
-
+
# The tests are rigged so that we should never export a symbol with the
# word 'hide' in it. Thus we just search for it, and bail if we find it.
if [regexp "hide" $line_b] then {
verbose -log "\t$tmpdir/objdump.out: $i: $line_b"
-
+
return 0
}
if { $j >= [llength $list_a] } {
verbose -log "\t$tmpdir/objdump.out: $i: $line_b"
-
+
return 0
}
}
-
+
if { [llength $list_a] != [llength $list_b] } {
verbose -log "Line count"
return 0
}
-
+
if $differences<1 then {
return 1
}
-
+
return 0
} else {
verbose -log "$exec_output"