PATCH: New testcases (Linker is broken)

[H. J. Lu]

On Fri, May 14, 2004 at 03:40:22PM +0200, Jakub Jelinek wrote:
> On Fri, May 14, 2004 at 08:25:47AM -0700, H. J. Lu wrote:
> > I will create testcases for those problems. In the mean time, I will
> > apply your patch to my Linux binutils until the problem is properly
> > fixed.
> 

Here are new testcases.


H.J.
-------------- next part --------------
2004-05-14  H.J. Lu  <hongjiu.lu@intel.com>

	* ld-elf/frame.exp: New file. Test read-only .eh_frame and
	.gcc_except_table sections.
	* ld-elf/frame.s: Likewise.
	* ld-elf/table.s: Likewise.
	* ld-elf/tbss.s: Likewise.

--- ld/testsuite/ld-elf/frame.exp.except	2004-05-14 09:59:47.000000000 -0700
+++ ld/testsuite/ld-elf/frame.exp	2004-05-14 09:59:19.000000000 -0700
@@ -0,0 +1,55 @@
+# Expect script for common symbol tests
+#   Copyright 2004 Free Software Foundation, Inc.
+#
+# This file 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.
+#
+# Written by H.J. Lu (hongjiu.lu@intel.com)
+#
+
+# Make sure that ld correctly handles frame sections in ELF.
+
+# This test can only be run on ELF platforms.
+if ![is_elf_format] {
+    return
+}
+
+set test1	"read-only .eh_frame section"
+set test2	"read-only .gcc_except_table section"
+
+global as
+global ld
+
+if { ![ld_assemble $as $srcdir/$subdir/tbss.s tmpdir/tbss.o ]
+     || ![ld_assemble $as $srcdir/$subdir/frame.s tmpdir/frame.o] } {
+    unresolved "$test1"
+    return
+}
+
+if { [ld_simple_link $ld tmpdir/frame.so "--shared tmpdir/frame.o tmpdir/tbss.o"] } {
+    pass "$test1"
+} else {
+    fail "$test1"
+}
+
+if ![ld_assemble $as $srcdir/$subdir/table.s tmpdir/table.o ] {
+    unresolved "$test2"
+    return
+}
+
+if { [ld_simple_link $ld tmpdir/table.so "--shared tmpdir/table.o tmpdir/tbss.o"] } {
+    pass "$test2"
+} else {
+    fail "$test2"
+}
--- ld/testsuite/ld-elf/frame.s.except	2004-05-14 09:59:47.000000000 -0700
+++ ld/testsuite/ld-elf/frame.s	2004-05-14 09:53:33.000000000 -0700
@@ -0,0 +1 @@
+	.section	.eh_frame,"a",@progbits
--- ld/testsuite/ld-elf/table.s.except	2004-05-14 09:59:47.000000000 -0700
+++ ld/testsuite/ld-elf/table.s	2004-05-14 09:53:33.000000000 -0700
@@ -0,0 +1 @@
+	.section	.gcc_except_table,"a",@progbits
--- ld/testsuite/ld-elf/tbss.s.except	2004-05-14 09:59:47.000000000 -0700
+++ ld/testsuite/ld-elf/tbss.s	2004-05-14 09:53:33.000000000 -0700
@@ -0,0 +1,15 @@
+	.file	"x.c"
+.globl bss
+	.section	.bss,"aw",@nobits
+	.align 4096
+	.type	bss,@object
+	.size	bss,4096
+bss:
+	.zero	4096
+.globl tbss
+	.section	.tbss,"awT",@nobits
+	.align 4096
+	.type	tbss,@object
+	.size	tbss,4096
+tbss:
+	.zero	4096