1 # Copyright (C) 2004-2016 Free Software Foundation, Inc. 2 3 # This program is free software; you can redistribute it and/or modify 4 # it under the terms of the GNU General Public License as published by 5 # the Free Software Foundation; either version 3 of the License, or 6 # (at your option) any later version. 7 # 8 # This program is distributed in the hope that it will be useful, 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11 # GNU General Public License for more details. 12 # 13 # You should have received a copy of the GNU General Public License 14 # along with this program; if not, write to the Free Software 15 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. 16 17 if {![istarget "m68*-*-*"] || [istarget "m68h*-*-*"] || [istarget "m681*-*-*"]} then { 18 return 19 } 20 21 if {[which $OBJDUMP] == 0} then { 22 perror "$OBJDUMP does not exist" 23 return 24 } 25 26 send_user "Version [binutil_version $OBJDUMP]" 27 28 ########################### 29 # Set up the test of movem.s 30 ########################### 31 32 if {![binutils_assemble $srcdir/$subdir/movem.s tmpdir/movem.o]} then { 33 return 34 } 35 36 if [is_remote host] { 37 set objfile [remote_download host tmpdir/movem.o] 38 } else { 39 set objfile tmpdir/movem.o 40 } 41 42 # Make sure that the movem is correctly decoded. 43 44 set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble $objfile"] 45 46 set want "moveml %d0-%d3,%sp@-.*moveml %d0-%d3,%sp@\[\r\n\]" 47 48 if [regexp $want $got] then { 49 pass "movem test" 50 } else { 51 fail "movem test" 52 } 53 54 ########################### 55 # Set up the test of fnop.s 56 ########################### 57 58 if {![binutils_assemble $srcdir/$subdir/fnop.s tmpdir/fnop.o]} then { 59 return 60 } 61 62 if [is_remote host] { 63 set objfile [remote_download host tmpdir/fnop.o] 64 } else { 65 set objfile tmpdir/fnop.o 66 } 67 68 # Make sure that fnop is decoded as fnop, not fbf. 69 70 set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble $objfile"] 71 72 set want "fnop *\[\r\n\]" 73 74 if [regexp $want $got] then { 75 pass "fnop test" 76 } else { 77 fail "fnop test" 78 } 79