2002-10-30 15:57:05 +04:00
|
|
|
/ See the file LICENSE for redistribution information.
|
|
|
|
|
/
|
2005-07-20 15:48:22 -07:00
|
|
|
/ Copyright (c) 1997-2004
|
2002-10-30 15:57:05 +04:00
|
|
|
/ Sleepycat Software. All rights reserved.
|
|
|
|
|
/
|
2005-07-20 15:48:22 -07:00
|
|
|
/ $Id: uts4_cc.s,v 11.4 2004/01/28 03:36:18 bostic Exp $
|
2001-03-04 19:42:05 -05:00
|
|
|
/
|
|
|
|
|
/ int uts_lock ( int *p, int i );
|
|
|
|
|
/ Update the lock word pointed to by p with the
|
|
|
|
|
/ value i, using compare-and-swap.
|
|
|
|
|
/ Returns 0 if update was successful.
|
|
|
|
|
/ Returns 1 if update failed.
|
|
|
|
|
/
|
|
|
|
|
entry uts_lock
|
|
|
|
|
uts_lock:
|
|
|
|
|
using .,r15
|
|
|
|
|
st r2,8(sp) / Save R2
|
|
|
|
|
l r2,64+0(sp) / R2 -> word to update
|
|
|
|
|
slr r0, r0 / R0 = current lock value must be 0
|
|
|
|
|
l r1,64+4(sp) / R1 = new lock value
|
|
|
|
|
cs r0,r1,0(r2) / Try the update ...
|
|
|
|
|
be x / ... Success. Return 0
|
|
|
|
|
la r0,1 / ... Failure. Return 1
|
|
|
|
|
x: /
|
|
|
|
|
l r2,8(sp) / Restore R2
|
|
|
|
|
b 2(,r14) / Return to caller
|
|
|
|
|
drop r15
|
