mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-31 23:23:04 +01:00
59 lines
2.0 KiB
Plaintext
59 lines
2.0 KiB
Plaintext
/*
|
|
* The contents of this file are subject to the Initial
|
|
* Developer's Public License Version 1.0 (the "License");
|
|
* you may not use this file except in compliance with the
|
|
* License. You may obtain a copy of the License at
|
|
* http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_idpl.
|
|
*
|
|
* Software distributed under the License is distributed AS IS,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing rights
|
|
* and limitations under the License.
|
|
*
|
|
* The Original Code was created by Bill Oliver
|
|
* for the Firebird Open Source RDBMS project.
|
|
*
|
|
* Copyright (c) 2009 Bill Oliver <Bill.Oliver@sas.com>
|
|
* and all contributors signed below.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
|
|
Solaris 9 sparc assembly language implementation of atomic operators
|
|
|
|
See http://developers.sun.com/solaris/articles/atomic_sparc/
|
|
|
|
*/
|
|
|
|
/* sparc version of fetch_and_add atomic operation, see fb_atomic.h */
|
|
/* extern int fetch_and_add_il(volatile unsigned *word_addr, int value); */
|
|
|
|
.inline fetch_and_add_il,8
|
|
membar #LoadStore|#StoreStore
|
|
ld [%o0],%g1 ! load *word_addr from %o0 to %g1
|
|
add %g1,%o1,%o2 ! compute the desired result, %g1 + %o1 (value) -> %o2 (temporary)
|
|
0:
|
|
cas [%o0],%g1,%o2 ! try to CAS it into place
|
|
cmp %g1,%o2 ! compare old to new
|
|
bne,a,pn %icc,0b ! CAS failed, try again
|
|
mov %o2,%g1 ! copy result -> %g1 for next iteration
|
|
mov %o2,%o0 ! return old value
|
|
membar #LoadLoad|#LoadStore
|
|
.end
|
|
|
|
/* sparc version of compare_and_swap, see fb_atomic.h */
|
|
/* extern boolean_t compare_and_swap_il(volatile unsigned *word_addr, unsigned *old_val_addr, int new_val); */
|
|
|
|
.inline compare_and_swap_il,12
|
|
membar #LoadStore|#StoreStore
|
|
ld [%o1],%g1 ! set the old value
|
|
cas [%o0],%g1,%o2 ! try the CAS
|
|
cmp %g1,%o2
|
|
be,a true
|
|
mov 1,%o0 ! return TRUE/1
|
|
mov 0,%o0 ! return FALSE/0
|
|
true:
|
|
st %o2,[%o1] ! store existing value in memory
|
|
membar #LoadLoad|#LoadStore
|
|
.end
|