* binutils-hppa/addendbug.s: New testcase.
* binutils-hppa/objdump.exp: Run it.
This commit is contained in:
parent
9f2c5c9751
commit
973f38b69e
@ -1,3 +1,8 @@
|
||||
Tue Mar 21 10:48:45 1995 Jeff Law (law@snake.cs.utah.edu)
|
||||
|
||||
* binutils-hppa/addendbug.s: New testcase.
|
||||
* binutils-hppa/objdump.exp: Run it.
|
||||
|
||||
Mon Mar 20 11:31:05 1995 Ian Lance Taylor <ian@cygnus.com>
|
||||
|
||||
* lib/utils-lib.exp (default_binutils_run): Quote any dollar signs
|
||||
|
36
binutils/testsuite/binutils-all/hppa/.Sanitize
Normal file
36
binutils/testsuite/binutils-all/hppa/.Sanitize
Normal file
@ -0,0 +1,36 @@
|
||||
# .Sanitize for deja-gnu.
|
||||
|
||||
# Each directory to survive it's way into a release will need a file
|
||||
# like this one called "./.Sanitize". All keyword lines must exist,
|
||||
# and must exist in the order specified by this file. Each directory
|
||||
# in the tree will be processed, top down, in the following order.
|
||||
|
||||
# Hash started lines like this one are comments and will be deleted
|
||||
# before anything else is done. Blank lines will also be squashed
|
||||
# out.
|
||||
|
||||
# The lines between the "Do-first:" line and the "Things-to-keep:"
|
||||
# line are executed as a /bin/sh shell script before anything else is
|
||||
# done in this directory.
|
||||
|
||||
Do-first:
|
||||
|
||||
# All files listed between the "Things-to-keep:" line and the
|
||||
# "Do-last:" line will be kept. All other files will be removed.
|
||||
# Directories listed in this section will have their own Sanitize
|
||||
# called. Directories not listed will be removed in their entirety
|
||||
# with rm -rf.
|
||||
|
||||
Things-to-keep:
|
||||
|
||||
addendbug.s
|
||||
objdump.exp
|
||||
|
||||
Things-to-lose:
|
||||
|
||||
# The lines between the "Do-last:" line and the end of the file
|
||||
# are executed as a /bin/sh shell script after everything else is
|
||||
# done.
|
||||
|
||||
Do-last:
|
||||
|
23
binutils/testsuite/binutils-all/hppa/addendbug.s
Normal file
23
binutils/testsuite/binutils-all/hppa/addendbug.s
Normal file
@ -0,0 +1,23 @@
|
||||
.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
|
||||
.EXPORT initialize_char_syntax,CODE
|
||||
.EXPORT initialize_char_syntax,ENTRY,PRIV_LEV=3,RTNVAL=GR
|
||||
initialize_char_syntax
|
||||
.PROC
|
||||
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
|
||||
.ENTRY
|
||||
addil L'is_idchar-$global$-32,%r27
|
||||
.EXIT
|
||||
.PROCEND
|
||||
is_idchar .comm 256
|
48
binutils/testsuite/binutils-all/hppa/objdump.exp
Normal file
48
binutils/testsuite/binutils-all/hppa/objdump.exp
Normal file
@ -0,0 +1,48 @@
|
||||
# Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||||
|
||||
# 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 2 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; if not, write to the Free Software
|
||||
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
# Please email any bugs, comments, and/or additions to this file to:
|
||||
# bug-dejagnu@prep.ai.mit.edu
|
||||
|
||||
# This file was written by Rob Savoye <rob@cygnus.com>
|
||||
# and rewritten by Ian Lance Taylor <ian@cygnus.com>
|
||||
|
||||
if [istarget hppa*-*-*] then {
|
||||
return
|
||||
}
|
||||
|
||||
if {[which $OBJDUMP] == 0} then {
|
||||
perror "$OBJDUMP does not exist"
|
||||
return
|
||||
}
|
||||
|
||||
send_user "Version [binutil_version $OBJDUMP]"
|
||||
|
||||
if {![binutils_assemble $AS $srcdir$subdir/addendbug.s tmpdir/addendbug.o]} then {
|
||||
return
|
||||
}
|
||||
|
||||
# Make sure the SOM BFD code sign extends constants in R_DATA_OVERRIDE fixups.
|
||||
|
||||
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -r tmpdir/addendbug.o"]
|
||||
|
||||
set want "00000000 R_DP_RELATIVE\[ \]+is_idchar\\+0xffffffe0.*"
|
||||
|
||||
if [regexp $want $got] then {
|
||||
pass "addendbug test"
|
||||
} else {
|
||||
fail "addendbug test"
|
||||
}
|
Loading…
Reference in New Issue
Block a user