Home | History | Annotate | Line # | Download | only in atomic 
      1 /*	$NetBSD: atomic_cas.S,v 1.14 2022/04/06 22:47:56 riastradh 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), %d0
     67 	movl	12(%sp), %d1
     68 	casl	%d0, %d1, (%a0)
     69 	beqs	1f
     70 	clrl	%d0	/* return false */
     71 	rts
     72 1:	movql	#1, %d0	/* return success */
     73 	rts
     74 END(__sync_bool_compare_and_swap_4)
     75 
     76 ENTRY(_atomic_cas_16)
     77 	movl	4(%sp), %a0
     78 	movw	8+2(%sp), %d0		/* lower word */
     79 	movw	12+2(%sp), %d1		/* lower word */
     80 	casw	%d0, %d1, (%a0)
     81 	/* %d0 now contains the old value */
     82 	rts
     83 END(_atomic_cas_16)
     84 
     85 ATOMIC_OP_ALIAS(atomic_cas_16,_atomic_cas_16)
     86 CRT_ALIAS(__sync_val_compare_and_swap_2,_atomic_cas_16)
     87 
     88 ENTRY(__sync_bool_compare_and_swap_2)
     89 	movl	4(%sp), %a0
     90 	movw	8+2(%sp), %d0		/* lower word */
     91 	movw	12+2(%sp), %d1		/* lower word */
     92 	casw	%d0, %d1, (%a0)
     93 	/* %d0 now contains the old value */
     94 	beqs	1f
     95 	clrl	%d0	/* return failure */
     96 	rts
     97 1:	movql	#1, %d0	/* return success */
     98 	rts
     99 END(__sync_bool_compare_and_swap_2)
    100 
    101 ENTRY(_atomic_cas_8)
    102 	movl	4(%sp), %a0
    103 	movb	8+3(%sp), %d0		/* lower byte */
    104 	movb	12+3(%sp), %d1		/* lower byte */
    105 	casb	%d0, %d1, (%a0)
    106 	/* %d0 now contains the old value */
    107 	rts
    108 END(_atomic_cas_8)
    109 
    110 ATOMIC_OP_ALIAS(atomic_cas_8,_atomic_cas_8)
    111 CRT_ALIAS(__sync_val_compare_and_swap_1,_atomic_cas_8)
    112 
    113 
    114 ENTRY(__sync_bool_compare_and_swap_1)
    115 	movl	4(%sp), %a0
    116 	movb	8+3(%sp), %d0		/* lower byte */
    117 	movb	12+3(%sp), %d1		/* lower byte */
    118 	casb	%d0, %d1, (%a0)
    119 	/* %d0 now contains the old value */
    120 	beqs	1f
    121 	clrl	%d0	/* return failure */
    122 	rts
    123 1:	movql	#1, %d0	/* return success */
    124 	rts
    125 END(__sync_bool_compare_and_swap_1)
    126 
    127