| # sh testcase for muls.w $rm, $rn -*- Asm -*- |
| # mach: all |
| # as: -isa=shcompact |
| # ld: -m shelf32 |
| |
| .include "compact/testutils.inc" |
| |
| start |
| |
| sts mach, r7 |
| |
| .global mulsw |
| zero: |
| mov #0, r0 |
| mov #1, r1 |
| muls.w r0, r1 |
| |
| # Check the result. |
| sts macl, r3 |
| mov #0, r4 |
| cmp/eq r3, r4 |
| bf wrong |
| |
| sxs: |
| # Small * small. |
| mov #1, r0 |
| mov #2, r1 |
| muls.w r0, r1 |
| |
| # Check the result. |
| sts macl, r3 |
| mov #2, r4 |
| cmp/eq r3, r4 |
| bf wrong |
| |
| sxl: |
| # Small * large. |
| mov #1, r0 |
| mov #255, r1 |
| shll8 r1 |
| muls.w r0, r1 |
| |
| # Check the result. |
| sts macl, r3 |
| mov #0, r4 |
| not r4, r4 |
| shll8 r4 |
| cmp/eq r3, r4 |
| bf wrong |
| |
| lxs: |
| # Large * small. |
| mov #255, r0 |
| shll8 r0 |
| mov #1, r1 |
| muls.w r0, r1 |
| |
| # Check the result. |
| sts macl, r3 |
| mov #0, r4 |
| not r4, r4 |
| shll8 r4 |
| cmp/eq r3, r4 |
| bf wrong |
| |
| lxl: |
| # Large * large. |
| mov #255, r0 |
| shll8 r0 |
| mov #255, r1 |
| shll8 r1 |
| muls.w r0, r1 |
| |
| # Check the result. |
| sts macl, r3 |
| mov #1, r4 |
| shll16 r4 |
| cmp/eq r3, r4 |
| bf wrong |
| |
| invariant: |
| # Ensure MACH is invariant. |
| sts mach, r8 |
| cmp/eq r7, r8 |
| bf wrong |
| |
| okay: |
| pass |
| |
| wrong: |
| fail |
