;; Core of the spinlock implementation
;;
;; Copyright (C) 2004 Axis Communications AB.
;;
;; Author: Mikael Starvik


	.global cris_spin_lock
	.type   cris_spin_lock,@function
	.global cris_spin_trylock
	.type   cris_spin_trylock,@function

	.text

cris_spin_lock:
	clearf	p
1:	test.b	[$r10]
	beq	1b
	clearf	p
	ax
	clear.b [$r10]
	bcs     1b
	clearf	p
	ret
	nop

	.size   cris_spin_lock, . - cris_spin_lock

cris_spin_trylock:
	clearf	p
1:	move.b	[$r10], $r11
	ax
	clear.b [$r10]
        bcs	1b
        clearf	p
	ret
	movu.b	$r11,$r10

	.size   cris_spin_trylock, . - cris_spin_trylock