shar.cgs

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

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

	.include "compact/testutils.inc"

	start

	.global shar
shar:
	mov #0, r0
	or #192, r0
	shar r0
	bt wrong
	shar r0
	bt wrong
	shar r0
	bt wrong
	shar r0
	bt wrong
	shar r0
	bt wrong
	shar r0
	bt wrong
	shar r0
	bf wrong
	shar r0
	bf wrong
	shar r0
	bt wrong
	shar r0
	bt wrong
	assert r0, #0

okay:
	pass
wrong:
	fail