URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 24 |
Rev 33 |
# sh testcase for mabs.l $rm, $rd -*- Asm -*-
|
# sh testcase for mabs.l $rm, $rd -*- Asm -*-
|
# mach: all
|
# mach: all
|
# as: -isa=shmedia
|
# as: -isa=shmedia
|
# ld: -m shelf64
|
# ld: -m shelf64
|
|
|
.include "media/testutils.inc"
|
.include "media/testutils.inc"
|
|
|
start
|
start
|
|
|
.global mabsl
|
.global mabsl
|
init:
|
init:
|
pta wrong, tr0
|
pta wrong, tr0
|
|
|
mabsl1:
|
mabsl1:
|
# Pack { 1 3 } into R0.
|
# Pack { 1 3 } into R0.
|
_packl 1, 3, r0
|
_packl 1, 3, r0
|
|
|
mabs.l r0, r1
|
mabs.l r0, r1
|
|
|
# Test for { 1 3 } in R0.
|
# Test for { 1 3 } in R0.
|
_packl 1, 3, r2
|
_packl 1, 3, r2
|
bne r0, r2, tr0
|
bne r0, r2, tr0
|
|
|
mabsl2:
|
mabsl2:
|
# Pack { -1, -1 } into R0.
|
# Pack { -1, -1 } into R0.
|
_packl 1, 1, r0
|
_packl 1, 1, r0
|
|
|
# Set the left sign bit.
|
# Set the left sign bit.
|
movi 1, r1
|
movi 1, r1
|
shlli r1, 63, r1
|
shlli r1, 63, r1
|
or r0, r1, r0
|
or r0, r1, r0
|
|
|
mabs.l r0, r2
|
mabs.l r0, r2
|
|
|
okay:
|
okay:
|
pass
|
pass
|
|
|
wrong:
|
wrong:
|
fail
|
fail
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.