URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [mips/] [fpu64-ps-sb1.s] - Rev 840
Compare with Previous | Blame | View Log
# mips test sanity, expected to pass. # mach: sb1 # as: -mabi=eabi # ld: -N -Ttext=0x80010000 # output: *\\npass\\n .include "testutils.inc" .macro check_ps psval, upperval, lowerval .set push .set noreorder cvt.s.pu $f0, \psval # upper cvt.s.pl $f2, \psval # lower li.s $f4, \upperval li.s $f6, \lowerval c.eq.s $fcc0, $f0, $f4 bc1f $fcc0, _fail c.eq.s $fcc0, $f2, $f6 bc1f $fcc0, _fail nop .set pop .endm setup .set noreorder .ent DIAG DIAG: # make sure that Status.FR, .CU1, and .SBX are set. mfc0 $2, $12 or $2, $2, (1 << 26) | (1 << 29) | (1 << 16) mtc0 $2, $12 li.s $f10, 4.0 li.s $f12, 16.0 cvt.ps.s $f20, $f10, $f12 # $f20: u=4.0, l=16.0 li.s $f10, -1.0 li.s $f12, 2.0 cvt.ps.s $f22, $f10, $f12 # $f22: u=-1.0, l=2.0 writemsg "div.ps" div.ps $f8, $f20, $f22 check_ps $f8, -4.0, 8.0 writemsg "recip.ps" recip.ps $f8, $f20 check_ps $f8, 0.25, 0.0625 writemsg "rsqrt.ps" rsqrt.ps $f8, $f20 check_ps $f8, 0.5, 0.25 writemsg "sqrt.ps" sqrt.ps $f8, $f20 check_ps $f8, 2.0, 4.0 pass .end DIAG