1 kumpf 1.1 ;%2005////////////////////////////////////////////////////////////////////////
2 ;
3 ; Copyright (c) 2000, 2001, 2002 BMC Software; Hewlett-Packard Development
4 ; Company, L.P.; IBM Corp.; The Open Group; Tivoli Systems.
5 ; Copyright (c) 2003 BMC Software; Hewlett-Packard Development Company, L.P.;
6 ; IBM Corp.; EMC Corporation, The Open Group.
7 ; Copyright (c) 2004 BMC Software; Hewlett-Packard Development Company, L.P.;
8 ; IBM Corp.; EMC Corporation; VERITAS Software Corporation; The Open Group.
9 ; Copyright (c) 2005 Hewlett-Packard Development Company, L.P.; IBM Corp.;
10 ; EMC Corporation; VERITAS Software Corporation; The Open Group.
11 ;
12 ; Permission is hereby granted, free of charge, to any person obtaining a copy
13 ; of this software and associated documentation files (the "Software"), to
14 ; deal in the Software without restriction, including without limitation the
15 ; rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
16 ; sell copies of the Software, and to permit persons to whom the Software is
17 ; furnished to do so, subject to the following conditions:
18 ;
19 ; THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE SHALL BE INCLUDED IN
20 ; ALL COPIES OR SUBSTANTIAL PORTIONS OF THE SOFTWARE. THE SOFTWARE IS PROVIDED
21 ; "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
22 kumpf 1.1 ; LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
23 ; PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
24 ; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
25 ; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 ; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27 ;
28 ;==============================================================================
29 ;
30 ; Author: Roger Kumpf, Hewlett-Packard Company (roger_kumpf@hp.com)
31 ;
32 ;%/////////////////////////////////////////////////////////////////////////////
33
34 ;
35 ; LoadAndClearWord_HPUX_PARISC_ACC.s:
36 ; HP-UX PA-RISC assembly language routine for spinlock support.
37 ;
38
39 .code
40 #ifdef __LP64__
41 .level 2.0W
42 #else
43 kumpf 1.1 .level 1.1
44 #endif
45 .export LoadAndClearWord,entry,priv_lev=3,rtnval=gr
46 .proc
47
48 LoadAndClearWord
49 .callinfo no_calls
50 .enter
51
52 ; create a 16 byte aligned pointer to the load+clear word area
53 addi 15,%arg0,%arg2 ; add 15 to the pointer to round up
54
55 #ifdef __LP64__
56 depdi 0,63,4,%arg2 ; mask the lower 4 bits (64-bit)
57 #else
58 depi 0,31,4,%arg2 ; mask the lower 4 bits (32-bit)
59 #endif
60
61 #ifdef __LP64__
62 bve (%r2) ; return 0 if already locked, else !0
63 #else
64 kumpf 1.1 bv (%r2) ; return 0 if already locked, else !0
65 #endif
66 ldcws,co (%arg2),%ret0 ; (in branch delay slot)
67 ; load and clear (coherent) the spinlock word
68
69 ; This code is never executed. This endless loop reduces the
70 ; prefetching after mispredicted bv on pre PA 8700 processors.
71 ; Leave this dead code here to improve performance.
72
73 load_and_clear_loop
74 b load_and_clear_loop
75 nop
76 .leave
77 .procend
|