Redid static ctor/dtor handling to be compatible with init_array/fini_array as well...
[dyninst.git] / dyninstAPI_RT / src / RTstatic_ctors_dtors-x86.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 #if defined(DYNINST_RT_STATIC_LIB)
32 void *DYNINSTirel_start;
33 void *DYNINSTirel_end;
34
35 extern void (*DYNINSTctors_begin)(void);
36 extern void (*DYNINSTdtors_begin)(void);
37 extern void (*DYNINSTctors_end)(void);
38 extern void (*DYNINSTdtors_end)(void);
39
40 extern void DYNINSTBaseInit();
41
42 typedef struct {
43   long *offset;
44   long info;
45   long (*ptr)(void);
46 } rela_t;
47
48 typedef struct {
49   long *offset;
50   long info;
51 } rel_t;
52
53 /*
54  * When rewritting a static binary, .ctors and .dtors sections of
55  * instrumentation code needs to be combined with the existing .ctors
56  * and .dtors sections of the static binary.
57  *
58  * The following functions process the .ctors and .dtors sections
59  * that have been rewritten. The rewriter will relocate the 
60  * address of DYNINSTctors_addr and DYNINSTdtors_addr to point to
61  * new .ctors and .dtors sections.
62  */
63
64 void DYNINSTglobal_ctors_handler() {
65     void (**ctor)(void) = &DYNINSTctors_begin;
66
67     while( ctor != ( &DYNINSTctors_end )) {
68         if(*ctor && (*ctor != -1)) (*ctor)();
69         ctor++;
70     }
71
72     // This ensures that instrumentation cannot execute until all global
73     // constructors have run
74     DYNINSTBaseInit();
75 }
76
77 void DYNINSTglobal_dtors_handler() {
78     void (**dtor)(void) = &DYNINSTdtors_begin;
79
80     // Destructors are called in the forward order that they are listed
81     while( dtor != (&DYNINSTdtors_end )) {
82         if(*dtor && (*dtor != -1)) (*dtor)();
83         dtor++;
84     }
85 }
86
87 void DYNINSTglobal_irel_handler() {
88   if (sizeof(long) == 8) {
89     rela_t *rel = 0;
90     for (rel = (rela_t *)(&DYNINSTirel_start); rel != (rela_t *)(&DYNINSTirel_end); ++rel) {
91       long result = 0;
92       if (rel->info != 0x25) continue;
93       result = (rel->ptr());
94       *(rel->offset) = result;
95     }
96   }
97   else {
98     rel_t *rel = 0;
99     for (rel = (rel_t *)(&DYNINSTirel_start); rel != (rel_t *)(&DYNINSTirel_end); ++rel) {
100       long (*ptr)(void) = 0;
101       long result = 0;
102       if (rel->info != 0x2a) continue;
103       ptr = *(rel->offset);
104       result = ptr();
105       *(rel->offset) = result;
106     }
107   }
108 }
109
110 #endif