From 40a825c3105b48b6517d8db7d35cec09ef57faf2 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@redhat.com>
Date: Sat, 28 Aug 1999 06:26:22 +0000
Subject: [PATCH]         * binutils-all/hppa/freg.s:  New file.         *
 binutils-all/hppa/objdump.exp:  Add freg.s test.

---
 binutils/testsuite/ChangeLog                  |  5 ++++
 binutils/testsuite/binutils-all/hppa/freg.s   | 23 ++++++++++++++++
 .../testsuite/binutils-all/hppa/objdump.exp   | 26 +++++++++++++++++++
 3 files changed, 54 insertions(+)
 create mode 100644 binutils/testsuite/binutils-all/hppa/freg.s

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index be156b144c4..8230d60e5e7 100644
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sat Aug 28 00:24:27 1999  Jerry Quinn <jquinn@nortelnetworks.com>
+
+	* binutils-all/hppa/freg.s:  New file.
+	* binutils-all/hppa/objdump.exp:  Add freg.s test.
+
 1999-08-09  Ian Lance Taylor  <ian@zembu.com>
 
 	* binutils-all/objcopy.exp: Add setup_xfail for simple copy test
diff --git a/binutils/testsuite/binutils-all/hppa/freg.s b/binutils/testsuite/binutils-all/hppa/freg.s
new file mode 100644
index 00000000000..501e10f937d
--- /dev/null
+++ b/binutils/testsuite/binutils-all/hppa/freg.s
@@ -0,0 +1,23 @@
+	.LEVEL 2.0
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+	.SPACE $TEXT$
+	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+	.IMPORT $global$,DATA
+	.IMPORT $$dyncall,MILLICODE
+; gcc_compiled.:
+	.SPACE $TEXT$
+	.SUBSPA $CODE$
+
+	.align 4
+	.NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+	.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
+main
+	.PROC
+	.CALLINFO FRAME=64,CALLS,SAVE_RP
+	.ENTRY
+	fmpyfadd,sgl %fr4L,%fr4R,%fr5R,%fr5L
+	.EXIT
+	.PROCEND
diff --git a/binutils/testsuite/binutils-all/hppa/objdump.exp b/binutils/testsuite/binutils-all/hppa/objdump.exp
index a46b289769a..da0be67277b 100644
--- a/binutils/testsuite/binutils-all/hppa/objdump.exp
+++ b/binutils/testsuite/binutils-all/hppa/objdump.exp
@@ -57,3 +57,29 @@ if [regexp $want $got] then {
 } else {
     fail "addendbug test"
 }
+
+###########################
+# Set up the test of freg.s
+###########################
+
+if {![binutils_assemble $srcdir/$subdir/freg.s tmpdir/freg.o]} then {
+    return
+}
+
+if [is_remote host] {
+    set objfile [remote_download host tmpdir/freg.o]
+} else {
+    set objfile tmpdir/freg.o
+}
+
+# Make sure that we get R float regs like we're supposed to
+
+set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble $objfile"]
+
+set want "fmpyfadd,sgl fr4,fr4R,fr5R,fr5"
+
+if [regexp $want $got] then {
+    pass "freg test"
+} else {
+    fail "freg test"
+}
-- 
2.30.2