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

	.include "compact/testutils.inc"

	start

	.global null
null:
	mov #1, r0
	mov #0, r1
	shld r1, r0
	# no shift is performed.
	assert r0, #1

	.global gt0
gt0:
	mov #4, r0
	mov #3, r1
	shld r1, r0
	# shift left 3 bits.
	assert r0, #32

	.global lt0
lt0:
	mov #32, r0
	mov #3, r1
	neg r1, r1
	shld r1, r0
	# shift right 3 bits.
	assert r0, #4

	.global fill
fill:
	mov #1, r0
	rotr r0
	mov #1, r1
	rotr r1
	shld r1, r0
	assert r0, #0
	
okay:
	pass
wrong:
	fail