atomic_cas.S revision 1.7.12.1 1 1.7.12.1 tls /* $NetBSD: atomic_cas.S,v 1.7.12.1 2014/08/19 23:45:13 tls Exp $ */
2 1.2 ad
3 1.2 ad /*-
4 1.3 ad * Copyright (c) 2007, 2008 The NetBSD Foundation, Inc.
5 1.2 ad * All rights reserved.
6 1.2 ad *
7 1.2 ad * This code is derived from software contributed to The NetBSD Foundation
8 1.2 ad * by Jason R. Thorpe.
9 1.2 ad *
10 1.2 ad * Redistribution and use in source and binary forms, with or without
11 1.2 ad * modification, are permitted provided that the following conditions
12 1.2 ad * are met:
13 1.2 ad * 1. Redistributions of source code must retain the above copyright
14 1.2 ad * notice, this list of conditions and the following disclaimer.
15 1.2 ad * 2. Redistributions in binary form must reproduce the above copyright
16 1.2 ad * notice, this list of conditions and the following disclaimer in the
17 1.2 ad * documentation and/or other materials provided with the distribution.
18 1.2 ad *
19 1.2 ad * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.2 ad * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.2 ad * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.2 ad * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.2 ad * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.2 ad * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.2 ad * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.2 ad * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.2 ad * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.2 ad * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.2 ad * POSSIBILITY OF SUCH DAMAGE.
30 1.2 ad */
31 1.2 ad
32 1.2 ad #include "atomic_op_asm.h"
33 1.2 ad
34 1.7 matt __RCSID("$NetBSD: atomic_cas.S,v 1.7.12.1 2014/08/19 23:45:13 tls Exp $")
35 1.7 matt
36 1.2 ad .text
37 1.6 chs ENTRY(_atomic_cas_32)
38 1.7.12.1 tls mr %r10,%r3
39 1.7.12.1 tls 1: lwarx %r3,0,%r10
40 1.7.12.1 tls cmpw %r3,%r4
41 1.7.12.1 tls bnelr-
42 1.7.12.1 tls stwcx. %r5,0,%r10
43 1.7.12.1 tls beqlr+
44 1.7.12.1 tls b 1b
45 1.7 matt END(_atomic_cas_32)
46 1.3 ad
47 1.2 ad ATOMIC_OP_ALIAS(atomic_cas_32,_atomic_cas_32)
48 1.3 ad ATOMIC_OP_ALIAS(atomic_cas_32_ni,_atomic_cas_32)
49 1.3 ad STRONG_ALIAS(_atomic_cas_32_ni,_atomic_cas_32)
50 1.7.12.1 tls
51 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_uint,_atomic_cas_32)
52 1.3 ad ATOMIC_OP_ALIAS(atomic_cas_uint_ni,_atomic_cas_32)
53 1.7.12.1 tls
54 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_uint,_atomic_cas_32)
55 1.3 ad STRONG_ALIAS(_atomic_cas_uint_ni,_atomic_cas_32)
56 1.7.12.1 tls
57 1.7.12.1 tls #if defined(_LP64)
58 1.7.12.1 tls ENTRY(_atomic_cas_64)
59 1.7.12.1 tls mr %r10,%r3
60 1.7.12.1 tls 1: ldarx %r3,0,%r10
61 1.7.12.1 tls cmpd %r3,%r4
62 1.7.12.1 tls bnelr-
63 1.7.12.1 tls stdcx. %r5,0,%r10
64 1.7.12.1 tls beqlr+
65 1.7.12.1 tls b 1b
66 1.7.12.1 tls END(_atomic_cas_64)
67 1.7.12.1 tls
68 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_64,_atomic_cas_64)
69 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_64_ni,_atomic_cas_64)
70 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_64_ni,_atomic_cas_64)
71 1.7.12.1 tls
72 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ulong,_atomic_cas_64)
73 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ulong_ni,_atomic_cas_64)
74 1.7.12.1 tls
75 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ptr,_atomic_cas_64)
76 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ptr_ni,_atomic_cas_64)
77 1.7.12.1 tls
78 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ulong,_atomic_cas_64)
79 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ulong_ni,_atomic_cas_64)
80 1.7.12.1 tls
81 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ptr,_atomic_cas_64)
82 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ptr_ni,_atomic_cas_64)
83 1.7.12.1 tls #else
84 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ulong,_atomic_cas_32)
85 1.3 ad ATOMIC_OP_ALIAS(atomic_cas_ulong_ni,_atomic_cas_32)
86 1.7.12.1 tls
87 1.7.12.1 tls ATOMIC_OP_ALIAS(atomic_cas_ptr,_atomic_cas_32)
88 1.3 ad ATOMIC_OP_ALIAS(atomic_cas_ptr_ni,_atomic_cas_32)
89 1.7.12.1 tls
90 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ulong,_atomic_cas_32)
91 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ulong_ni,_atomic_cas_32)
92 1.7.12.1 tls
93 1.7.12.1 tls STRONG_ALIAS(_atomic_cas_ptr,_atomic_cas_32)
94 1.3 ad STRONG_ALIAS(_atomic_cas_ptr_ni,_atomic_cas_32)
95 1.3 ad #endif
96