a2caf839c0
- SPARC32 has spinlocks and "pseudo atomic" math - SPARC64 has spinlocks, compare & set, atomic math (still in s/w) This commit was SVN r4433.
81 строка
1.1 KiB
NASM
81 строка
1.1 KiB
NASM
START_FILE
|
|
TEXT
|
|
|
|
ALIGN(4)
|
|
|
|
START_FUNC(ompi_atomic_mb)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
retl
|
|
nop
|
|
END_FUNC(ompi_atomic_mb)
|
|
|
|
|
|
START_FUNC(ompi_atomic_rmb)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
retl
|
|
nop
|
|
END_FUNC(ompi_atomic_rmb)
|
|
|
|
|
|
START_FUNC(ompi_atomic_wmb)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
retl
|
|
nop
|
|
END_FUNC(ompi_atomic_wmb)
|
|
|
|
|
|
START_FUNC(ompi_atomic_init)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
stb %o1, [%o0]
|
|
retl
|
|
nop
|
|
END_FUNC(ompi_atomic_init)
|
|
|
|
|
|
START_FUNC(ompi_atomic_trylock)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
ldstub [%o0], %o0
|
|
and %o0, 0xff, %o0
|
|
subcc %g0, %o0, %g0
|
|
retl
|
|
subx %g0, -1, %o0
|
|
END_FUNC(ompi_atomic_trylock)
|
|
|
|
|
|
START_FUNC(ompi_atomic_lock)
|
|
!#PROLOGUE# 0
|
|
save %sp, -112, %sp
|
|
!#PROLOGUE# 1
|
|
LSYM(retry)
|
|
ldstub [%i0], %l0
|
|
tst %l0
|
|
be REFLSYM(out)
|
|
nop
|
|
LSYM(loop)
|
|
ldub [%i0], %l0
|
|
tst %l0
|
|
bne REFLSYM(loop)
|
|
nop
|
|
ba,a REFLSYM(retry)
|
|
LSYM(out)
|
|
nop
|
|
ret
|
|
restore
|
|
END_FUNC(ompi_atomic_lock)
|
|
|
|
|
|
START_FUNC(ompi_atomic_unlock)
|
|
!#PROLOGUE# 0
|
|
!#PROLOGUE# 1
|
|
stbar
|
|
stb %g0, [%o0]
|
|
|
|
retl
|
|
nop
|
|
END_FUNC(ompi_atomic_unlock)
|