Subversion Repositories openrisc

# frv testcase for mdunpackh $FRi,$FRj
# mach: frv

        .include "testutils.inc"

        start

        .global mdunpackh
mdunpackh:
        set_fr_iimmed   0xdead,0xbeef,fr10
        set_fr_iimmed   0x1234,0x5678,fr11
        mdunpackh       fr10,fr12
        test_fr_limmed  0xdead,0xdead,fr12
        test_fr_limmed  0xbeef,0xbeef,fr13
        test_fr_limmed  0x1234,0x1234,fr14
        test_fr_limmed  0x5678,0x5678,fr15

        set_fr_iimmed   0x1234,0x5678,fr10
        set_fr_iimmed   0xdead,0xbeef,fr11
        mdunpackh       fr10,fr12
        test_fr_limmed  0x1234,0x1234,fr12
        test_fr_limmed  0x5678,0x5678,fr13
        test_fr_limmed  0xdead,0xdead,fr14
        test_fr_limmed  0xbeef,0xbeef,fr15

        pass