rebased to master after sw 3rd party completed
[dyninst.git] / dyninstAPI_RT / src / RTthread-x86-64.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 "dyninstAPI_RT/src/RTthread.h"
32
33 static int atomic_set(volatile int *val)
34 {
35    int result = 1;
36    __asm__ __volatile__(
37            "xchgl %0, %1\n"
38            : "+r" (result), "+m" (*val)
39            :: "memory");
40    return !result;
41 }
42
43 int tc_lock_lock(tc_lock_t *tc)
44 {
45    dyntid_t me;
46
47    me = dyn_pthread_self();
48    if (me == tc->tid)
49       return DYNINST_DEAD_LOCK;
50
51    while (!atomic_set(&tc->mutex));
52
53    tc->tid = me;
54    return 0;
55 }
56