OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh/] [prnd.s] - Rev 842

Compare with Previous | Blame | View Log

# sh testcase for prnd
# mach:	 shdsp
# as(shdsp):	-defsym sim_cpu=1 -dsp
 
	# FIXME: opcode table ambiguity in ignored bits 4-7.
 
	.include "testutils.inc"
 
	start
	set_grs_a5a5
	lds	r0, a0
	pcopy	a0, a1
	lds	r0, x0
	lds	r0, x1
	lds	r0, y0
	lds	r0, y1
	pcopy	x0, m0
	pcopy	y1, m1
 
	# prnd(0xa5a5a5a5) = 0xa5a60000
	prnd	x0, x0
	prnd	y0, y0
	assert_sreg	0xa5a60000, x0
	assert_sreg	0xa5a60000, y0
 
	# prnd(1) = 1
	mov	#1, r0
	shll16	r0
	lds	r0, x0
	pcopy	x0, y0
	prnd	x0, x0
	prnd	y0, y0
	assert_sreg	0x10000, x0
	assert_sreg	0x10000, y0
 
	# prnd(1.4999999) = 1
	mov	#1, r0
	shll8	r0
	or	#0x7f, r0
	shll8	r0
	or	#0xff, r0
	lds	r0, x0
	pcopy	x0, y0
	prnd	x0, x0
	prnd	y0, y0
	assert_sreg	0x10000, x0
	assert_sreg	0x10000, y0
 
	# prnd(1.5) = 2
	mov	#1, r0
	shll8	r0
	or	#0x80, r0
	shll8	r0
	lds	r0, x0
	pcopy	x0, y0
	prnd	x0, x0
	prnd	y0, y0
	assert_sreg	0x20000, x0
	assert_sreg	0x20000, y0
 
	# dct prnd
	set_dcfalse
	dct	prnd	x0, x1
	dct	prnd	y0, y1
	assert_sreg2	0xa5a5a5a5, x1
	assert_sreg2	0xa5a5a5a5, y1
	set_dctrue
	dct	prnd	x0, x1
	dct	prnd	y0, y1
	assert_sreg2	0x20000, x1
	assert_sreg2	0x20000, y1
 
	# dcf prnd
	set_dctrue
	dcf	prnd	x0, m0
	dcf	prnd	y0, m1
	assert_sreg2	0xa5a5a5a5, m0
	assert_sreg2	0xa5a5a5a5, m1
	set_dcfalse
	dcf	prnd	x0, m0
	dcf	prnd	y0, m1
	assert_sreg2	0x20000, m0
	assert_sreg2	0x20000, m1
 
	set_greg	0xa5a5a5a5, r0
	test_grs_a5a5
	assert_sreg	0xa5a5a5a5, a0
	assert_sreg2	0xa5a5a5a5, a1
	pass
	exit 0
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.