* ld-cris: New testsuite directory.

4 files changed, 49 insertions, 0 deletions

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 677ff8c..720fe8e 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-21  Hans-Peter Nilsson  <hp@axis.com>
+
+	* ld-cris: New testsuite directory.
+
 2002-01-15  Nick Clifton  <nickc@cambridge.redhat.com>
 
 	* ld-sh/sh.exp: Copy start.s file into test directory.
diff --git a/ld/testsuite/ld-cris/badgotr1.d b/ld/testsuite/ld-cris/badgotr1.d
new file mode 100644
index 0000000..c5fd116
--- /dev/null
+++ b/ld/testsuite/ld-cris/badgotr1.d
@@ -0,0 +1,11 @@
+#source: gotrel1.s
+#as: --pic
+#ld: -m crislinux -shared
+#objdump: -dr
+#error: ^[^c][^h][^i][^l][^d].* uses _-prefixed .* failed to merge .* no GOT .* Bad value$
+
+# The error regex above is supposed to not match if we get a
+# SEGV, in which case we'll see "child killed: segmentation
+# violation", supposedly at the beginning (seen) or end (in
+# theory) of it.  The input ELF type (with underscores on
+# symbols) mismatches the output type (no underscores).
diff --git a/ld/testsuite/ld-cris/cris.exp b/ld/testsuite/ld-cris/cris.exp
new file mode 100644
index 0000000..296f703
--- /dev/null
+++ b/ld/testsuite/ld-cris/cris.exp
@@ -0,0 +1,30 @@
+# Expect script for ld-cris tests
+#   Copyright 2002 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 Hans-Peter Nilsson (hp@axis.com)
+#
+
+if ![istarget cris-*-*] {
+    return
+}
+
+set rd_test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
+foreach atest $rd_test_list {
+    # We need to strip the ".d", but can leave the dirname.
+    verbose [file rootname $atest]
+    run_dump_test [file rootname $atest]
+}
diff --git a/ld/testsuite/ld-cris/gotrel1.s b/ld/testsuite/ld-cris/gotrel1.s
new file mode 100644
index 0000000..68f035d
--- /dev/null
+++ b/ld/testsuite/ld-cris/gotrel1.s
@@ -0,0 +1,4 @@
+	.global _start
+_start:
+localsym:
+	move.d	localsym:GOTOFF,$r3