Subversion Repositories openrisc

# Copyright 1997, 1998, 2007, 2008 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 3 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, see <http://www.gnu.org/licenses/>.

# 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 "mn10300*-*-*"] {
    verbose "Tests ignored for all but mn10300 based targets."
    return
}

global exec_output
set prms_id 0
set bug_id 0

set testfile "am33"
set srcfile ${srcdir}/${subdir}/${testfile}.s
set binfile ${objdir}/${subdir}/${testfile}
if  { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } {
     untested am33.exp
     return -1
}

proc call_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/8i call_tests\n"
    gdb_expect {
        -re "
.*call  .*,.a2,a3,exreg0.,9.*
.*call  .*,.a2,a3,exreg1.,9.*
.*call  .*,.a2,a3,exother.,9.*
.*call  .*,.d2,d3,a2,a3,other,exreg0,exreg1,exother.,9.*
.*call  .*,.a2,a3,exreg0.,9.*
.*call  .*,.a2,a3,exreg1.,9.*
.*call  .*,.a2,a3,exother.,9.*
.*call  .*,.d2,d3,a2,a3,other,exreg0,exreg1,exother.,9.*
.*$gdb_prompt $" { pass "call tests" }
        -re "$gdb_prompt $" { fail "call tests" }
        timeout { fail "(timeout) call tests" }
    }
}

proc movm_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/16i movm_tests\n"
    gdb_expect {
        -re "
.*movm  \\(sp\\),.a2,a3,exreg0.*
.*movm  \\(sp\\),.a2,a3,exreg1.*
.*movm  \\(sp\\),.a2,a3,exother.*
.*movm  \\(sp\\),.d2,d3,a2,a3,other,exreg0,exreg1,exother.*
.*movm  .a2,a3,exreg0.,\\(sp\\).*
.*movm  .a2,a3,exreg1.,\\(sp\\).*
.*movm  .a2,a3,exother.,\\(sp\\).*
.*movm  .d2,d3,a2,a3,other,exreg0,exreg1,exother.,\\(sp\\).*
.*movm  \\(usp\\),.a2,a3,exreg0.*
.*movm  \\(usp\\),.a2,a3,exreg1.*
.*movm  \\(usp\\),.a2,a3,exother.*
.*movm  \\(usp\\),.d2,d3,a2,a3,other,exreg0,exreg1,exother.*
.*movm  .a2,a3,exreg0.,\\(usp\\).*
.*movm  .a2,a3,exreg1.,\\(usp\\).*
.*movm  .a2,a3,exother.,\\(usp\\).*
.*movm  .d2,d3,a2,a3,other,exreg0,exreg1,exother.,\\(usp\\).*
.*$gdb_prompt $" { pass "movm tests" }
        -re "$gdb_prompt $" { fail "movm tests" }
        timeout { fail "(timeout) movm tests" }
    }
}

proc misc_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/11i misc_tests\n"
    gdb_expect {
        -re "
.*syscall       4.*
.*mcst9 d0.*
.*mcst48        d1.*
.*getchx        d0.*
.*getclx        d1.*
.*clr   a1.*
.*sat16 a1,a0.*
.*mcste r7,r6.*
.*swap  r5,r4.*
.*swaph r3,r2.*
.*swhw  r1,r0.*
.*$gdb_prompt $" { pass "misc tests" }
        -re "$gdb_prompt $" { fail "misc tests" }
        timeout { fail "(timeout) misc tests" }
    }
}

proc mov_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/45i mov_tests\n"
    gdb_expect {
        -re "
.*mov   r0,r1.*
.*mov   sp,r1.*
.*mov   r1,xr2.*
.*mov   \\(r1\\),r2.*
.*mov   r3,\\(r4\\).*
.*mov   \\(sp\\),r5.*
.*mov   r6,\\(sp\\).*
.*mov   16,r1.*
.*mov   16,xr1.*
.*mov   \\(16,r1\\),r2.*
.*mov   r2,\\(16,r1\\).*
.*mov   \\(16,sp\\),r2.*
.*mov   r2,\\(16,sp\\).*
.*mov   2096895,r2.*
.*mov   2096895,xr2.*
.*mov   \\(2096895,r1\\),r2.*
.*mov   r2,\\(2096895,r1\\).*
.*mov   \\(2096895,sp\\),r2.*
.*mov   r2,\\(2096895,sp\\).*
.*mov   \\(0x1ffeff\\),r2.*
.*mov   r2,\\(0x1ffeff\\).*
.*mov   2147417596,r2.*
.*mov   2147417596,xr2.*
.*mov   \\(2147417596,r1\\),r2.*
.*mov   r2,\\(2147417596,r1\\).*
.*mov   \\(2147417596,sp\\),r2.*
.*mov   r2,\\(2147417596,sp\\).*
.*mov   \\(0x7ffefdfc\\),r2.*
.*mov   r2,\\(0x7ffefdfc\\).*
.*movu  16,r1.*
.*movu  2096895,r2.*
.*movu  2147417596,r2.*
.*mov   usp,a0.*
.*mov   ssp,a1.*
.*mov   msp,a2.*
.*mov   pc,a3.*
.*mov   a0,usp.*
.*mov   a1,ssp.*
.*mov   a2,msp.*
.*mov   epsw,d0.*
.*mov   d1,epsw.*
.*mov   a0,r1.*
.*mov   d2,r3.*
.*mov   r5,a1.*
.*mov   r7,d3.*
.*$gdb_prompt $" { pass "mov tests" }
        -re "$gdb_prompt $" { fail "mov tests" }
        timeout { fail "(timeout) mov tests" }
    }
}

proc ext_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/5i ext_tests\n"
    gdb_expect {
        -re "
.*ext   r2.*
.*extb  r3,r4.*
.*extbu r4,r5.*
.*exth  r6,r7.*
.*exthu r7,a0.*
.*$gdb_prompt $" { pass "ext tests" }
        -re "$gdb_prompt $" { fail "ext tests" }
        timeout { fail "(timeout) ext tests" }
    }
}

proc add_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/11i add_tests\n"
    gdb_expect {
        -re "
.*add   a2,a3.*
.*add   16,r1.*
.*add   2096895,r2.*
.*add   2147417596,r2.*
.*add   r1,r2,r3.*
.*addc  d0,d1.*
.*addc  16,r1.*
.*addc  2096895,r2.*
.*addc  2147417596,r2.*
.*inc   d1.*
.*inc4  d0.*
.*$gdb_prompt $" { pass "add tests" }
        -re "$gdb_prompt $" { fail "add tests" }
        timeout { fail "(timeout) add tests" }
    }
}

proc sub_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/8i sub_tests\n"
    gdb_expect {
        -re "
.*sub   d2,d3.*
.*sub   16,r1.*
.*sub   2096895,r2.*
.*sub   2147417596,r2.*
.*subc  d3,d2.*
.*subc  16,r1.*
.*subc  2096895,r2.*
.*subc  2147417596,r2.*
.*$gdb_prompt $" { pass "sub tests" }
        -re "$gdb_prompt $" { fail "sub tests" }
        timeout { fail "(timeout) sub tests" }
    }
}

proc cmp_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/4i cmp_tests\n"
    gdb_expect {
        -re "
.*cmp   a3,a2.*
.*cmp   16,r1.*
.*cmp   2096895,r2.*
.*cmp   2147417596,r2.*
.*$gdb_prompt $" { pass "cmp tests" }
        -re "$gdb_prompt $" { fail "cmp tests" }
        timeout { fail "(timeout) cmp tests" }
    }
}

proc logical_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/15i logical_tests\n"
    gdb_expect {
        -re "
.*and   r0,r1.*
.*or    r2,r3.*
.*xor   r4,r5.*
.*not   r6.*
.*and   16,r1.*
.*or    16,r1.*
.*xor   16,r1.*
.*and   2096895,r2.*
.*or    2096895,r2.*
.*xor   2096895,r2.*
.*and   2147417596,r2.*
.*or    2147417596,r2.*
.*xor   2147417596,r2.*
.*and   131072,epsw.*
.*or    65535,epsw.*
.*$gdb_prompt $" { pass "logical tests" }
        -re "$gdb_prompt $" { fail "logical tests" }
        timeout { fail "(timeout) logical tests" }
    }
}

proc shift_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/15i shift_tests\n"
    gdb_expect {
        -re "
.*asr   r7,a0.*
.*lsr   a1,a2.*
.*asl   a3,d0.*
.*asl2  d1.*
.*ror   d2.*
.*rol   d3.*
.*asr   16,r1.*
.*lsr   16,r1.*
.*asl   16,r1.*
.*asr   2096895,r2.*
.*lsr   2096895,r2.*
.*asl   2096895,r2.*
.*asr   2147417596,r2.*
.*lsr   2147417596,r2.*
.*asl   2147417596,r2.*
.*$gdb_prompt $" { pass "shift tests" }
        -re "$gdb_prompt $" { fail "shift tests" }
        timeout { fail "(timeout) shift tests" }
    }
}

proc muldiv_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/16i muldiv_tests\n"
    gdb_expect {
        -re "
.*mul   r1,r2.*
.*mulu  r3,r4.*
.*mul   16,r1.*
.*mulu  16,r1.*
.*mul   2096895,r2.*
.*mulu  2096895,r2.*
.*mul   2147417596,r2.*
.*mulu  2147417596,r2.*
.*div   r5,r6.*
.*divu  r7,a0.*
.*dmulh d1,d0.*
.*dmulhu        a3,a2.*
.*dmulh 2147417596,r2.*
.*dmulhu        2147417596,r2.*
.*mul   r1,r2,r3,r4.*
.*mulu  r1,r2,r3,r4.*
.*$gdb_prompt $" { pass "muldiv tests" }
        -re "$gdb_prompt $" { fail "muldiv tests" }
        timeout { fail "(timeout) muldiv tests" }
    }
}

proc movbu_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/20i movbu_tests\n"
    gdb_expect {
        -re "
.*movbu \\(r5\\),r6.*
.*movbu r7,\\(a0\\).*
.*movbu \\(sp\\),r7.*
.*movbu a0,\\(sp\\).*
.*movbu \\(16,r1\\),r2.*
.*movbu r2,\\(16,r1\\).*
.*movbu \\(16,sp\\),r2.*
.*movbu r2,\\(16,sp\\).*
.*movbu \\(2096895,r1\\),r2.*
.*movbu r2,\\(2096895,r1\\).*
.*movbu \\(2096895,sp\\),r2.*
.*movbu r2,\\(2096895,sp\\).*
.*movbu \\(0x1ffeff\\),r2.*
.*movbu r2,\\(0x1ffeff\\).*
.*movbu \\(2147417596,r1\\),r2.*
.*movbu r2,\\(2147417596,r1\\).*
.*movbu \\(2147417596,sp\\),r2.*
.*movbu r2,\\(2147417596,sp\\).*
.*movbu \\(0x7ffefdfc\\),r2.*
.*movbu r2,\\(0x7ffefdfc\\).*
.*$gdb_prompt $" { pass "movbu tests" }
        -re "$gdb_prompt $" { fail "movbu tests" }
        timeout { fail "(timeout) movbu tests" }
    }
}

proc movhu_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/20i movhu_tests\n"
    gdb_expect {
        -re "
.*movhu \\(a1\\),a2.*
.*movhu a3,\\(d0\\).*
.*movhu \\(sp\\),a1.*
.*movhu a2,\\(sp\\).*
.*movhu \\(16,r1\\),r2.*
.*movhu r2,\\(16,r1\\).*
.*movhu \\(16,sp\\),r2.*
.*movhu r2,\\(16,sp\\).*
.*movhu \\(2096895,r1\\),r2.*
.*movhu r2,\\(2096895,r1\\).*
.*movhu \\(2096895,sp\\),r2.*
.*movhu r2,\\(2096895,sp\\).*
.*movhu \\(0x1ffeff\\),r2.*
.*movhu r2,\\(0x1ffeff\\).*
.*movhu \\(2147417596,r1\\),r2.*
.*movhu r2,\\(2147417596,r1\\).*
.*movhu \\(2147417596,sp\\),r2.*
.*movhu r2,\\(2147417596,sp\\).*
.*movhu \\(0x7ffefdfc\\),r2.*
.*movhu r2,\\(0x7ffefdfc\\).*
.*$gdb_prompt $" { pass "movhu tests" }
        -re "$gdb_prompt $" { fail "movhu tests" }
        timeout { fail "(timeout) movhu tests" }
    }
}

proc mac_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/28i mac_tests\n"
    gdb_expect {
        -re "
.*mac   r1,r2.*
.*macu  r3,r4.*
.*macb  r5,r6.*
.*macbu r7,a0.*
.*mach  a1,a2.*
.*machu a3,d0.*
.*dmach d1,d2.*
.*dmachu        d3,d2.*
.*mac   16,r1.*
.*macu  16,r1.*
.*macb  16,r1.*
.*macbu 16,r1.*
.*mach  16,r1.*
.*machu 16,r1.*
.*mac   2096895,r2.*
.*macu  2096895,r2.*
.*macb  2096895,r2.*
.*macbu 2096895,r2.*
.*mach  2096895,r2.*
.*machu 2096895,r2.*
.*mac   2147417596,r2.*
.*macu  2147417596,r2.*
.*macb  2147417596,r2.*
.*macbu 2147417596,r2.*
.*mach  2147417596,r2.*
.*machu 2147417596,r2.*
.*dmach 2147417596,r2.*
.*dmachu        2147417596,r2.*
.*$gdb_prompt $" { pass "mac tests" }
        -re "$gdb_prompt $" { fail "mac tests" }
        timeout { fail "(timeout) mac tests" }
    }
}

proc bit_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/4i bit_tests\n"
    gdb_expect {
        -re "
.*bsch  r1,r2.*
.*btst  16,r1.*
.*btst  2096895,r2.*
.*btst  2147417596,r2.*
.*$gdb_prompt $" { pass "bit tests" }
        -re "$gdb_prompt $" { fail "bit tests" }
        timeout { fail "(timeout) bit tests" }
    }
}

proc dsp_add_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/28i dsp_add_tests\n"
    gdb_expect {
        -re "
.*add_add       r4,r1,r2,r3.*
.*add_add       r4,r1,2,r3.*
.*add_sub       r4,r1,r2,r3.*
.*add_sub       r4,r1,2,r3.*
.*add_cmp       r4,r1,r2,r3.*
.*add_cmp       r4,r1,2,r3.*
.*add_mov       r4,r1,r2,r3.*
.*add_mov       r4,r1,2,r3.*
.*add_asr       r4,r1,r2,r3.*
.*add_asr       r4,r1,2,r3.*
.*add_lsr       r4,r1,r2,r3.*
.*add_lsr       r4,r1,2,r3.*
.*add_asl       r4,r1,r2,r3.*
.*add_asl       r4,r1,2,r3.*
.*add_add       4,r1,r2,r3.*
.*add_add       4,r1,2,r3.*
.*add_sub       4,r1,r2,r3.*
.*add_sub       4,r1,2,r3.*
.*add_cmp       4,r1,r2,r3.*
.*add_cmp       4,r1,2,r3.*
.*add_mov       4,r1,r2,r3.*
.*add_mov       4,r1,2,r3.*
.*add_asr       4,r1,r2,r3.*
.*add_asr       4,r1,2,r3.*
.*add_lsr       4,r1,r2,r3.*
.*add_lsr       4,r1,2,r3.*
.*add_asl       4,r1,r2,r3.*
.*add_asl       4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_add tests" }
        -re "$gdb_prompt $" { fail "dsp_add tests" }
        timeout { fail "(timeout) dsp_add tests" }
    }
}

proc dsp_cmp_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/24i dsp_cmp_tests\n"
    gdb_expect {
        -re "
.*cmp_add       r4,r1,r2,r3.*
.*cmp_add       r4,r1,2,r3.*
.*cmp_sub       r4,r1,r2,r3.*
.*cmp_sub       r4,r1,2,r3.*
.*cmp_mov       r4,r1,r2,r3.*
.*cmp_mov       r4,r1,2,r3.*
.*cmp_asr       r4,r1,r2,r3.*
.*cmp_asr       r4,r1,2,r3.*
.*cmp_lsr       r4,r1,r2,r3.*
.*cmp_lsr       r4,r1,2,r3.*
.*cmp_asl       r4,r1,r2,r3.*
.*cmp_asl       r4,r1,2,r3.*
.*cmp_add       4,r1,r2,r3.*
.*cmp_add       4,r1,2,r3.*
.*cmp_sub       4,r1,r2,r3.*
.*cmp_sub       4,r1,2,r3.*
.*cmp_mov       4,r1,r2,r3.*
.*cmp_mov       4,r1,2,r3.*
.*cmp_asr       4,r1,r2,r3.*
.*cmp_asr       4,r1,2,r3.*
.*cmp_lsr       4,r1,r2,r3.*
.*cmp_lsr       4,r1,2,r3.*
.*cmp_asl       4,r1,r2,r3.*
.*cmp_asl       4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_cmp tests" }
        -re "$gdb_prompt $" { fail "dsp_cmp tests" }
        timeout { fail "(timeout) dsp_cmp tests" }
    }
}

proc dsp_sub_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/28i dsp_sub_tests\n"
    gdb_expect {
        -re "
.*sub_add       r4,r1,r2,r3.*
.*sub_add       r4,r1,2,r3.*
.*sub_sub       r4,r1,r2,r3.*
.*sub_sub       r4,r1,2,r3.*
.*sub_cmp       r4,r1,r2,r3.*
.*sub_cmp       r4,r1,2,r3.*
.*sub_mov       r4,r1,r2,r3.*
.*sub_mov       r4,r1,2,r3.*
.*sub_asr       r4,r1,r2,r3.*
.*sub_asr       r4,r1,2,r3.*
.*sub_lsr       r4,r1,r2,r3.*
.*sub_lsr       r4,r1,2,r3.*
.*sub_asl       r4,r1,r2,r3.*
.*sub_asl       r4,r1,2,r3.*
.*sub_add       4,r1,r2,r3.*
.*sub_add       4,r1,2,r3.*
.*sub_sub       4,r1,r2,r3.*
.*sub_sub       4,r1,2,r3.*
.*sub_cmp       4,r1,r2,r3.*
.*sub_cmp       4,r1,2,r3.*
.*sub_mov       4,r1,r2,r3.*
.*sub_mov       4,r1,2,r3.*
.*sub_asr       4,r1,r2,r3.*
.*sub_asr       4,r1,2,r3.*
.*sub_lsr       4,r1,r2,r3.*
.*sub_lsr       4,r1,2,r3.*
.*sub_asl       4,r1,r2,r3.*
.*sub_asl       4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_sub tests" }
        -re "$gdb_prompt $" { fail "dsp_sub tests" }
        timeout { fail "(timeout) dsp_sub tests" }
    }
}

proc dsp_mov_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/28i dsp_mov_tests\n"
    gdb_expect {
        -re "
.*mov_add       r4,r1,r2,r3.*
.*mov_add       r4,r1,2,r3.*
.*mov_sub       r4,r1,r2,r3.*
.*mov_sub       r4,r1,2,r3.*
.*mov_cmp       r4,r1,r2,r3.*
.*mov_cmp       r4,r1,2,r3.*
.*mov_mov       r4,r1,r2,r3.*
.*mov_mov       r4,r1,2,r3.*
.*mov_asr       r4,r1,r2,r3.*
.*mov_asr       r4,r1,2,r3.*
.*mov_lsr       r4,r1,r2,r3.*
.*mov_lsr       r4,r1,2,r3.*
.*mov_asl       r4,r1,r2,r3.*
.*mov_asl       r4,r1,2,r3.*
.*mov_add       4,r1,r2,r3.*
.*mov_add       4,r1,2,r3.*
.*mov_sub       4,r1,r2,r3.*
.*mov_sub       4,r1,2,r3.*
.*mov_cmp       4,r1,r2,r3.*
.*mov_cmp       4,r1,2,r3.*
.*mov_mov       4,r1,r2,r3.*
.*mov_mov       4,r1,2,r3.*
.*mov_asr       4,r1,r2,r3.*
.*mov_asr       4,r1,2,r3.*
.*mov_lsr       4,r1,r2,r3.*
.*mov_lsr       4,r1,2,r3.*
.*mov_asl       4,r1,r2,r3.*
.*mov_asl       4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_mov tests" }
        -re "$gdb_prompt $" { fail "dsp_mov tests" }
        timeout { fail "(timeout) dsp_mov tests" }
    }
}

proc dsp_logical_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/42i dsp_logical_tests\n"
    gdb_expect {
        -re "
.*and_add       r4,r1,r2,r3.*
.*and_add       r4,r1,2,r3.*
.*and_sub       r4,r1,r2,r3.*
.*and_sub       r4,r1,2,r3.*
.*and_cmp       r4,r1,r2,r3.*
.*and_cmp       r4,r1,2,r3.*
.*and_mov       r4,r1,r2,r3.*
.*and_mov       r4,r1,2,r3.*
.*and_asr       r4,r1,r2,r3.*
.*and_asr       r4,r1,2,r3.*
.*and_lsr       r4,r1,r2,r3.*
.*and_lsr       r4,r1,2,r3.*
.*and_asl       r4,r1,r2,r3.*
.*and_asl       r4,r1,2,r3.*
.*xor_add       r4,r1,r2,r3.*
.*xor_add       r4,r1,2,r3.*
.*xor_sub       r4,r1,r2,r3.*
.*xor_sub       r4,r1,2,r3.*
.*xor_cmp       r4,r1,r2,r3.*
.*xor_cmp       r4,r1,2,r3.*
.*xor_mov       r4,r1,r2,r3.*
.*xor_mov       r4,r1,2,r3.*
.*xor_asr       r4,r1,r2,r3.*
.*xor_asr       r4,r1,2,r3.*
.*xor_lsr       r4,r1,r2,r3.*
.*xor_lsr       r4,r1,2,r3.*
.*xor_asl       r4,r1,r2,r3.*
.*xor_asl       r4,r1,2,r3.*
.*or_add        r4,r1,r2,r3.*
.*or_add        r4,r1,2,r3.*
.*or_sub        r4,r1,r2,r3.*
.*or_sub        r4,r1,2,r3.*
.*or_cmp        r4,r1,r2,r3.*
.*or_cmp        r4,r1,2,r3.*
.*or_mov        r4,r1,r2,r3.*
.*or_mov        r4,r1,2,r3.*
.*or_asr        r4,r1,r2,r3.*
.*or_asr        r4,r1,2,r3.*
.*or_lsr        r4,r1,r2,r3.*
.*or_lsr        r4,r1,2,r3.*
.*or_asl        r4,r1,r2,r3.*
.*or_asl        r4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_logical tests" }
        -re "$gdb_prompt $" { fail "dsp_logical tests" }
        timeout { fail "(timeout) dsp_logical tests" }
    }
}

proc dsp_misc_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/42i dsp_misc_tests\n"
    gdb_expect {
        -re "
.*dmach_add     r4,r1,r2,r3.*
.*dmach_add     r4,r1,2,r3.*
.*dmach_sub     r4,r1,r2,r3.*
.*dmach_sub     r4,r1,2,r3.*
.*dmach_cmp     r4,r1,r2,r3.*
.*dmach_cmp     r4,r1,2,r3.*
.*dmach_mov     r4,r1,r2,r3.*
.*dmach_mov     r4,r1,2,r3.*
.*dmach_asr     r4,r1,r2,r3.*
.*dmach_asr     r4,r1,2,r3.*
.*dmach_lsr     r4,r1,r2,r3.*
.*dmach_lsr     r4,r1,2,r3.*
.*dmach_asl     r4,r1,r2,r3.*
.*dmach_asl     r4,r1,2,r3.*
.*swhw_add      r4,r1,r2,r3.*
.*swhw_add      r4,r1,2,r3.*
.*swhw_sub      r4,r1,r2,r3.*
.*swhw_sub      r4,r1,2,r3.*
.*swhw_cmp      r4,r1,r2,r3.*
.*swhw_cmp      r4,r1,2,r3.*
.*swhw_mov      r4,r1,r2,r3.*
.*swhw_mov      r4,r1,2,r3.*
.*swhw_asr      r4,r1,r2,r3.*
.*swhw_asr      r4,r1,2,r3.*
.*swhw_lsr      r4,r1,r2,r3.*
.*swhw_lsr      r4,r1,2,r3.*
.*swhw_asl      r4,r1,r2,r3.*
.*swhw_asl      r4,r1,2,r3.*
.*sat16_add     r4,r1,r2,r3.*
.*sat16_add     r4,r1,2,r3.*
.*sat16_sub     r4,r1,r2,r3.*
.*sat16_sub     r4,r1,2,r3.*
.*sat16_cmp     r4,r1,r2,r3.*
.*sat16_cmp     r4,r1,2,r3.*
.*sat16_mov     r4,r1,r2,r3.*
.*sat16_mov     r4,r1,2,r3.*
.*sat16_asr     r4,r1,r2,r3.*
.*sat16_asr     r4,r1,2,r3.*
.*sat16_lsr     r4,r1,r2,r3.*
.*sat16_lsr     r4,r1,2,r3.*
.*sat16_asl     r4,r1,r2,r3.*
.*sat16_asl     r4,r1,2,r3.*
.*$gdb_prompt $" { pass "dsp_misc tests" }
        -re "$gdb_prompt $" { fail "dsp_misc tests" }
        timeout { fail "(timeout) dsp_misc tests" }
    }
}

proc autoincrement_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/16i autoincrement_tests\n"
    gdb_expect {
        -re "
.*mov   \\(r1\\+\\),r2.*
.*mov   r3,\\(r4\\+\\).*
.*movhu \\(r6\\+\\),r7.*
.*movhu a0,\\(a1\\+\\).*
.*mov   \\(r1\\+,64\\),r2.*
.*mov   r1,\\(r2\\+,64\\).*
.*movhu \\(r1\\+,64\\),r2.*
.*movhu r1,\\(r2\\+,64\\).*
.*mov   \\(r1\\+,131055\\),r2.*
.*mov   r1,\\(r2\\+,131055\\).*
.*movhu \\(r1\\+,131055\\),r2.*
.*movhu r1,\\(r2\\+,131055\\).*
.*mov   \\(r1\\+,2147417596\\),r2.*
.*mov   r1,\\(r2\\+,2147417596\\).*
.*movhu \\(r1\\+,2147417596\\),r2.*
.*movhu r1,\\(r2\\+,2147417596\\).*
.*$gdb_prompt $" { pass "autoincrement tests" }
        -re "$gdb_prompt $" { fail "autoincrement tests" }
        timeout { fail "(timeout) autoincrement tests" }
    }
}

proc dsp_autoincrement_tests { } {
    global gdb_prompt
    global hex
    global decimal

    send_gdb "x/11i dsp_autoincrement_tests\n"
    gdb_expect {
        -re "
.*mov_llt       \\(r1\\+,4\\),r2.*
.*mov_lgt       \\(r1\\+,4\\),r2.*
.*mov_lge       \\(r1\\+,4\\),r2.*
.*mov_lle       \\(r1\\+,4\\),r2.*
.*mov_lcs       \\(r1\\+,4\\),r2.*
.*mov_lhi       \\(r1\\+,4\\),r2.*
.*mov_lcc       \\(r1\\+,4\\),r2.*
.*mov_lls       \\(r1\\+,4\\),r2.*
.*mov_leq       \\(r1\\+,4\\),r2.*
.*mov_lne       \\(r1\\+,4\\),r2.*
.*mov_lra       \\(r1\\+,4\\),r2.*
.*$gdb_prompt $" { pass "autoincrement tests" }
        -re "$gdb_prompt $" { fail "autoincrement tests" }
        timeout { fail "(timeout) autoincrement tests" }
    }
}

# Start with a fresh gdb.

gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile

call_tests
movm_tests
misc_tests
mov_tests
ext_tests
add_tests
sub_tests
cmp_tests
logical_tests
shift_tests
muldiv_tests
movbu_tests
movhu_tests
mac_tests
bit_tests
dsp_add_tests
dsp_cmp_tests
dsp_sub_tests
dsp_mov_tests
dsp_logical_tests
autoincrement_tests
dsp_autoincrement_tests