Subversion Repositories or1k

/* $Id: bitops.S,v 1.1.1.1 2004-04-15 01:33:42 phoenix Exp $
 * bitops.S: Sparc64 atomic bit operations.
 *
 * Copyright (C) 2000 David S. Miller (davem@redhat.com)
 */

#include <asm/asi.h>

        .text
        .align  64
        .globl  __bitops_begin
__bitops_begin:

        .globl  ___test_and_set_bit
___test_and_set_bit:    /* %o0=nr, %o1=addr */
        srlx    %o0, 6, %g1
        mov     1, %g5
        sllx    %g1, 3, %g3
        and     %o0, 63, %g2
        sllx    %g5, %g2, %g5
        add     %o1, %g3, %o1
        ldx     [%o1], %g7
1:      andcc   %g7, %g5, %o0
        bne,pn  %xcc, 2f
         xor    %g7, %g5, %g1
        casx    [%o1], %g7, %g1
        cmp     %g7, %g1
        bne,a,pn %xcc, 1b
         ldx    [%o1], %g7
2:      retl
         membar #StoreLoad | #StoreStore

        .globl  ___test_and_clear_bit
___test_and_clear_bit:  /* %o0=nr, %o1=addr */
        srlx    %o0, 6, %g1
        mov     1, %g5
        sllx    %g1, 3, %g3
        and     %o0, 63, %g2
        sllx    %g5, %g2, %g5
        add     %o1, %g3, %o1
        ldx     [%o1], %g7
1:      andcc   %g7, %g5, %o0
        be,pn   %xcc, 2f
         xor    %g7, %g5, %g1
        casx    [%o1], %g7, %g1
        cmp     %g7, %g1
        bne,a,pn %xcc, 1b
         ldx    [%o1], %g7
2:      retl
         membar #StoreLoad | #StoreStore

        .globl  ___test_and_change_bit
___test_and_change_bit: /* %o0=nr, %o1=addr */
        srlx    %o0, 6, %g1
        mov     1, %g5
        sllx    %g1, 3, %g3
        and     %o0, 63, %g2
        sllx    %g5, %g2, %g5
        add     %o1, %g3, %o1
        ldx     [%o1], %g7
1:      and     %g7, %g5, %o0
        xor     %g7, %g5, %g1
        casx    [%o1], %g7, %g1
        cmp     %g7, %g1
        bne,a,pn %xcc, 1b
         ldx    [%o1], %g7
2:      retl
         membar #StoreLoad | #StoreStore
        nop

        .globl  ___test_and_set_le_bit
___test_and_set_le_bit: /* %o0=nr, %o1=addr */
        srlx    %o0, 5, %g1
        mov     1, %g5
        sllx    %g1, 2, %g3
        and     %o0, 31, %g2
        sllx    %g5, %g2, %g5
        add     %o1, %g3, %o1
        lduwa   [%o1] ASI_PL, %g7
1:      andcc   %g7, %g5, %o0
        bne,pn  %icc, 2f
         xor    %g7, %g5, %g1
        casa    [%o1] ASI_PL, %g7, %g1
        cmp     %g7, %g1
        bne,a,pn %icc, 1b
         lduwa  [%o1] ASI_PL, %g7
2:      retl
         membar #StoreLoad | #StoreStore

        .globl  ___test_and_clear_le_bit
___test_and_clear_le_bit:       /* %o0=nr, %o1=addr */
        srlx    %o0, 5, %g1
        mov     1, %g5
        sllx    %g1, 2, %g3
        and     %o0, 31, %g2
        sllx    %g5, %g2, %g5
        add     %o1, %g3, %o1
        lduwa   [%o1] ASI_PL, %g7
1:      andcc   %g7, %g5, %o0
        be,pn   %icc, 2f
         xor    %g7, %g5, %g1
        casa    [%o1] ASI_PL, %g7, %g1
        cmp     %g7, %g1
        bne,a,pn %icc, 1b
         lduwa  [%o1] ASI_PL, %g7
2:      retl
         membar #StoreLoad | #StoreStore

        .globl  __bitops_end
__bitops_end: