478 lines
9.8 KiB
Text
478 lines
9.8 KiB
Text
|
|
# Copyright (C) 1997 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
# Please email any bugs, comments, and/or additions to this file to:
|
|
# bug-gdb@prep.ai.mit.edu
|
|
|
|
# This file was written by Jeff Law. (law@cygnus.com)
|
|
|
|
if $tracelevel then {
|
|
strace $tracelevel
|
|
}
|
|
|
|
if ![istarget "mn10200*-*-*"] {
|
|
verbose "Tests ignored for all but mn10200 based targets."
|
|
return
|
|
}
|
|
|
|
global exec_output
|
|
set prms_id 0
|
|
set bug_id 0
|
|
|
|
set testfile "mn10200"
|
|
set srcfile ${srcdir}/${subdir}/${testfile}.s
|
|
set binfile ${objdir}/${subdir}/${testfile}
|
|
if { [gdb_compile "${srcfile}" "${binfile}" executable ""] != "" } {
|
|
gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
|
|
}
|
|
|
|
proc add_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/12i add_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*add d1,d2.*
|
|
.*add d2,a3.*
|
|
.*add a2,d1.*
|
|
.*add a3,a2.*
|
|
.*add 16,d1.*
|
|
.*add 256,d2.*
|
|
.*add 131071,d3.*
|
|
.*add 16,a1.*
|
|
.*add 256,a2.*
|
|
.*add 131071,a3.*
|
|
.*addc d1,d2.*
|
|
.*addnf 16,a2.*
|
|
.*$gdb_prompt $" { pass "add tests" }
|
|
-re "$gdb_prompt $" { fail "add tests" }
|
|
timeout { fail "(timeout) add tests" }
|
|
}
|
|
}
|
|
|
|
proc bcc_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/15i bCC_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*beq 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bne 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bgt 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bge 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*ble 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*blt 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bhi 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bcc 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bls 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bcs 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bvc 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bvs 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bnc 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bns 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*bra 0x\[0-9a-f]+ <bCC_tests>.*
|
|
.*$gdb_prompt $" { pass "bCC tests" }
|
|
-re "$gdb_prompt $" { fail "bCC tests" }
|
|
timeout { fail "(timeout) bCC tests" }
|
|
}
|
|
}
|
|
|
|
proc bccx_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/14i bCCx_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*beqx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bnex 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bgtx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bgex 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*blex 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bltx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bhix 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bccx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*blsx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bcsx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bvcx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bvsx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bncx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*bnsx 0x\[0-9a-f]+ <bCCx_tests>.*
|
|
.*$gdb_prompt $" { pass "bCCx tests" }
|
|
-re "$gdb_prompt $" { fail "bCCx tests" }
|
|
timeout { fail "(timeout) bCCx tests" }
|
|
}
|
|
}
|
|
|
|
proc bit_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/4 bit_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*btst 64,d1.*
|
|
.*btst 8192,d2.*
|
|
.*bset d1,\\(a2\\).*
|
|
.*bclr d1,\\(a2\\).*
|
|
.*$gdb_prompt $" { pass "bit tests" }
|
|
-re "$gdb_prompt $" { fail "bit tests" }
|
|
timeout { fail "(timeout) bit tests" }
|
|
}
|
|
}
|
|
|
|
proc cmp_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/9i cmp_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*cmp d1,d2.*
|
|
.*cmp d2,a3.*
|
|
.*cmp a3,d3.*
|
|
.*cmp a3,a2.*
|
|
.*cmp 16,d3.*
|
|
.*cmp 256,d2.*
|
|
.*cmp 131071,d1.*
|
|
.*cmp 256,a2.*
|
|
.*cmp 131071,a1.*
|
|
.*$gdb_prompt $" { pass "cmp tests" }
|
|
-re "$gdb_prompt $" { fail "cmp tests" }
|
|
timeout { fail "(timeout) cmp tests" }
|
|
}
|
|
}
|
|
|
|
proc extend_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/5i extend_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*ext d1.*
|
|
.*extx d2.*
|
|
.*extxu d3.*
|
|
.*extxb d2.*
|
|
.*extxbu d1.*
|
|
.*$gdb_prompt $" { pass "extend tests" }
|
|
-re "$gdb_prompt $" { fail "extend tests" }
|
|
timeout { fail "(timeout) extend tests" }
|
|
}
|
|
}
|
|
|
|
proc logical_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/11i logical_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*and d1,d2.*
|
|
.*and 127,d2.*
|
|
.*and 32767,d3.*
|
|
.*and 32767,psw.*
|
|
.*or d1,d2.*
|
|
.*or 127,d2.*
|
|
.*or 32767,d3.*
|
|
.*or 32767,psw.*
|
|
.*xor d1,d2.*
|
|
.*xor 32767,d3.*
|
|
.*not d3.*
|
|
.*$gdb_prompt $" { pass "logical tests" }
|
|
-re "$gdb_prompt $" { fail "logical tests" }
|
|
timeout { fail "(timeout) logical tests" }
|
|
}
|
|
}
|
|
|
|
proc mov_tests_1 { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/12i mov_tests_1\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*mov d1,a2.*
|
|
.*mov a2,d1.*
|
|
.*mov d1,d2.*
|
|
.*mov a2,a1.*
|
|
.*mov psw,d3.*
|
|
.*mov d2,psw.*
|
|
.*mov mdr,d1.*
|
|
.*mov d2,mdr.*
|
|
.*mov \\(a2\\),d1.*
|
|
.*mov \\(8,a2\\),d1.*
|
|
.*mov \\(256,a2\\),d1.*
|
|
.*mov \\(131071,a2\\),d1.*
|
|
.*$gdb_prompt $" { pass "mov1 tests" }
|
|
-re "$gdb_prompt $" { fail "mov1 tests" }
|
|
timeout { fail "(timeout) mov1 tests" }
|
|
}
|
|
}
|
|
|
|
proc mov_tests_2 { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/9 mov_tests_2\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*mov \\(d1,a1\\),d2.*
|
|
.*mov \\(0x8000.*\\),d1.*
|
|
.*mov \\(0x1ffff.*\\),d1.*
|
|
.*mov \\(8,a2\\),a1.*
|
|
.*mov \\(256,a2\\),a1.*
|
|
.*mov \\(131071,a2\\),a1.*
|
|
.*mov \\(d1,a1\\),a2.*
|
|
.*mov \\(0x8000.*\\),a1.*
|
|
.*mov \\(0x1ffff.*\\),a1.*
|
|
.*$gdb_prompt $" { pass "mov2 tests" }
|
|
-re "$gdb_prompt $" { fail "mov2 tests" }
|
|
timeout { fail "(timeout) mov2 tests" }
|
|
}
|
|
}
|
|
|
|
proc mov_tests_3 { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/10 mov_tests_3\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*mov d1,\\(a2\\).*
|
|
.*mov d1,\\(32,a2\\).*
|
|
.*mov d1,\\(256,a2\\).*
|
|
.*mov d1,\\(131071,a2\\).*
|
|
.*mov d1,\\(d2,a2\\).*
|
|
.*mov d1,\\(0x80.*\\).*
|
|
.*mov d1,\\(0x1ffff.*\\).*
|
|
.*mov a1,\\(32,a2\\).*
|
|
.*mov a1,\\(256,a2\\).*
|
|
.*mov a1,\\(131071,a2\\).*
|
|
.*$gdb_prompt $" { pass "mov3 tests" }
|
|
-re "$gdb_prompt $" { fail "mov3 tests" }
|
|
timeout { fail "(timeout) mov3 tests" }
|
|
}
|
|
}
|
|
|
|
proc mov_tests_4 { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/8 mov_tests_4\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*mov a1,\\(d2,a2\\).*
|
|
.*mov a1,\\(0x80.*\\).*
|
|
.*mov a1,\\(0x1ffff.*\\).*
|
|
.*mov 8,d1.*
|
|
.*mov 256,d1.*
|
|
.*mov 131071,d1.*
|
|
.*mov 256,a1.*
|
|
.*mov 131071,a1.*
|
|
.*$gdb_prompt $" { pass "mov4 tests" }
|
|
-re "$gdb_prompt $" { fail "mov4 tests" }
|
|
timeout { fail "(timeout) mov4 tests" }
|
|
}
|
|
}
|
|
|
|
proc movb_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/12 movb_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*movb \\(8,a2\\),d1.*
|
|
.*movb \\(256,a2\\),d1.*
|
|
.*movb \\(131071,a2\\),d1.*
|
|
.*movb \\(d2,a2\\),d3.*
|
|
.*movb \\(0x1ffff.*\\),d2.*
|
|
.*movb d1,\\(a2\\).*
|
|
.*movb d1,\\(8,a2\\).*
|
|
.*movb d1,\\(256,a2\\).*
|
|
.*movb d1,\\(131071,a2\\).*
|
|
.*movb d1,\\(d2,a2\\).*
|
|
.*movb d1,\\(0x100.*\\).*
|
|
.*movb d1,\\(0x1ffff.*\\).*
|
|
.*$gdb_prompt $" { pass "movb tests" }
|
|
-re "$gdb_prompt $" { fail "movb tests" }
|
|
timeout { fail "(timeout) movb tests" }
|
|
}
|
|
}
|
|
|
|
proc movbu_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/7 movbu_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*movbu \\(a2\\),d1.*
|
|
.*movbu \\(8,a2\\),d1.*
|
|
.*movbu \\(256,a2\\),d1.*
|
|
.*movbu \\(131071,a2\\),d1.*
|
|
.*movbu \\(d1,a1\\),d2.*
|
|
.*movbu \\(0x8000.*\\),d1.*
|
|
.*movbu \\(0x1ffff.*\\),d1.*
|
|
.*$gdb_prompt $" { pass "movbu tests" }
|
|
-re "$gdb_prompt $" { fail "movbu tests" }
|
|
timeout { fail "(timeout) movbu tests" }
|
|
}
|
|
}
|
|
|
|
proc movx_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/6 movx_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*movx \\(8,a2\\),d1.*
|
|
.*movx \\(256,a2\\),d1.*
|
|
.*movx \\(131071,a2\\),d1.*
|
|
.*movx d1,\\(8,a2\\).*
|
|
.*movx d1,\\(256,a2\\).*
|
|
.*movx d1,\\(131071,a2\\).*
|
|
.*$gdb_prompt $" { pass "movx tests" }
|
|
-re "$gdb_prompt $" { fail "movx tests" }
|
|
timeout { fail "(timeout) movx tests" }
|
|
}
|
|
}
|
|
|
|
proc muldiv_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/3 muldiv_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*mul d1,d2.*
|
|
.*mulu d2,d3.*
|
|
.*divu d3,d2.*
|
|
.*$gdb_prompt $" { pass "muldiv tests" }
|
|
-re "$gdb_prompt $" { fail "muldiv tests" }
|
|
timeout { fail "(timeout) muldiv tests" }
|
|
}
|
|
}
|
|
|
|
proc misc_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/9 misc_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*jmp 0x\[0-9a-f]+ <main>.*
|
|
.*jmp 0x\[0-9a-f]+ <start>.*
|
|
.*jmp \\(a2\\).*
|
|
.*jsr 0x\[0-9a-f]+ <main>.*
|
|
.*jsr 0x\[0-9a-f]+ <start>.*
|
|
.*jsr \\(a2\\).*
|
|
.*rts.*
|
|
.*rti.*
|
|
.*nop.*
|
|
.*$gdb_prompt $" { pass "misc tests" }
|
|
-re "$gdb_prompt $" { fail "misc tests" }
|
|
timeout { fail "(timeout) misc tests" }
|
|
}
|
|
}
|
|
|
|
proc shift_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/4i shift_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*asr d2.*
|
|
.*lsr d3.*
|
|
.*ror d1.*
|
|
.*rol d2.*
|
|
.*$gdb_prompt $" { pass "shift tests" }
|
|
-re "$gdb_prompt $" { fail "shift tests" }
|
|
timeout { fail "(timeout) shift tests" }
|
|
}
|
|
}
|
|
|
|
proc sub_tests { } {
|
|
global gdb_prompt
|
|
global hex
|
|
global decimal
|
|
|
|
send_gdb "x/9i sub_tests\n"
|
|
gdb_expect {
|
|
-re "
|
|
.*sub d1,d2.*
|
|
.*sub d2,a3.*
|
|
.*sub a3,d3.*
|
|
.*sub a3,a2.*
|
|
.*sub 32767,d2.*
|
|
.*sub 131071,d2.*
|
|
.*sub 32767,a2.*
|
|
.*sub 131071,a2.*
|
|
.*subc d1,d2.*
|
|
.*$gdb_prompt $" { pass "sub tests" }
|
|
-re "$gdb_prompt $" { fail "sub tests" }
|
|
timeout { fail "(timeout) sub tests" }
|
|
}
|
|
}
|
|
|
|
# Start with a fresh gdb.
|
|
|
|
gdb_exit
|
|
gdb_start
|
|
gdb_reinitialize_dir $srcdir/$subdir
|
|
gdb_load $binfile
|
|
|
|
add_tests
|
|
bcc_tests
|
|
bccx_tests
|
|
bit_tests
|
|
cmp_tests
|
|
extend_tests
|
|
logical_tests
|
|
mov_tests_1
|
|
mov_tests_2
|
|
mov_tests_3
|
|
mov_tests_4
|
|
movb_tests
|
|
movbu_tests
|
|
movx_tests
|
|
muldiv_tests
|
|
misc_tests
|
|
shift_tests
|
|
sub_tests
|