133 lines
1.8 KiB
Plaintext
133 lines
1.8 KiB
Plaintext
# sh testcase for ftrc -*- Asm -*-
|
|
# mach: all
|
|
# as: -isa=shcompact
|
|
# ld: -m shelf32
|
|
|
|
.include "compact/testutils.inc"
|
|
|
|
start
|
|
|
|
# ftrc(0.0) = 0.
|
|
fldi0 fr0
|
|
ftrc fr0, fpul
|
|
# check results.
|
|
mov #0, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
bf wrong
|
|
|
|
# ftrc(1.5) = 1.
|
|
fldi1 fr0
|
|
fldi1 fr1
|
|
fldi1 fr2
|
|
# double it.
|
|
fadd fr2, fr2
|
|
# form the fraction.
|
|
fdiv fr2, fr1
|
|
fadd fr1, fr0
|
|
# now we've got 1.5 in fr0.
|
|
ftrc fr0, fpul
|
|
# check results.
|
|
mov #1, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
bf wrong
|
|
|
|
# ftrc(-1.5) = -1.
|
|
fldi1 fr0
|
|
fneg fr0
|
|
fldi1 fr1
|
|
fldi1 fr2
|
|
# double it.
|
|
fadd fr2, fr2
|
|
# form the fraction.
|
|
fdiv fr2, fr1
|
|
fneg fr1
|
|
# -1 + -0.5 = -1.5.
|
|
fadd fr1, fr0
|
|
# now we've got 1.5 in fr0.
|
|
ftrc fr0, fpul
|
|
# check results.
|
|
mov #1, r0
|
|
neg r0, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
bf wrong
|
|
|
|
bra double
|
|
nop
|
|
|
|
wrong:
|
|
fail
|
|
|
|
double:
|
|
# ftrc(0.0) = 0.
|
|
fldi0 fr0
|
|
_s2d fr0, dr0
|
|
_setpr
|
|
ftrc dr0, fpul
|
|
_clrpr
|
|
# check results.
|
|
mov #0, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
foo:
|
|
bf wrong2
|
|
|
|
# ftrc(1.5) = 1.
|
|
fldi1 fr0
|
|
fldi1 fr2
|
|
fldi1 fr4
|
|
# double it.
|
|
fadd fr4, fr4
|
|
# form 0.5.
|
|
fdiv fr4, fr2
|
|
fadd fr2, fr0
|
|
# now we've got 1.5 in fr0, so do some single->double
|
|
# conversions and perform the ftrc.
|
|
_s2d fr0, dr0
|
|
_s2d fr2, dr2
|
|
_s2d fr4, dr4
|
|
_setpr
|
|
ftrc dr0, fpul
|
|
_clrpr
|
|
|
|
# check results.
|
|
mov #1, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
bf wrong2
|
|
|
|
# ftrc(-1.5) = -1.
|
|
fldi1 fr0
|
|
fneg fr0
|
|
fldi1 fr2
|
|
fldi1 fr4
|
|
# double it.
|
|
fadd fr4, fr4
|
|
# form the fraction.
|
|
fdiv fr4, fr2
|
|
fneg fr2
|
|
# -1 + -0.5 = -1.5.
|
|
fadd fr2, fr0
|
|
# now we've got 1.5 in fr0, so do some single->double
|
|
# conversions and perform the ftrc.
|
|
_s2d fr0, dr0
|
|
_s2d fr2, dr2
|
|
_s2d fr4, dr4
|
|
_setpr
|
|
ftrc dr0, fpul
|
|
_clrpr
|
|
|
|
# check results.
|
|
mov #1, r0
|
|
neg r0, r0
|
|
sts fpul, r1
|
|
cmp/eq r0, r1
|
|
bf wrong2
|
|
|
|
okay:
|
|
pass
|
|
wrong2:
|
|
fail
|