* binutils-all/hppa/freg.s: New file.

        * binutils-all/hppa/objdump.exp:  Add freg.s test.

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index be156b144c4fac67d694aac09dc6d016810e3ec0..8230d60e5e721b60d879b3f310d0a90cdf9ad8dd 100644 (file)
--- 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 (file)
index 0000000..501e10f
--- /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 a46b289769a6b2c3485ea96894140c3e2ed5e372..da0be67277bbd8c6d9c2afd95e02844ca5a201e9 100644 (file)
--- 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"
+}