BPatch functions that block are now locked (on a finer grain than the rest of the...
[dyninst.git] / dyninstAPI_RT / src / RTaix.c
1 /*
2  * Copyright (c) 1996-2004 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  * This license is for research uses.  For such uses, there is no
12  * charge. We define "research use" to mean you may freely use it
13  * inside your organization for whatever purposes you see fit. But you
14  * may not re-distribute Paradyn or parts of Paradyn, in any form
15  * source or binary (including derivatives), electronic or otherwise,
16  * to any other organization or entity without our permission.
17  * 
18  * (for other uses, please contact us at paradyn@cs.wisc.edu)
19  * 
20  * All warranties, including without limitation, any warranty of
21  * merchantability or fitness for a particular purpose, are hereby
22  * excluded.
23  * 
24  * By your use of Paradyn, you understand and agree that we (or any
25  * other person or entity with proprietary rights in Paradyn) are
26  * under no obligation to provide either maintenance services,
27  * update services, notices of latent defects, or correction of
28  * defects for Paradyn.
29  * 
30  * Even if advised of the possibility of such damages, under no
31  * circumstances shall we (or any other person or entity with
32  * proprietary rights in the software licensed hereunder) be liable
33  * to you or any third party for direct, indirect, or consequential
34  * damages of any character regardless of type of action, including,
35  * without limitation, loss of profits, loss of use, loss of good
36  * will, or computer failure or malfunction.  You agree to indemnify
37  * us (and any other person or entity with proprietary rights in the
38  * software licensed hereunder) for any and all liability it may
39  * incur to third parties resulting from your use of Paradyn.
40  */
41
42 /************************************************************************
43  * RTaix.c: mutatee-side library function specific to AIX
44 ************************************************************************/
45
46 #include "dyninstAPI_RT/h/dyninstAPI_RT.h"
47 #if !defined (EXPORT_SPINLOCKS_AS_HEADER)
48 /* everything should be under this flag except for the assembly code
49    that handles the runtime spinlocks  -- this is imported into the
50    test suite for direct testing */
51
52 #include <dlfcn.h> /* dlopen constants */
53 #include <stdio.h>
54 /************************************************************************
55  * void DYNINSTos_init(void)
56  *
57  * os initialization function
58 ************************************************************************/
59
60 void DYNINSTstaticHeap_1048576_textHeap_libSpace(void);
61 void
62 DYNINSTos_init(int calledByFork, int calledByAttach)
63 {
64 /* Text heap initialization. Call this to force the library to
65    be included by the linker */
66 #ifdef USES_LIB_TEXT_HEAP
67     /* Dummy call to get the library space actually included
68        (not pruned by an optimizing linker) */
69     DYNINSTstaticHeap_1048576_textHeap_libSpace();
70 #endif
71
72 }
73
74 char gLoadLibraryErrorString[ERROR_STRING_LENGTH];
75 int DYNINSTloadLibrary(char *libname)
76 {
77   void *res;
78   char *err_str;
79   gLoadLibraryErrorString[0]='\0';
80   
81   if (NULL == (res = dlopen(libname, RTLD_NOW | RTLD_GLOBAL))) {
82     // An error has occurred
83     perror( "DYNINSTloadLibrary -- dlopen" );
84     
85     if (NULL != (err_str = dlerror()))
86       strncpy(gLoadLibraryErrorString, err_str, ERROR_STRING_LENGTH);
87     else 
88       sprintf(gLoadLibraryErrorString,"unknown error with dlopen");
89     
90     //fprintf(stderr, "%s[%d]: %s\n",__FILE__,__LINE__,gLoadLibraryErrorString);
91     return 0;  
92   } else
93     return 1;
94 }
95
96 #endif /* EXPORT_SPINLOCKS_AS_HEADER */
97
98 void DYNINSTlock_spinlock(dyninst_spinlock *mut)
99 {
100
101  asm (
102          "  .Loop:\n"
103          " lwarx        4,0,3    # &lock in R3, reserves addr in R3 for future atomic store\n"
104          "                       # R4 <- *R3         \n"
105          " cmpwi        4,1      # if lock set, spin.\n"
106          " beq-         .Loop                        \n"
107          " lil          5,1      # R5 <- 1 (indicate mutex is locked)  \n"
108          " stwcx.       5,0,3    # atomic store R5 in memory given by R3 (&lock)\n"
109          " bne-         .Loop    # atomic store failed, try again   \n"
110          " isync                 # memory barrier, ensures lock obtained before cont\n"
111      );
112
113 }