#
-# Copyright 1993, 1994, 1995, 1997, 1999, 2000, 2002, 2005
-# Free Software Foundation, Inc.
+# Copyright (C) 1993-2021 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
+# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
#
# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
#
#
send_user "Version [binutil_version $OBJDUMP]"
if {![binutils_assemble $srcdir/$subdir/entrymask.s tmpdir/entrymask.o]} then {
- return
-}
-
-if [is_remote host] {
- set objfile [remote_download host tmpdir/entrymask.o]
+ fail "entrymask test (assembling)"
} else {
- set objfile tmpdir/entrymask.o
-}
-#
-# We check both function entry points. The second one at offset 2 will
-# show up automatically on ELF targets, but needs to be set on a.out
-# targets.
-#
-set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -d -M entry:0x0 -M entry:2 $objfile"]
-set want1 "\[ \]+0:\[ \]+10 01\[ \]+\\.word 0x0110.\*r8 r4"
-set want2 "\[ \]+2:\[ \]+24 02\[ \]+\\.word 0x0224.\*r9 r5 r2"
-if [regexp $want1 $got] then {
- pass "entrymask test 1"
-} else {
- fail "entrymask test 1"
-}
-if [regexp $want2 $got] then {
- pass "entrymask test 2"
-} else {
- fail "entrymask test 2"
+ if [is_remote host] {
+ set objfile [remote_download host tmpdir/entrymask.o]
+ } else {
+ set objfile tmpdir/entrymask.o
+ }
+
+ #
+ # We check both function entry points. The second one at offset 2 will
+ # show up automatically on ELF targets, but needs to be set on a.out
+ # targets.
+ #
+ set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -d -M entry:0x0 -M entry:2 $objfile"]
+ set want1 "\[ \]+0:\[ \]+10 01\[ \]+\\.word 0x0110.\*r8 r4"
+ set want2 "\[ \]+2:\[ \]+24 02\[ \]+\\.word 0x0224.\*r9 r5 r2"
+ if [regexp $want1 $got] then {
+ pass "entrymask test 1"
+ } else {
+ fail "entrymask test 1"
+ }
+ if [regexp $want2 $got] then {
+ pass "entrymask test 2"
+ } else {
+ fail "entrymask test 2"
+ }
}