gc-7.2/libatomic_ops/src/atomic_ops/sysdeps/gcc/alpha.h

   1 /*
   2  * Copyright (c) 1991-1994 by Xerox Corporation.  All rights reserved.
   3  * Copyright (c) 1996-1999 by Silicon Graphics.  All rights reserved.
   4  * Copyright (c) 1999-2003 by Hewlett-Packard Company. All rights reserved.
   5  *
   6  *
   7  * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
   8  * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
   9  *
  10  * Permission is hereby granted to use or copy this program
  11  * for any purpose,  provided the above notices are retained on all copies.
  12  * Permission to modify the code and to distribute modified code is granted,
  13  * provided the above notices are retained, and a notice that the code was
  14  * modified is included with the above copyright notice.
  15  *
  16  */
  17
  18 #include "../atomic_load_store.h"
  19
  20 #include "../test_and_set_t_is_ao_t.h"
  21
  22 #define AO_NO_DD_ORDERING
  23         /* Data dependence does not imply read ordering.        */
  24
  25 AO_INLINE void
  26 AO_nop_full(void)
  27 {
  28   __asm__ __volatile__("mb" : : : "memory");
  29 }
  30 #define AO_HAVE_nop_full
  31
  32 AO_INLINE void
  33 AO_nop_write(void)
  34 {
  35   __asm__ __volatile__("wmb" : : : "memory");
  36 }
  37 #define AO_HAVE_nop_write
  38
  39 /* mb should be used for AO_nop_read().  That's the default.    */
  40
  41 /* We believe that ldq_l ... stq_c does not imply any memory barrier.   */
  42 /* We should add an explicit fetch_and_add definition.                  */
  43 AO_INLINE int
  44 AO_compare_and_swap(volatile AO_t *addr,
  45                     AO_t old, AO_t new_val)
  46 {
  47   unsigned long was_equal;
  48   unsigned long temp;
  49
  50   __asm__ __volatile__(
  51                      "1:     ldq_l %0,%1\n"
  52                      "       cmpeq %0,%4,%2\n"
  53                      "       mov %3,%0\n"
  54                      "       beq %2,2f\n"
  55                      "       stq_c %0,%1\n"
  56                      "       beq %0,1b\n"
  57                      "2:\n"
  58                      :"=&r" (temp), "=m" (*addr), "=&r" (was_equal)
  59                      : "r" (new_val), "Ir" (old)
  60                      :"memory");
  61   return (int)was_equal;
  62 }
  63 #define AO_HAVE_compare_and_swap