Home | History | Annotate | Line # | Download | only in atomic
atomic_cas.S revision 1.5.24.1 
      1 /*	$NetBSD: atomic_cas.S,v 1.5.24.1 2014/08/19 23:45:13 tls Exp $	*/
      2 
      3 /*-
      4  * Copyright (c) 2007, 2008 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * This code is derived from software contributed to The NetBSD Foundation
      8  * by Jason R. Thorpe.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29  * POSSIBILITY OF SUCH DAMAGE.
     30  */
     31 
     32 #include "atomic_op_asm.h"
     33 
     34 	.text
     35 
     36 ENTRY(_atomic_cas_32)
     37 	movl	4(%sp), %a0
     38 	movl	8(%sp), %d0
     39 	movl	12(%sp), %d1
     40 	casl	%d0, %d1, (%a0)
     41 	/* %d0 now contains the old value */
     42 	movl	%d0, %a0	/* pointers return also in %a0 */
     43 	rts
     44 END(_atomic_cas_32)
     45 
     46 ATOMIC_OP_ALIAS(atomic_cas_32,_atomic_cas_32)
     47 ATOMIC_OP_ALIAS(atomic_cas_uint,_atomic_cas_32)
     48 STRONG_ALIAS(_atomic_cas_uint,_atomic_cas_32)
     49 ATOMIC_OP_ALIAS(atomic_cas_ulong,_atomic_cas_32)
     50 STRONG_ALIAS(_atomic_cas_ulong,_atomic_cas_32)
     51 ATOMIC_OP_ALIAS(atomic_cas_ptr,_atomic_cas_32)
     52 STRONG_ALIAS(_atomic_cas_ptr,_atomic_cas_32)
     53 CRT_ALIAS(__sync_val_compare_and_swap_4,_atomic_cas_32)
     54 
     55 ATOMIC_OP_ALIAS(atomic_cas_32_ni,_atomic_cas_32)
     56 STRONG_ALIAS(_atomic_cas_32_ni,_atomic_cas_32)
     57 ATOMIC_OP_ALIAS(atomic_cas_uint_ni,_atomic_cas_32)
     58 STRONG_ALIAS(_atomic_cas_uint_ni,_atomic_cas_32)
     59 ATOMIC_OP_ALIAS(atomic_cas_ulong_ni,_atomic_cas_32)
     60 STRONG_ALIAS(_atomic_cas_ulong_ni,_atomic_cas_32)
     61 ATOMIC_OP_ALIAS(atomic_cas_ptr_ni,_atomic_cas_32)
     62 STRONG_ALIAS(_atomic_cas_ptr_ni,_atomic_cas_32)
     63 
     64 ENTRY(__sync_bool_compare_and_swap_4)
     65 	movl	4(%sp), %a0
     66 	movl	8(%sp), %d3
     67 	movl	%d3, %d2
     68 	movl	12(%sp), %d1
     69 	casl	%d3, %d1, (%a0)
     70 	/* %d3 now contains the old value */
     71 	beq	1f
     72 	clrl	%d0	/* return false */
     73 	rts
     74 1:	movl	#1, %d0	/* return success */
     75 	rts
     76 END(__sync_bool_compare_and_swap_4)
     77 
     78 ENTRY(_atomic_cas_16)
     79 	movl	4(%sp), %a0
     80 	movw	8(%sp), %d0
     81 	movw	10(%sp), %d1
     82 	casw	%d0, %d1, (%a0)
     83 	/* %d0 now contains the old value */
     84 	rts
     85 END(_atomic_cas_16)
     86 
     87 ATOMIC_OP_ALIAS(atomic_cas_16,_atomic_cas_16)
     88 CRT_ALIAS(__sync_val_compare_and_swap_2,_atomic_cas_16)
     89 
     90 ENTRY(__sync_bool_compare_and_swap_2)
     91 	movl	4(%sp), %a0
     92 	movw	8(%sp), %d3
     93 	movw	%d3, %d2
     94 	movw	10(%sp), %d1
     95 	casw	%d3, %d1, (%a0)
     96 	/* %d3 now contains the old value */
     97 	beq	1f
     98 	clrl	%d0	/* return failure */
     99 	rts
    100 1:	movl	#1, %d0	/* return success */
    101 	rts
    102 END(__sync_bool_compare_and_swap_2)
    103 
    104 ENTRY(_atomic_cas_8)
    105 	movl	4(%sp), %a0
    106 	movb	8(%sp), %d0
    107 	movb	9(%sp), %d1
    108 	casb	%d0, %d1, (%a0)
    109 	/* %d0 now contains the old value */
    110 	rts
    111 END(_atomic_cas_8)
    112 
    113 ATOMIC_OP_ALIAS(atomic_cas_8,_atomic_cas_8)
    114 CRT_ALIAS(__sync_val_compare_and_swap_1,_atomic_cas_8)
    115 
    116 
    117 ENTRY(__sync_bool_compare_and_swap_1)
    118 	movl	4(%sp), %a0
    119 	movb	8(%sp), %d3
    120 	movb	%d3, %d2
    121 	movb	9(%sp), %d1
    122 	casb	%d3, %d1, (%a0)
    123 	/* %d3 now contains the old value */
    124 	beq	1f
    125 	clrl	%d0	/* return failure */
    126 	rts
    127 1:	movl	#1, %d0	/* return success */
    128 	rts
    129 END(__sync_bool_compare_and_swap_1)
    130 
    131