use compiler intrinsics on x64
[dyninst.git] / dyninstAPI_RT / src / RTthread-x86.c
1 /*
2  * See the dyninst/COPYRIGHT file for copyright information.
3  * 
4  * We provide the Paradyn Tools (below described as "Paradyn")
5  * on an AS IS basis, and do not warrant its validity or performance.
6  * We reserve the right to update, modify, or discontinue this
7  * software at any time.  We shall have no obligation to supply such
8  * updates or modifications or any other form of support to you.
9  * 
10  * By your use of Paradyn, you understand and agree that we (or any
11  * other person or entity with proprietary rights in Paradyn) are
12  * under no obligation to provide either maintenance services,
13  * update services, notices of latent defects, or correction of
14  * defects for Paradyn.
15  * 
16  * This library is free software; you can redistribute it and/or
17  * modify it under the terms of the GNU Lesser General Public
18  * License as published by the Free Software Foundation; either
19  * version 2.1 of the License, or (at your option) any later version.
20  * 
21  * This library is distributed in the hope that it will be useful,
22  * but WITHOUT ANY WARRANTY; without even the implied warranty of
23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
24  * Lesser General Public License for more details.
25  * 
26  * You should have received a copy of the GNU Lesser General Public
27  * License along with this library; if not, write to the Free Software
28  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
29  */
30
31 #include <assert.h>
32 #include "dyninstAPI_RT/src/RTthread.h"
33
34 /**
35  * atomic_set will do the following atomically:
36  *    if (*val == 0) {
37  *       *val = 1;
38  *       return 1;
39  *    }
40  *    return 0;
41  *
42  * We need two versions since windows uses a different assembly syntax
43  * (AT&T syntax on Linux and Intel on Windows)
44  **/
45 #if defined(os_windows)
46 int atomic_set(volatile int *val)
47 {
48    int result;
49 #ifdef _WIN64
50    result = _InterlockedCompareExchange(val, 1, 0);
51    return !result;
52 #else
53    __asm
54    {
55       mov eax, 0 ;
56       mov ebx, 1 ;
57       mov ecx, val ;      
58       lock cmpxchg [ecx],ebx ;
59       setz al ;
60       mov result, eax ;
61    }   
62 #endif
63    return result;
64 }
65 #else
66 static int atomic_set(volatile int *val)
67 {
68    int result = 1;
69    __asm__ __volatile__(
70            "xchgl %0, %1\n"
71            : "+r" (result), "+m" (*val)
72            :: "memory");
73    return !result;
74 }
75 #endif
76
77 int tc_lock_lock(tc_lock_t *tc)
78 {
79    dyntid_t me;
80
81    me = dyn_pthread_self();
82    if (me == tc->tid)
83       return DYNINST_DEAD_LOCK;
84
85    while (!atomic_set(&tc->mutex));
86
87    tc->tid = me;
88    return 0;
89 }