| 1 | # sh testcase for mabs.l $rm, $rd -*- Asm -*- |
| 2 | # mach: all |
| 3 | # as: -isa=shmedia |
| 4 | # ld: -m shelf64 |
| 5 | |
| 6 | .include "media/testutils.inc" |
| 7 | |
| 8 | start |
| 9 | |
| 10 | .global mabsl |
| 11 | init: |
| 12 | pta wrong, tr0 |
| 13 | |
| 14 | mabsl1: |
| 15 | # Pack { 1 3 } into R0. |
| 16 | _packl 1, 3, r0 |
| 17 | |
| 18 | mabs.l r0, r1 |
| 19 | |
| 20 | # Test for { 1 3 } in R0. |
| 21 | _packl 1, 3, r2 |
| 22 | bne r0, r2, tr0 |
| 23 | |
| 24 | mabsl2: |
| 25 | # Pack { -1, -1 } into R0. |
| 26 | _packl 1, 1, r0 |
| 27 | |
| 28 | # Set the left sign bit. |
| 29 | movi 1, r1 |
| 30 | shlli r1, 63, r1 |
| 31 | or r0, r1, r0 |
| 32 | |
| 33 | mabs.l r0, r2 |
| 34 | |
| 35 | okay: |
| 36 | pass |
| 37 | |
| 38 | wrong: |
| 39 | fail |