.section        ".text",#alloc,#execinstr

          .align 8

          .skip 16

  /*

  **  int _STLP_atomic_exchange (void *pvalue, int value)

  */

          .type   _STLP_atomic_exchange,#function

          .global _STLP_atomic_exchange

          .align  8

_STLP_atomic_exchange:

0:

          ld      [%o0], %o2              ! Set the current value

          mov     %o1, %o3                ! Set the new value

!          swap     [%o0], %o3             ! Do the compare and swap

          cas     [%o0], %o2, %o3

          cmp     %o2, %o3                ! Check whether successful

          bne     0b                      ! Retry upon failure

          stbar

          mov     %o2, %o0                ! Set the new value

          retl                            ! return

          nop

          .size   _STLP_atomic_exchange,(.-_STLP_atomic_exchange)

  /* int _STLP_atomic_increment (void *pvalue) */

          .type   _STLP_atomic_increment,#function

          .global _STLP_atomic_increment

          .align  8

_STLP_atomic_increment:

1:

          ld      [%o0], %o2              ! set the current

          add             %o2, 0x1, %o3                   ! Increment and store current

!          swap     [%o0], %o3         ! Do the compare and swap

          cas     [%o0], %o2, %o3

          cmp     %o3, %o2                ! Check whether successful

          bne     1b                                         ! Retry if we failed.

          membar  #LoadLoad | #LoadStore  ! Ensure the cas finishes before

                                          ! returning

          nop

          retl                            ! return

          nop

          .size   _STLP_atomic_increment,(.-_STLP_atomic_increment)

  /* int _STLP_atomic_decrement (void *pvalue) */

          .type   _STLP_atomic_decrement,#function

          .global _STLP_atomic_decrement

          .align  8

_STLP_atomic_decrement:

2:

          ld      [%o0], %o2              ! set the current

          sub     %o2, 0x1, %o3                   ! decrement and store current

!          swap    [%o0], %o3         ! Do the compare and swap

          cas     [%o0], %o2, %o3

          cmp     %o3, %o2                ! Check whether successful

          bne     2b                                         ! Retry if we failed.

          membar  #LoadLoad | #LoadStore  ! Ensure the cas finishes before

          nop

                                          ! returning

          retl                            ! return

          nop

          .size   _STLP_atomic_decrement,(.-_STLP_atomic_decrement)