Sets the brk pointer for save-the-world binaries to what it was when each
[dyninst.git] / dyninstAPI_RT / src / RTosf.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  * RTosf.c: mutatee-side library function specific to OSF
44 ************************************************************************/
45 #include "dyninstAPI_RT/h/dyninstAPI_RT.h"
46
47 #include <stdio.h>
48 #include <errno.h>
49 #include <stdlib.h>
50 #include <string.h>
51 #include <sys/types.h>
52 #include <dlfcn.h>                    /* dlopen() */
53 #include <unistd.h>
54 #include "dyninstAPI_RT/src/RTthread.h"
55 /* The alpha does not have a divide instruction */
56 /* Division is emulated in software */
57 int divide(int a,int b)
58 {
59   return (a/b);
60 }
61
62 int DYNINSTloadLibrary(char *libname)
63 {
64   void *res;
65   char *err_str;
66   gLoadLibraryErrorString[0]='\0';
67   gBRKptr = sbrk(0);
68   
69   if (NULL == (res = dlopen(libname, RTLD_NOW | RTLD_GLOBAL))) {
70     // An error has occurred
71     perror( "DYNINSTloadLibrary -- dlopen" );
72     
73     if (NULL != (err_str = dlerror()))
74       strncpy(gLoadLibraryErrorString, err_str, ERROR_STRING_LENGTH);
75     else 
76       sprintf(gLoadLibraryErrorString,"unknown error with dlopen");
77     
78     //fprintf(stderr, "%s[%d]: %s\n",__FILE__,__LINE__,gLoadLibraryErrorString);
79     return 0;  
80   } else
81     return 1;
82 }
83
84 void DYNINSTos_init(int calledByFork, int calledByAttach)
85 {
86 }
87
88 int tc_lock_lock(tc_lock_t *tc)
89 {
90
91  asm (
92          "  ldq         $3, 16($15)  # R3 <- mut\n"
93
94          "  1:                       # Loop 1: try to get and store lock\n"
95          "  ldl_l       $4, 0($3)    # R4 <- mut->lock, (locked operation)\n"
96          "  blbs        $4, 2f       # if lock bit set, spin in loop 2\n"
97          "  bne         $4, 1b       # R4 != 0, someone else has lock, spin.\n"
98          "  addl        $4, 1, $4    # R4 == 0, add 1 ( 1 = mutex locked)\n"
99          "  stl_c       $4, 0($3)    # R4 -> mut->lock\n"
100          "  beq         $4, 2f       # if R4 == 0, store failed, lock contention, spin\n"
101          "                           # in Loop2 until lock is released\n"
102          "  br          3f           # have lock, jump to end. \n"
103
104          "  2:                       # Loop 2: spin until lock bit unset\n"
105          "  ldl         $4, 0($3)    # R4 <- mut->lock\n"
106          "  blbs        $4, 2b       # if lock bit set, spin in loop 2\n"
107          "  br          1b           # if lock bit unset, start over in Loop\n"
108
109          "  3:          mb           # memory barrier, and we're done\n"
110      );
111
112  return 0;
113
114 }
115
116 void DYNINST_initialize_index_list()
117 {
118 }
119
120 int dyn_pid_self()
121 {
122   return getpid();
123 }
124
125
126
127
128
129
130