Subversion Repositories openrisc

# Copyright 1997, 1998, 2007, 2008, 2009, 2010 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 .

# 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