aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeff Law <law@redhat.com>1999-08-28 06:26:22 +0000
committerJeff Law <law@redhat.com>1999-08-28 06:26:22 +0000
commit40a825c3105b48b6517d8db7d35cec09ef57faf2 (patch)
tree104b9fc9e8cbf11717dafea5e98f39d1e19d25a3
parent0791df6ce389671fa80ddbac24c539a9c7b0aa95 (diff)
downloadgdb-40a825c3105b48b6517d8db7d35cec09ef57faf2.zip
gdb-40a825c3105b48b6517d8db7d35cec09ef57faf2.tar.gz
gdb-40a825c3105b48b6517d8db7d35cec09ef57faf2.tar.bz2
* binutils-all/hppa/freg.s: New file.
* binutils-all/hppa/objdump.exp: Add freg.s test.
-rw-r--r--binutils/testsuite/ChangeLog5
-rw-r--r--binutils/testsuite/binutils-all/hppa/freg.s23
-rw-r--r--binutils/testsuite/binutils-all/hppa/objdump.exp26
3 files changed, 54 insertions, 0 deletions
diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index be156b1..8230d60 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 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 a46b289..da0be67 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"
+}