41 lines
588 B
ArmAsm
41 lines
588 B
ArmAsm
|
;; 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
|
||
|
|
|