From 633209ca148ec7321696226569bcb59954e827c7 Mon Sep 17 00:00:00 2001
From: "Maciej W. Rozycki" <macro@redhat.com>
Date: Mon, 15 Dec 2025 19:04:30 +0000
Subject: [PATCH] CRIS/LD/testsuite: Add tests for emulation switching

Add tests matching generic ones from ld-archive/archive.exp for explicit
link emulation switching, verifying that correct output is produced from
a link including an archive the format of which is not the default one.

This covers generic BFD code using `cris-aout' and `cris-elf' targets as
ones that permit switching between dissimilar emulations from assembly
through the link.

Only tests for link emulation explicitly specified are included at this
stage, as bugs in BFD currently prevent links from successful completion
that use the default emulation while involving archives in a non-default
format.  Additional tests will be included with a subsequent change that
addresses said bugs.
---
 ld/testsuite/ld-cris/archive.exp | 84 ++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 ld/testsuite/ld-cris/archive.exp

diff --git a/ld/testsuite/ld-cris/archive.exp b/ld/testsuite/ld-cris/archive.exp
new file mode 100644
index 00000000000..49a3ae5d3e8
--- /dev/null
+++ b/ld/testsuite/ld-cris/archive.exp
@@ -0,0 +1,84 @@
+# Test for archive handling, CRIS format switching.
+# Copyright (C) 2025 Free Software Foundation, Inc.
+#
+# This file is part of the GNU Binutils.
+#
+# This program 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 3 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; see the file COPYING3. If not,
+# see <http://www.gnu.org/licenses/>.
+#
+
+if [istarget cris-*-*aout*] {
+    set asemul "--emulation=criself"
+    set aremul "--target=elf32-us-cris"
+    set ldemul "-m criself"
+} elseif { [istarget cris-*-linux*] || [istarget crisv32-*-linux*] } {
+    return
+} elseif { [istarget cris-*-*] || [istarget crisv32-*-*] } {
+    set asemul "--emulation=crisaout"
+    set aremul "--target=a.out-cris"
+    set ldemul "-m crisaout"
+} else {
+    return
+}
+
+remote_file host delete \
+    "tmpdir/ab.a" "tmpdir/abt.a" "tmpdir/abn.a" "tmpdir/abnt.a"
+
+run_ld_link_tests [list \
+    [list "CRIS regular archive create (explicit emulation)" \
+	"$aremul" "" \
+	"$asemul" {../ld-archive/a.s ../ld-archive/b.s ../ld-archive/x.s} \
+	{} \
+	"ab.a"] \
+    [list "CRIS thin archive create (explicit emulation)" \
+	"$aremul T" "" \
+	"$asemul" {../ld-archive/a.s ../ld-archive/b.s ../ld-archive/x.s} \
+	{} \
+	"abt.a"] \
+    [list "CRIS regular archive w/o index create (explicit emulation)" \
+	"$aremul S" "" \
+	"$asemul" {../ld-archive/a.s ../ld-archive/b.s ../ld-archive/x.s} \
+	{} \
+	"abn.a"] \
+    [list "CRIS thin archive w/o index create (explicit emulation)" \
+	"$aremul ST" "" \
+	"$asemul" {../ld-archive/a.s ../ld-archive/b.s ../ld-archive/x.s} \
+	{} \
+	"abnt.a"] \
+]
+
+# Single archive tests.
+run_ld_link_tests [list \
+    [list "CRIS regular archive link (explicit emulation)" \
+	"$ldemul -e ff" "tmpdir/ab.a --verbose --print-map" \
+	"$asemul" {../ld-archive/abc.s} \
+	{{ld ../ld-archive/abc.vd} \
+	 {nm "" ../ld-archive/abc.nd} \
+	 {nm "" ../ld-archive/nx.nd}} \
+	"abcx" \
+    ] \
+]
+if { ![istarget cris-*-*aout*] } {
+    setup_xfail "binutils/33485" "*-*-*"
+}
+run_ld_link_tests [list \
+    [list "CRIS thin archive link (explicit emulation)" \
+	"$ldemul -e ff" "tmpdir/abt.a --verbose --print-map" \
+	"$asemul" {../ld-archive/abc.s} \
+	{{ld ../ld-archive/abtc.vd} \
+	 {nm "" ../ld-archive/abc.nd} \
+	 {nm "" ../ld-archive/nx.nd}} \
+	"abtcx" \
+    ] \
+]
-- 
2.47.3