src/threads/native/generic-primitives.h

   1 /* src/threads/native/generic-primitives.h - machine independent atomic
   2                                              operations
   3
   4    Copyright (C) 1996-2005, 2006 R. Grafl, A. Krall, C. Kruegel,
   5    C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
   6    E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
   7    J. Wenninger, Institut f. Computersprachen - TU Wien
   8
   9    This file is part of CACAO.
  10
  11    This program is free software; you can redistribute it and/or
  12    modify it under the terms of the GNU General Public License as
  13    published by the Free Software Foundation; either version 2, or (at
  14    your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful, but
  17    WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19    General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program; if not, write to the Free Software
  23    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  24    02110-1301, USA.
  25
  26    Contact: cacao@cacaojvm.org
  27
  28    Authors: Christian Thalinger
  29             Anton Ertl
  30
  31    Changes:
  32
  33    $Id: generic-primitives.h 4357 2006-01-22 23:33:38Z twisti $
  34
  35 */
  36
  37
  38 #ifndef _MACHINE_INSTR_H
  39 #define _MACHINE_INSTR_H
  40
  41 #include <pthread.h>
  42
  43 extern pthread_mutex_t _atomic_add_lock;
  44 extern pthread_mutex_t _cas_lock;
  45 extern pthread_mutex_t _mb_lock;
  46
  47
  48 static inline void atomic_add(volatile int *mem, int val)
  49 {
  50   pthread_mutex_lock(&_atomic_add_lock);
  51
  52   /* do the atomic add */
  53   *mem += val;
  54
  55   pthread_mutex_unlock(&_atomic_add_lock);
  56 }
  57
  58
  59 static inline long compare_and_swap(volatile long *p, long oldval, long newval)
  60 {
  61   long ret;
  62
  63   pthread_mutex_lock(&_cas_lock);
  64
  65   /* do the compare-and-swap */
  66
  67   ret = *p;
  68
  69   if (oldval == ret)
  70     *p = newval;
  71
  72   pthread_mutex_unlock(&_cas_lock);
  73
  74   return ret;
  75 }
  76
  77
  78 #define MEMORY_BARRIER()                  (pthread_mutex_lock(&_mb_lock), \
  79                                            pthread_mutex_unlock(&_mb_lock))
  80 #define STORE_ORDER_BARRIER()             MEMORY_BARRIER()
  81 #define MEMORY_BARRIER_BEFORE_ATOMIC()    /* nothing */
  82 #define MEMORY_BARRIER_AFTER_ATOMIC()     /* nothing */
  83
  84 #endif /* _MACHINE_INSTR_H */
  85
  86
  87 /*
  88  * These are local overrides for various environment variables in Emacs.
  89  * Please do not remove this and leave it at the end of the file, where
  90  * Emacs will automagically detect them.
  91  * ---------------------------------------------------------------------
  92  * Local variables:
  93  * mode: c
  94  * indent-tabs-mode: t
  95  * c-basic-offset: 4
  96  * tab-width: 4
  97  * End:
  98  */