Subversion Repositories openrisc

# sh testcase for mac.w

# mach: all

# as(sh):       -defsym sim_cpu=0

# as(shdsp):    -defsym sim_cpu=1 -dsp

        .include "testutils.inc"

        start

        set_grs_a5a5

        # Prime {MACL, MACH} to #1.

        mov     #1, r0

        dmulu.l r0, r0

        # Set up addresses.

        mov.l   pfour00, r0     ! 85

        mov.l   pfour12, r1     ! 17

test:

        mac.w   @r0+, @r1+      ! MAC = 85 * 17 + 1

check:

        # Check result.

        assert_sreg     0, mach

        assert_sreg     85*17+1, macl

        # Ensure post-increment occurred.

        assertreg0      four00+2

        assertreg       four12+2, r1

doubleinc:

        mov.l   pfour00, r0

        mac.w   @r0+, @r0+

        assertreg0 four00+4

        set_greg        0xa5a5a5a5, r0

        set_greg        0xa5a5a5a5, r1

        test_grs_a5a5

        pass

        exit 0

        .align 2

four00:

        .word   85

        .word   2

four12:

        .word   17

        .word   3

pfour00:

        .long four00

pfour12:

        .long four12