[deliverable/binutils-gdb.git] / ld / testsuite / ld-srec / srec.exp

# Test linking directly to S-records.
# By Ian Lance Taylor, Cygnus Support.
# Public domain.

# Get the offset from an S-record line to the start of the data.

proc srec_off { l } {
    if [string match "S1*" $l] {
	return 8
    } else { if [string match "S2*" $l] {
	return 10
    } else { if [string match "S3*" $l] {
	return 12
    } else {
	return -1
    } } }
}

# See if an S-record line contains only zero data.

proc srec_zero { l } {
    if [string match "S\[0789\]*" $l] {
	return 1
    }

    # Strip the address and checksum.
    if [string match "S\[123\]*" $l] {
	set l [string range $l [srec_off $l] [expr [string length $l] - 3]]
    } else {
	return 0
    }

    # The rest must be zero.
    return [string match "" [string trim $l "0"]]
}

# Get the address of an S-record line.

proc srec_addr { l } {
    if [string match "S\[123\]*" $l] {
	set addr [string range $l 4 [expr [srec_off $l] - 1]]
    } else {
	return -1
    }

    return "0x$addr"
}

# Get the number of data bytes in an S-record line.

proc srec_len { l } {
    if ![string match "S\[123\]*" $l] {
	return 0
    }

    return [expr "0x[string range $l 2 3]" - ([srec_off $l] - 4) / 2 - 1]
}

# Extract bytes from an S-record line.

proc srec_extract { l start len } {
    set off [srec_off $l]
    set rlen [srec_len $l]
    set stop [expr $start + $len]
    if { $stop > $rlen } {
	set stop [expr $rlen]
    }
    set start [expr $start * 2 + $off]
    set stop [expr $stop * 2 + $off - 1]
    return [string range $l $start $stop]
}

# See if a range of bytes in an S-record line is all zeroes.

proc srec_zero_range { l start len } {
    return [string match "" [string trim [srec_extract $l $start $len] "0"]]
}

# Trim an S-record line such that the specified number of bytes remain
# at the end.

proc srec_trim { l leave } {
    set off [srec_off $l]
    set addr [srec_addr $l]
    set len [srec_len $l]

    if { $leave >= $len } {
	return $l
    }

    set s1 [string range $l 0 1]
    set s2 [format "%02x" [expr ($off - 4) / 2 + $leave + 1]]
    set s3 [format "%0[expr $off - 4]x" [expr $addr + $len - $leave]]
    set s4 [string range $l [expr [string length $l] - ($leave * 2) - 2] end]
    set s "${s1}${s2}${s3}${s4}"

    verbose "srec_trim { '$l' $leave } returning '$s'" 2

    return $s
}

# Report failure when comparing S-record lines

proc srec_compare_fail { which l1 l2 } {
    send_log "comparison failure $which:\n$l1\n$l2\n"
    verbose "comparison failure $which:\n$l1\n$l2"
}

# Compare S-record files.  We don't want to fuss about things like
# extra zeroes.  Note that BFD always sorts S-records by address.

proc srec_compare { f1 f2 } {
    set e1 [gets $f1 l1]
    set e2 [gets $f2 l2]

    while { $e1 != -1 } {
	set l1 [string trimright $l1 "\r\n"]
	set l2 [string trimright $l2 "\r\n"]
	if { $e2 == -1 } {
	    # If l1 contains data, it must be zero.
	    if ![srec_zero $l1] {
		send_log "data after EOF: $l1\n"
		verbose "data after EOF: $l1"
		return 0
	    }
	} else { if { [string compare $l1 $l2] == 0 } {
	    set e1 [gets $f1 l1]
	    set e2 [gets $f2 l2]
	} else { if { [srec_zero $l1] } {
	    set e1 [gets $f1 l1]
	} else { if { [srec_zero $l2] } {
	    set e2 [gets $f2 l2]
	} else {
	    # The strings are not the same, and neither is all zeroes.
	    set a1 [srec_addr $l1]
	    set n1 [srec_len $l1]
	    set a2 [srec_addr $l2]
	    set n2 [srec_len $l2]

	    if { $a1 < $a2 && ![srec_zero_range $l1 0 [expr $a2 - $a1]] } {
		verbose "$a1 $a2 [srec_extract $l1 0 [expr $a2 - $a1]]" 2
		srec_compare_fail 1 $l1 $l2
		return 0
	    }
	    if { $a2 < $a1 && ![srec_zero_range $l2 0 [expr $a1 - $a2]] } {
		srec_compare_fail 2 $l1 $l2
		return 0
	    }

	    # Here we know that any initial data in both lines is
	    # zero.  Now make sure that any overlapping data matches.
	    if { $a1 < $a2 } {
		set os1 [expr $a2 - $a1]
		set os2 0
	    } else {
		set os1 0
		set os2 [expr $a1 - $a2]
	    }
	    if { $a1 + $n1 < $a2 + $n2 } {
		set ol [expr $n1 - $os1]
	    } else {
		set ol [expr $n2 - $os2]
	    }

	    set x1 [srec_extract $l1 $os1 $ol]
	    set x2 [srec_extract $l2 $os2 $ol]
	    if { [string compare $x1 $x2] != 0 } {
		verbose "$os1 $ol $x1" 2
		verbose "$os2 $ol $x2" 2
		srec_compare_fail 3 $l1 $l2
		return 0
	    }

	    # These strings match.  Trim the data from the larger
	    # string, read a new copy of the smaller string, and
	    # continue.
	    if { $a1 + $n1 < $a2 + $n2 } {
		set l2 [srec_trim $l2 [expr ($a2 + $n2) - ($a1 + $n1)]]
		set e1 [gets $f1 l1]
	    } else { if { $a1 + $n1 > $a2 + $n2 } {
		set l1 [srec_trim $l1 [expr ($a1 + $n1) - ($a2 + $n2)]]
		set e2 [gets $f2 l2]
	    } else {
		set e1 [gets $f1 l1]
		set e2 [gets $f2 l2]
	    } }
	} } } }
    }

    # We've reached the end of the first file.  The remainder of the
    # second file must contain only zeroes.
    while { $e2 != -1 } {
	set l2 [string trimright $l2 "\r\n"]
	if ![srec_zero $l2] {
	    send_log "data after EOF: $l2\n"
	    verbose "data after EOF: $l2"
	    return 0
	}
	set e2 [gets $f2 l2]
    }

    return 1
}

# Link twice, objcopy, and compare

proc run_srec_test { test objs } {
    global ld
    global objcopy
    global sizeof_headers
    global host_triplet

    set flags ""

    # If the linker script uses SIZEOF_HEADERS, use a -Ttext argument
    # to force both the normal link and the S-record link to be put in
    # the same place.  We don't always use -Ttext because it interacts
    # poorly with a.out.

    if { $sizeof_headers } {
	set flags "$flags -Ttext 0x1000"
    }

    # The a29k compiled code calls V_SPILL and V_FILL.  Since we don't
    # need to run this code, but we don't have definitions for those
    # functions, we just define them out.
    if [istarget a29k*-*-*] {
	set flags "$flags --defsym V_SPILL=0 --defsym V_FILL=0"
    }

    if {[istarget arm*-*-*]       || \
        [istarget strongarm*-*-*] || \
        [istarget xscale*-*-*]    || \
        [istarget thumb-*-*] } {
    
        # ARM targets call __gccmain
        set flags "$flags --defsym __gccmain=0"

        # ARM targets cannot convert format in the linker 
        # using the -oformat command line switch
	setup_xfail "*arm*-*-*"
	setup_xfail "xscale-*-*"
	setup_xfail "thumb-*-*"
    }

    # PowerPC EABI code calls __eabi.
    if [istarget powerpc*-*-eabi*] {
	set flags "$flags --defsym __eabi=0"
    }

    # mn10200 code calls __truncsipsi2_d0_d2.
    if {[istarget mn10200*-*-*]} then {
	set flags "$flags --defsym __truncsipsi2_d0_d2=0"
    }

    # V850 targets need libgcc.a
    if [istarget v850*-*-elf] {
	set objs "$objs -L ../gcc -lgcc"
    }
    
    if { ![ld_simple_link $ld tmpdir/sr1 "$flags $objs"] \
	 || ![ld_simple_link $ld tmpdir/sr2.sr "$flags -oformat srec $objs"] } {
	setup_xfail "hppa*-*-*elf*"
	fail $test
	return
    }

    send_log "$objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr\n"
    verbose "$objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr"
    catch "exec $objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr" exec_output
    set exec_output [prune_warnings $exec_output]
    if ![string match "" $exec_output] {
	send_log "$exec_output\n"
	verbose "$exec_output"
	unresolved $test
	return
    }

    set f1 [open tmpdir/sr1.sr r]
    set f2 [open tmpdir/sr2.sr r]
    if [srec_compare $f1 $f2] {
	pass $test
    } else {
	fail $test
    }
    close $f1
    close $f2
}

set test1 "S-records"
set test2 "S-records with constructors"

# See whether the default linker script uses SIZEOF_HEADERS.
catch "exec $ld --verbose" exec_output
set sizeof_headers [string match "*SIZEOF_HEADERS*" $exec_output]

# First test linking a C program.  We don't require any libraries.  We
# link it normally, and objcopy to the S-record format, and then link
# directly to the S-record format, and require that the two files
# contain the same data.

if { [which $CC] == 0 } {
    untested $test1
    untested $test2
    return
}

if { ![ld_compile $CC $srcdir/$subdir/sr1.c tmpdir/sr1.o] \
     || ![ld_compile $CC $srcdir/$subdir/sr2.c tmpdir/sr2.o] } {
    unresolved $test1
    unresolved $test2
    return
}

# The i386-aout target is confused: the linker does not put the
# sections where objdump finds them.  I don't know which is wrong.
setup_xfail "i*86-*-aout*"

# These tests fail on the native MIPS ELF targets because the GP value
# in the .reginfo section is not updated when the S-record version is
# written out.  The mips-elf target itself does not use a .reginfo section.
setup_xfail "mips*-*-irix5*" "mips*-*-irix6*"

# The S-record linker doesn't do the magic TOC handling that XCOFF
# linkers do.
setup_xfail "*-*-aix*" "*-*-xcoff*"

# The S-record linker doesn't build ARM/Thumb stubs.
setup_xfail "arm-*-coff"
setup_xfail "strongarm*-*-coff"
setup_xfail "xscale*-*-coff"
setup_xfail "arm-*-pe*"
# setup_xfail "arm-*elf*"
setup_xfail "thumb-*-coff*"
setup_xfail "thumb-*-pe*"
setup_xfail "thumb-*-elf*"
setup_xfail "arm*-*-linux*"

# The S-record linker doesn't build special EABI sections.
setup_xfail "powerpc*-*-eabi*"

# The S-record linker doesn't include the .{zda} sections.
setup_xfail "v850*-*-elf"

# The S-record linker doesn't handle Alpha Elf relaxation.
setup_xfail "alpha*-*-elf*" "alpha*-*-linux-gnu*" "alpha*-*-gnu*"
setup_xfail "alpha*-*-netbsd*"

# The S-record linker hasn't any hope of coping with HPPA relocs.
setup_xfail "hppa*-*-*"

# The S-record linker doesn't support the special PE headers - the PE
# emulation tries to write pe-specific information to the PE headers
# in the output bfd, but it's not a PE bfd (it's an srec bfd)
setup_xfail "*-*-cygwin*" "*-*-mingw*" "*-*-pe*" "*-*-winnt*"

run_srec_test $test1 "tmpdir/sr1.o tmpdir/sr2.o"

# Now try linking a C++ program with global constructors and
# destructors.  Note that since we are not linking against any
# libraries, this program won't actually work or anything.

if { [which $CXX] == 0 } {
    untested $test2
    return
}

if ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir/$subdir/sr3.cc tmpdir/sr3.o] {
    unresolved $test2
    return
}

# See above.
setup_xfail "i*86-*-aout*"
setup_xfail "mips*-*-irix5*" "mips*-*-irix6*"
setup_xfail "*-*-aix*" "*-*-xcoff*"
setup_xfail "arm*-*-*"
setup_xfail "strongarm*-*-*"
setup_xfail "thumb-*-*"
setup_xfail "powerpc*-*-eabi*"
setup_xfail "v850*-*-elf"
setup_xfail "alpha*-*-elf*" "alpha*-*-linux-gnu*" "alpha*-*-gnu*"
setup_xfail "alpha*-*-netbsd*"
setup_xfail "hppa*-*-*"
setup_xfail "*-*-cygwin*" "*-*-mingw*" "*-*-pe*" "*-*-winnt*"

run_srec_test $test2 "tmpdir/sr3.o"
Commit	Line	Data
252b5132 RH	1	# Test linking directly to S-records.
	2	# By Ian Lance Taylor, Cygnus Support.
	3	# Public domain.
	4
	5	# Get the offset from an S-record line to the start of the data.
	6
	7	proc srec_off { l } {
	8	if [string match "S1*" $l] {
	9	return 8
	10	} else { if [string match "S2*" $l] {
	11	return 10
	12	} else { if [string match "S3*" $l] {
	13	return 12
	14	} else {
	15	return -1
	16	} } }
	17	}
	18
	19	# See if an S-record line contains only zero data.
	20
	21	proc srec_zero { l } {
	22	if [string match "S\[0789\]*" $l] {
	23	return 1
	24	}
	25
	26	# Strip the address and checksum.
	27	if [string match "S\[123\]*" $l] {
	28	set l [string range $l [srec_off $l] [expr [string length $l] - 3]]
	29	} else {
	30	return 0
	31	}
	32
	33	# The rest must be zero.
	34	return [string match "" [string trim $l "0"]]
	35	}
	36
	37	# Get the address of an S-record line.
	38
	39	proc srec_addr { l } {
	40	if [string match "S\[123\]*" $l] {
	41	set addr [string range $l 4 [expr [srec_off $l] - 1]]
	42	} else {
	43	return -1
	44	}
	45
	46	return "0x$addr"
	47	}
	48
	49	# Get the number of data bytes in an S-record line.
	50
	51	proc srec_len { l } {
	52	if ![string match "S\[123\]*" $l] {
	53	return 0
	54	}
	55
	56	return [expr "0x[string range $l 2 3]" - ([srec_off $l] - 4) / 2 - 1]
	57	}
	58
	59	# Extract bytes from an S-record line.
	60
	61	proc srec_extract { l start len } {
	62	set off [srec_off $l]
	63	set rlen [srec_len $l]
	64	set stop [expr $start + $len]
65	if { $stop > $rlen } {
66	set stop [expr $rlen]
67	}
68	set start [expr $start * 2 + $off]
69	set stop [expr $stop * 2 + $off - 1]
70	return [string range $l $start $stop]
71	}
72
73	# See if a range of bytes in an S-record line is all zeroes.
74
75	proc srec_zero_range { l start len } {
76	return [string match "" [string trim [srec_extract $l $start $len] "0"]]
77	}
78
79	# Trim an S-record line such that the specified number of bytes remain
80	# at the end.
81
82	proc srec_trim { l leave } {
83	set off [srec_off $l]
84	set addr [srec_addr $l]
85	set len [srec_len $l]
86
87	if { $leave >= $len } {
88	return $l
89	}
90
91	set s1 [string range $l 0 1]
92	set s2 [format "%02x" [expr ($off - 4) / 2 + $leave + 1]]
93	set s3 [format "%0[expr $off - 4]x" [expr $addr + $len - $leave]]
94	set s4 [string range $l [expr [string length $l] - ($leave * 2) - 2] end]
95	set s "${s1}${s2}${s3}${s4}"
96
97	verbose "srec_trim { '$l' $leave } returning '$s'" 2
98
99	return $s
100	}
101
102	# Report failure when comparing S-record lines
103
104	proc srec_compare_fail { which l1 l2 } {
105	send_log "comparison failure $which:\n$l1\n$l2\n"
106	verbose "comparison failure $which:\n$l1\n$l2"
107	}
108
109	# Compare S-record files. We don't want to fuss about things like
110	# extra zeroes. Note that BFD always sorts S-records by address.
111
112	proc srec_compare { f1 f2 } {
113	set e1 [gets $f1 l1]
114	set e2 [gets $f2 l2]
115
116	while { $e1 != -1 } {
117	set l1 [string trimright $l1 "\r\n"]
118	set l2 [string trimright $l2 "\r\n"]
119	if { $e2 == -1 } {
120	# If l1 contains data, it must be zero.
121	if ![srec_zero $l1] {
122	send_log "data after EOF: $l1\n"
123	verbose "data after EOF: $l1"
124	return 0
125	}
126	} else { if { [string compare $l1 $l2] == 0 } {
127	set e1 [gets $f1 l1]
128	set e2 [gets $f2 l2]
129	} else { if { [srec_zero $l1] } {
130	set e1 [gets $f1 l1]
131	} else { if { [srec_zero $l2] } {
132	set e2 [gets $f2 l2]
133	} else {
134	# The strings are not the same, and neither is all zeroes.
135	set a1 [srec_addr $l1]
136	set n1 [srec_len $l1]
137	set a2 [srec_addr $l2]
138	set n2 [srec_len $l2]
139
140	if { $a1 < $a2 && ![srec_zero_range $l1 0 [expr $a2 - $a1]] } {
141	verbose "$a1 $a2 [srec_extract $l1 0 [expr $a2 - $a1]]" 2
142	srec_compare_fail 1 $l1 $l2
143	return 0
144	}
145	if { $a2 < $a1 && ![srec_zero_range $l2 0 [expr $a1 - $a2]] } {
146	srec_compare_fail 2 $l1 $l2
147	return 0
148	}
149
150	# Here we know that any initial data in both lines is
151	# zero. Now make sure that any overlapping data matches.
152	if { $a1 < $a2 } {
153	set os1 [expr $a2 - $a1]
154	set os2 0
155	} else {
156	set os1 0
157	set os2 [expr $a1 - $a2]
158	}
159	if { $a1 + $n1 < $a2 + $n2 } {
160	set ol [expr $n1 - $os1]
161	} else {
162	set ol [expr $n2 - $os2]
163	}
164
165	set x1 [srec_extract $l1 $os1 $ol]
166	set x2 [srec_extract $l2 $os2 $ol]
167	if { [string compare $x1 $x2] != 0 } {
168	verbose "$os1 $ol $x1" 2
169	verbose "$os2 $ol $x2" 2
170	srec_compare_fail 3 $l1 $l2
171	return 0
172	}
173
174	# These strings match. Trim the data from the larger
175	# string, read a new copy of the smaller string, and
176	# continue.
177	if { $a1 + $n1 < $a2 + $n2 } {
178	set l2 [srec_trim $l2 [expr ($a2 + $n2) - ($a1 + $n1)]]
179	set e1 [gets $f1 l1]
180	} else { if { $a1 + $n1 > $a2 + $n2 } {
181	set l1 [srec_trim $l1 [expr ($a1 + $n1) - ($a2 + $n2)]]
182	set e2 [gets $f2 l2]
183	} else {
184	set e1 [gets $f1 l1]
185	set e2 [gets $f2 l2]
186	} }
187	} } } }
188	}
189
190	# We've reached the end of the first file. The remainder of the
191	# second file must contain only zeroes.
192	while { $e2 != -1 } {
193	set l2 [string trimright $l2 "\r\n"]
194	if ![srec_zero $l2] {
195	send_log "data after EOF: $l2\n"
196	verbose "data after EOF: $l2"
197	return 0
198	}
199	set e2 [gets $f2 l2]
200	}
201
202	return 1
203	}
204
205	# Link twice, objcopy, and compare
206
207	proc run_srec_test { test objs } {
208	global ld
209	global objcopy
210	global sizeof_headers
211	global host_triplet
212
213	set flags ""
214
215	# If the linker script uses SIZEOF_HEADERS, use a -Ttext argument
216	# to force both the normal link and the S-record link to be put in
217	# the same place. We don't always use -Ttext because it interacts
218	# poorly with a.out.
219
220	if { $sizeof_headers } {
221	set flags "$flags -Ttext 0x1000"
222	}
223
224	# The a29k compiled code calls V_SPILL and V_FILL. Since we don't
225	# need to run this code, but we don't have definitions for those
226	# functions, we just define them out.
227	if [istarget a29k--*] {
228	set flags "$flags --defsym V_SPILL=0 --defsym V_FILL=0"
229	}
230
bad19f8f NC	231	if {[istarget arm--*] \|\| \
	232	[istarget strongarm--*] \|\| \
	233	[istarget xscale--*] \|\| \
	234	[istarget thumb--] } {
252b5132	235
bad19f8f NC	236	# ARM targets call __gccmain
	237	set flags "$flags --defsym __gccmain=0"
	238
	239	# ARM targets cannot convert format in the linker
	240	# using the -oformat command line switch
	241	setup_xfail "arm--"
	242	setup_xfail "xscale--"
	243	setup_xfail "thumb--"
252b5132 RH	244	}
	245
	246	# PowerPC EABI code calls __eabi.
	247	if [istarget powerpc--eabi*] {
	248	set flags "$flags --defsym __eabi=0"
	249	}
	250
	251	# mn10200 code calls __truncsipsi2_d0_d2.
	252	if {[istarget mn10200--*]} then {
	253	set flags "$flags --defsym __truncsipsi2_d0_d2=0"
	254	}
	255
	256	# V850 targets need libgcc.a
	257	if [istarget v850--elf] {
	258	set objs "$objs -L ../gcc -lgcc"
	259	}
	260
	261	if { ![ld_simple_link $ld tmpdir/sr1 "$flags $objs"] \
	262	\|\| ![ld_simple_link $ld tmpdir/sr2.sr "$flags -oformat srec $objs"] } {
	263	setup_xfail "hppa--elf"
	264	fail $test
	265	return
	266	}
	267
	268	send_log "$objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr\n"
	269	verbose "$objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr"
	270	catch "exec $objcopy -O srec tmpdir/sr1 tmpdir/sr1.sr" exec_output
	271	set exec_output [prune_warnings $exec_output]
	272	if ![string match "" $exec_output] {
	273	send_log "$exec_output\n"
	274	verbose "$exec_output"
	275	unresolved $test
	276	return
	277	}
	278
	279	set f1 [open tmpdir/sr1.sr r]
	280	set f2 [open tmpdir/sr2.sr r]
	281	if [srec_compare $f1 $f2] {
	282	pass $test
	283	} else {
	284	fail $test
	285	}
	286	close $f1
	287	close $f2
	288	}
	289
	290	set test1 "S-records"
	291	set test2 "S-records with constructors"
	292
	293	# See whether the default linker script uses SIZEOF_HEADERS.
	294	catch "exec $ld --verbose" exec_output
	295	set sizeof_headers [string match "SIZEOF_HEADERS" $exec_output]
	296
	297	# First test linking a C program. We don't require any libraries. We
	298	# link it normally, and objcopy to the S-record format, and then link
	299	# directly to the S-record format, and require that the two files
	300	# contain the same data.
	301
	302	if { [which $CC] == 0 } {
	303	untested $test1
	304	untested $test2
	305	return
	306	}
	307
308	if { ![ld_compile $CC $srcdir/$subdir/sr1.c tmpdir/sr1.o] \
309	\|\| ![ld_compile $CC $srcdir/$subdir/sr2.c tmpdir/sr2.o] } {
310	unresolved $test1
311	unresolved $test2
312	return
313	}
314
315	# The i386-aout target is confused: the linker does not put the
316	# sections where objdump finds them. I don't know which is wrong.
317	setup_xfail "i86--aout*"
318
319	# These tests fail on the native MIPS ELF targets because the GP value
320	# in the .reginfo section is not updated when the S-record version is
321	# written out. The mips-elf target itself does not use a .reginfo section.
322	setup_xfail "mips--irix5" "mips--irix6"
323
324	# The S-record linker doesn't do the magic TOC handling that XCOFF
325	# linkers do.
326	setup_xfail "--aix" "--xcoff"
327
328	# The S-record linker doesn't build ARM/Thumb stubs.
329	setup_xfail "arm-*-coff"
bad19f8f NC	330	setup_xfail "strongarm--coff"
bad19f8f NC	331	setup_xfail "xscale--coff"
252b5132 RH	332	setup_xfail "arm--pe"
	333	# setup_xfail "arm-elf"
	334	setup_xfail "thumb--coff"
	335	setup_xfail "thumb--pe"
	336	setup_xfail "thumb--elf"
abdbda5e	337	setup_xfail "arm--linux*"
252b5132 RH	338
	339	# The S-record linker doesn't build special EABI sections.
	340	setup_xfail "powerpc--eabi*"
	341
	342	# The S-record linker doesn't include the .{zda} sections.
	343	setup_xfail "v850--elf"
	344
	345	# The S-record linker doesn't handle Alpha Elf relaxation.
	346	setup_xfail "alpha--elf" "alpha--linux-gnu" "alpha--gnu*"
	347	setup_xfail "alpha--netbsd*"
	348
36a3dc51 AM	349	# The S-record linker hasn't any hope of coping with HPPA relocs.
	350	setup_xfail "hppa--*"
	351
69f868fa DD	352	# The S-record linker doesn't support the special PE headers - the PE
	353	# emulation tries to write pe-specific information to the PE headers
	354	# in the output bfd, but it's not a PE bfd (it's an srec bfd)
	355	setup_xfail "--cygwin" "--mingw" "--pe" "--winnt"
	356
252b5132 RH	357	run_srec_test $test1 "tmpdir/sr1.o tmpdir/sr2.o"
	358
	359	# Now try linking a C++ program with global constructors and
	360	# destructors. Note that since we are not linking against any
	361	# libraries, this program won't actually work or anything.
	362
	363	if { [which $CXX] == 0 } {
	364	untested $test2
	365	return
	366	}
	367
	368	if ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir/$subdir/sr3.cc tmpdir/sr3.o] {
	369	unresolved $test2
	370	return
	371	}
	372
	373	# See above.
	374	setup_xfail "i86--aout*"
	375	setup_xfail "mips--irix5" "mips--irix6"
	376	setup_xfail "--aix" "--xcoff"
abdbda5e NC	377	setup_xfail "arm--*"
abdbda5e NC	378	setup_xfail "strongarm--*"
252b5132 RH	379	setup_xfail "thumb--"
	380	setup_xfail "powerpc--eabi*"
	381	setup_xfail "v850--elf"
	382	setup_xfail "alpha--elf" "alpha--linux-gnu" "alpha--gnu*"
	383	setup_xfail "alpha--netbsd*"
36a3dc51	384	setup_xfail "hppa--*"
69f868fa	385	setup_xfail "--cygwin" "--mingw" "--pe" "--winnt"
252b5132 RH	386
252b5132 RH	387	run_srec_test $test2 "tmpdir/sr3.o"