BPatch functions that block are now locked (on a finer grain than the rest of the...
[dyninst.git] / dyninstAPI_RT / src / RTirix.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  * $Id: RTirix.c,v 1.11 2005/02/25 07:04:47 jaw Exp $
44  * RTirix.c: mutatee-side library function specific to IRIX
45  ************************************************************************/
46 #include "dyninstAPI_RT/h/dyninstAPI_RT.h"
47
48 #if !defined (EXPORT_SPINLOCKS_AS_HEADER)
49 /* everything should be under this flag except for the assembly code
50    that handles the runtime spinlocks  -- this is imported into the
51    test suite for direct testing */
52
53 #include <stdio.h>
54 #include <errno.h>
55 #include <stdlib.h>
56 #include <string.h>
57 #include <sys/types.h>
58 #include <sys/stat.h>                 /* open() */
59 #include <fcntl.h>                    /* open() */
60 #include <unistd.h>                   /* procfs */
61 #include <sys/procfs.h>               /* procfs */
62 #include <sys/mman.h>                 /* mmap() */
63 #include <dlfcn.h>                    /* dlopen() */
64
65 /************************************************************************
66  * EXPORTED SYMBOLS:
67  *   void   DYNINSTos_init(int, int): OS-specific initialization
68  *   void  *DYNINSTloadLibrary(char *): dlopen wrapper
69  * (below symbols implemented in "RTheap.c" and "RTheap-irix.c")
70  *   void  *DYNINSTos_malloc(size_t, void *, void *): heap allocation
71  *   int    DYNINSTos_free(void *): heap deallocation
72  ************************************************************************/
73 #ifndef GNU_TO_ASS
74 void DYNINSTos_init(int calledByFork, int calledByAttach)
75 {
76 }
77
78 char gLoadLibraryErrorString[ERROR_STRING_LENGTH];
79 int DYNINSTloadLibrary(char *libname)
80 {
81   void *res;
82   char *err_str;
83   gLoadLibraryErrorString[0]='\0';
84   
85   if (NULL == (res = dlopen(libname, RTLD_NOW | RTLD_GLOBAL))) {
86     // An error has occurred
87     perror( "DYNINSTloadLibrary -- dlopen" );
88
89     if (NULL != (err_str = dlerror()))
90       strncpy(gLoadLibraryErrorString, err_str, ERROR_STRING_LENGTH);
91     else 
92       sprintf(gLoadLibraryErrorString,"unknown error with dlopen");
93     
94     //fprintf(stderr, "%s[%d]: %s\n",__FILE__,__LINE__,gLoadLibraryErrorString);
95     return 0;  
96   } else {
97     return 1;
98   }
99 }
100 #endif
101 #endif /* EXPORT SPINLOCK */
102
103 #if defined(GNU_TO_ASS)
104 void DYNINSTlock_spinlock(dyninst_spinlock *mut)
105 {
106
107   /*  SGI's cc compiler does not support inline assembly, so we have gnu
108     create a .s file, and then use the SGI assembler. */
109
110  asm (
111      /*" .set     noreorder       #\n" */
112      " lw       $2, 16($fp)     # R2 <- mut \n"
113
114      " 1:                       #\n"
115      " ll       $3, 0($2)       # R3 <- mut->lock\n"
116      " bnez     $3, 1b          # if (lock != 0) spin\n"
117      " li       $3, 1           # R3 <- 1 (indicate lock set)\n"
118      " sc       $3, 0($2)       # attempt to store lock\n"
119      /*" nop; nop; nop; nop; nop; nop; nop; nop; \n" */
120      /*" nop; nop; nop; nop; nop; nop; nop; nop; \n" */
121      /*" nop; nop; nop; nop; nop; nop; nop; nop; \n" */
122      /*" nop; nop; nop; nop; nop; nop; nop; nop; \n" */
123      " beqz     $3, 1b          # store failed, spin again\n"
124      " sync                     # sync memory ops after lock\n"
125      /*" .set     reorder         #\n" */
126      );
127
128 }
129 #endif