Update copyright to LGPL on all files
[dyninst.git] / dyninstAPI_RT / src / RTthread-ia64.c
1 /*
2  * Copyright (c) 1996-2009 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as "Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * By your use of Paradyn, you understand and agree that we (or any
12  * other person or entity with proprietary rights in Paradyn) are
13  * under no obligation to provide either maintenance services,
14  * update services, notices of latent defects, or correction of
15  * defects for Paradyn.
16  * 
17  * This library is free software; you can redistribute it and/or
18  * modify it under the terms of the GNU Lesser General Public
19  * License as published by the Free Software Foundation; either
20  * version 2.1 of the License, or (at your option) any later version.
21  * 
22  * This library is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
25  * Lesser General Public License for more details.
26  * 
27  * You should have received a copy of the GNU Lesser General Public
28  * License along with this library; if not, write to the Free Software
29  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
30  */
31
32 #include <pthread.h>
33 #include "RTthread.h"
34
35 unsigned DYNINSTthreadIndexFAST()
36 {
37    return 0;
38 }
39
40 int tc_lock_lock(tc_lock_t *lock)
41 {
42    /* If we've already got the lock, fail. */
43    dyntid_t myid = dyn_pthread_self();
44    if( myid == lock->tid ) {
45       return DYNINST_DEAD_LOCK;
46    }
47    
48    /* Loop until we acquire the lock. */
49    
50    /* Assumes tc->mutex is a 4-byte value. */
51    __asm__ __volatile__ (
52          "mov ar.ccv = r0\n"
53          "mov r22 = 1;;\n"
54          "1: cmpxchg4.acq r21 = [%0], r22, ar.ccv;;\n"
55          "cmp.eq p6, p7 = r21, r0;;\n"
56          /* if we read a zero from memory, we've acquired the lock, 
57             so p7 -> we did not acquire the lock */
58          "(p7) br.cond.spnt.few 1b;;\n"
59          : /* no output */
60          : "r" (& lock->mutex)
61          : "p6", "p7", "r21", "r22", "ar.ccv", "memory"
62          );      
63    /* Lay claim to it. */
64    lock->tid = myid;
65    return 0;
66 } /* end tc_lock_lock() */
67