mirrors/binutils-gdb
0
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-12-01 05:55:23 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* binutils-all/hppa/objdump.exp:  Add freg.s test.
This commit is contained in:
Jeff Law 1999-08-28 06:26:22 +00:00
parent 0791df6ce3
commit 40a825c310
3 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
binutils/testsuite/ChangeLog
View File

@ -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

23
binutils/testsuite/binutils-all/hppa/freg.s Normal file
View File

@ -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

26
binutils/testsuite/binutils-all/hppa/objdump.exp
View File

@ -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"
}