fabs.cgs

gdb-6.8 Linux下的调试程序 最新版本

# sh testcase for fabs -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

	.include "compact/testutils.inc"

	start
	_clrpr
	# fabs(0.0) = 0.0.
	fldi0 fr0
	fabs fr0
	fldi0 fr1
	fcmp/eq fr0, fr1
	bf wrong

	# fabs(1.0) = 1.0.
	fldi1 fr0
	fabs fr0
	fldi1 fr1
	fcmp/eq fr0, fr1
	bf wrong

	# fabs(-1.0) = 1.0.
	fldi1 fr0
	fneg fr0
	fabs fr0
	fldi1 fr1
	fcmp/eq fr0, fr1
	bf wrong

	bra double
	nop

wrong:
	fail

double:
	# double precision tests.
	# fabs(0.0) = 0.0.
	fldi0 fr0
	_s2d fr0, dr0
	_setpr
	fabs dr0
	_clrpr
	# check.
	fldi0 fr2
	_s2d fr2, dr2
	_setpr
	fcmp/eq dr0, dr2
	bf wrong
	_clrpr

one:
	# fabs(1.0) = 1.0.
	fldi1 fr0
	_s2d fr0, dr0
	_setpr
	fabs dr0
	_clrpr
	# check.
	fldi1 fr2
	_s2d fr2, dr2
	_setpr
	fcmp/eq dr0, dr2
	bf wrong2
	_clrpr

minusone:
	# fabs(-1.0) = 1.0.
	fldi1 fr0
	fneg fr0
	_s2d fr0, dr0
	_setpr
	fabs dr0
	_clrpr
	# check.
	fldi1 fr2
	_s2d fr2, dr2
	_setpr
	fcmp/eq dr0, dr2
	bf wrong2
	_clrpr

okay:
	pass
wrong2:
	fail