mirror of
https://github.com/ENSL/NS.git
synced 2025-03-03 16:01:05 +00:00
66 lines
2.4 KiB
ArmAsm
66 lines
2.4 KiB
ArmAsm
|
.section ".text",#alloc,#execinstr
|
||
|
|
.align 8
|
||
|
|
.skip 16
|
||
|
|
|
||
|
|
! int _STLP_atomic_exchange (void *pvalue, int value)
|
||
|
|
!
|
||
|
|
|
||
|
|
.type _STLP_atomic_exchange,#function
|
||
|
|
.global _STLP_atomic_exchange
|
||
|
|
.align 8
|
||
|
|
|
||
|
|
_STLP_atomic_exchange:
|
||
|
|
1:
|
||
|
|
ldx [%o0], %o2 ! Set the current value
|
||
|
|
mov %o1, %o3 ! Set the new value
|
||
|
|
casx [%o0], %o2, %o3 ! Do the compare and swap
|
||
|
|
cmp %o2, %o3 ! Check whether successful
|
||
|
|
bne 1b ! Retry upon failure
|
||
|
|
membar #LoadLoad | #LoadStore ! Ensure the cas finishes before
|
||
|
|
! returning
|
||
|
|
retl ! return
|
||
|
|
mov %o2, %o0 ! Set the new value
|
||
|
|
.size _STLP_atomic_exchange,(.-_STLP_atomic_exchange)
|
||
|
|
|
||
|
|
|
||
|
|
! int _STLP_atomic_increment (void *pvalue)
|
||
|
|
|
||
|
|
.type _STLP_atomic_increment,#function
|
||
|
|
.global _STLP_atomic_increment
|
||
|
|
.align 8
|
||
|
|
_STLP_atomic_increment:
|
||
|
|
0:
|
||
|
|
ldx [%o0], %o2 ! set the current
|
||
|
|
addx %o2, 0x1, %o3 ! Increment and store current
|
||
|
|
casx [%o0], %o2, %o3 ! Do the compare and swap
|
||
|
|
cmp %o3, %o2 ! Check whether successful
|
||
|
|
bne 0b
|
||
|
|
membar #LoadLoad | #LoadStore ! Ensure the cas finishes before
|
||
|
|
! returning
|
||
|
|
retl ! return
|
||
|
|
mov %o1, %o0 ! Set the return value
|
||
|
|
|
||
|
|
.size _STLP_atomic_increment,(.-_STLP_atomic_increment)
|
||
|
|
|
||
|
|
|
||
|
|
! /* int _STLP_atomic_decrement (void *pvalue) */
|
||
|
|
.type _STLP_atomic_decrement,#function
|
||
|
|
.global _STLP_atomic_decrement
|
||
|
|
.align 8
|
||
|
|
|
||
|
|
_STLP_atomic_decrement:
|
||
|
|
0:
|
||
|
|
ldx [%o0], %o2 ! set the current
|
||
|
|
subx %o2, 0x1, %o3 ! decrement and store current
|
||
|
|
casx [%o0], %o2, %o3 ! Do the compare and swap
|
||
|
|
cmp %o3, %o2 ! Check whether successful
|
||
|
|
bne 0b
|
||
|
|
membar #LoadLoad | #LoadStore ! Ensure the cas finishes before
|
||
|
|
! returning
|
||
|
|
retl ! return
|
||
|
|
nop
|
||
|
|
.size _STLP_atomic_decrement,(.-_STLP_atomic_decrement)
|
||
|
|
|
||
|
|
|
||
|
|
|