Subversion Repositories scarts

# m32r testcase for unlock $src1,@$src2
# mach(): m32r m32rx

        .include "testutils.inc"

        start

        .global unlock
unlock:
        mvaddr_h_gr r4, data_loc
        mvi_h_gr    r5, 1

        lock r5, @r4

        mvi_h_gr r5, 2
        unlock r5, @r4

        ld r6, @r4
        test_h_gr r6, 2

        mvi_h_gr r5, 0
        unlock r5, @r4  ; This should be a nop since the processor should be unlocked.

        ld r6, @r4
        test_h_gr r6, 2
        
        pass

data_loc:
        .word 0