WebSVN – HelenOS – Diff – /branches/dynload/uspace/lib/rtld/arch/ia32/src/bootstrap.c


/*
 * Copyright (c) 2008 Jiri Svoboda
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */
 
/** @addtogroup rtld rtld
 * @brief
 * @{
 */
/**
 * @file
 */
 
#include <elf_dyn.h>
#include <rtld.h>
#include <pcb.h>
 
void __main(void);
void __io_init(void);
void __exit(void);
 
static void kputint(unsigned i)
{
    unsigned dummy;
    asm volatile (
        "movl $30, %%eax;"
        "int $0x30"
        : "=d" (dummy) /* output - %edx clobbered */
        : "d" (i) /* input */
        : "%eax","%ecx" /* all scratch registers clobbered */
    ); 
}
 
void __bootstrap(void)
{
    unsigned bias;
    unsigned *got;
    elf_dyn_t *dynamic;
    void *dptr;
    unsigned dval;
    int i;
 
    size_t rel_entries;
    size_t r_offset;
    elf_word r_info;
    unsigned rel_type;
    elf_word sym_idx;
    uintptr_t sym_addr;
   
    elf_symbol_t *sym_table;
    elf_rel_t *rel_table;
    elf_rel_t *jmp_rel_table;
    size_t jmp_rel_entries;
    pcb_t *pcb;
   
    pcb = __pcb_get();
 
    /* The program loader (iloader) kindly provided us with these */
    dynamic = pcb->rtld_dynamic;
    bias = pcb->rtld_bias;
/*
asm volatile (
    // Calculate the bias into %0
    // Generates "fake" R_386_RELATIVE run-time relocation
"   call .L0;"
".L0:   pop %0;"
"   subl $.L0, %0;"
 
    // Calculate run-time address of _DYNAMIC into %1
    // Generates "fake" R_386_RELATIVE run-time relocation
"   movl $_DYNAMIC, %1;"    // Again, at link time 0-based VMA gets in
"   addl %0, %1;"       // Add bias to compute run-time address
 
: "=r" (bias), "=r" (dynamic)
);
*/
    kputint(bias);
    kputint((unsigned)dynamic);
 
    /* parse DYNAMIC */
    got = 0;
    sym_table = 0;
    rel_table = 0;
    rel_entries = 0;
    jmp_rel_table = 0;
    jmp_rel_entries = 0;
 
    i = 0;
    while (dynamic[i].d_tag != 0) {
        dptr = (void *)(dynamic[i].d_un.d_val + bias);
        dval = dynamic[i].d_un.d_val;
 
        switch (dynamic[i].d_tag) {
        case DT_PLTRELSZ: jmp_rel_entries = dval/8; break;
        case DT_JMPREL: jmp_rel_table = dptr; break;
        case DT_PLTGOT:
            /* GOT address */
            got = dptr; break;
        case DT_SYMTAB: sym_table = dptr; break;
        case DT_REL: rel_table = dptr; break;
        case DT_RELSZ: rel_entries = dval / 8; break;
        default: break;
        }
 
        ++i;
    }
   
    kputint(1);
    kputint((unsigned)sym_table);
    kputint((unsigned)rel_table);
    kputint((unsigned)rel_entries);
 
    /* Now relocate all our dynsyms */
    kputint(-1);
   
    for (i=0; i<rel_entries; i++) {
        kputint(i);
        r_offset = rel_table[i].r_offset;
        r_info = rel_table[i].r_info;
 
        rel_type = ELF32_R_TYPE(r_info);
 
        kputint(rel_type);
        kputint(r_offset);
 
        switch (rel_type) {
        case R_386_GLOB_DAT:
        case R_386_JUMP_SLOT:
            kputint(16);
            sym_idx = ELF32_R_SYM(r_info);
 
            sym_addr = sym_table[sym_idx].st_value + bias;
            kputint(sym_idx);
            kputint(sym_addr);
 
            *(unsigned *)(r_offset+bias) = sym_addr;
            break;
 
        case R_386_32:
            kputint(16);
            sym_idx = ELF32_R_SYM(r_info);
 
            sym_addr = sym_table[sym_idx].st_value + bias;
            kputint(sym_idx);
            kputint(sym_addr);
 
            *(unsigned *)(r_offset+bias) += sym_addr;
            break;
           
        case R_386_RELATIVE:
            kputint(16);
            *(unsigned *)(r_offset+bias) += bias;
            break;
        }
    }
 
    kputint(-1);
   
    for (i=0; i<jmp_rel_entries; i++) {
        kputint(i);
        r_offset = jmp_rel_table[i].r_offset;
        r_info = jmp_rel_table[i].r_info;
 
        rel_type = ELF32_R_TYPE(r_info);
 
        kputint(rel_type);
        kputint(r_offset);
 
        switch (rel_type) {
        case R_386_GLOB_DAT:
        case R_386_JUMP_SLOT:
            kputint(16);
            sym_idx = ELF32_R_SYM(r_info);
 
            sym_addr = sym_table[sym_idx].st_value + bias;
            kputint(sym_idx);
            kputint(sym_addr);
 
            *(unsigned *)(r_offset+bias) = sym_addr;
            break;
 
        case R_386_32:
            kputint(16);
            sym_idx = ELF32_R_SYM(r_info);
 
            sym_addr = sym_table[sym_idx].st_value + bias;
            kputint(sym_idx);
            kputint(sym_addr);
 
            *(unsigned *)(r_offset+bias) += sym_addr;
            break;
           
        case R_386_RELATIVE:
            kputint(16);
            *(unsigned *)(r_offset+bias) += bias;
            break;
        }
    }
 
    kputint(-1);
 
    /* This will come in handy */
    runtime_env.rtld_dynamic = dynamic;
    runtime_env.rtld.bias = bias;
   
    /* Init libc and run rtld main */
    __main();
 
    kputint(33);
    __io_init();
    kputint(34);
    _rtld_main();
    kputint(35);
    __exit();
 
    kputint(36);
 
    asm (
        "movl $250, %%eax;"
        "int $0x30"
        : /* output */
        : /* input */
        : "%eax","%ecx","%edx" /* all scratch registers clobbered */
    );
}
 
/** @}
 */
 

Rev 2989	Rev 2990
1	/*	1	/*
2	* Copyright (c) 2008 Jiri Svoboda	2	* Copyright (c) 2008 Jiri Svoboda
3	* All rights reserved.	3	* All rights reserved.
4	*	4	*
5	* Redistribution and use in source and binary forms, with or without	5	* Redistribution and use in source and binary forms, with or without
6	* modification, are permitted provided that the following conditions	6	* modification, are permitted provided that the following conditions
7	* are met:	7	* are met:
8	*	8	*
9	* - Redistributions of source code must retain the above copyright	9	* - Redistributions of source code must retain the above copyright
10	* notice, this list of conditions and the following disclaimer.	10	* notice, this list of conditions and the following disclaimer.
11	* - Redistributions in binary form must reproduce the above copyright	11	* - Redistributions in binary form must reproduce the above copyright
12	* notice, this list of conditions and the following disclaimer in the	12	* notice, this list of conditions and the following disclaimer in the
13	* documentation and/or other materials provided with the distribution.	13	* documentation and/or other materials provided with the distribution.
14	* - The name of the author may not be used to endorse or promote products	14	* - The name of the author may not be used to endorse or promote products
15	* derived from this software without specific prior written permission.	15	* derived from this software without specific prior written permission.
16	*	16	*
17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.	19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,	20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT	21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,	22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY	23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF	25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27	*/	27	*/
28		28
29	/** @addtogroup rtld rtld	29	/** @addtogroup rtld rtld
30	* @brief	30	* @brief
31	* @{	31	* @{
32	*/	32	*/
33	/**	33	/**
34	* @file	34	* @file
35	*/	35	*/
36		36
37	#include <elf_dyn.h>	37	#include <elf_dyn.h>
38	#include <rtld.h>	38	#include <rtld.h>
39	#include <pcb.h>	39	#include <pcb.h>
40		40
41	void __main(void);	41	void __main(void);
42	void __io_init(void);	42	void __io_init(void);
43	void __exit(void);	43	void __exit(void);
44		44
45	static void kputint(unsigned i)	45	static void kputint(unsigned i)
46	{	46	{
47	unsigned dummy;	47	unsigned dummy;
48	asm volatile (	48	asm volatile (
49	"movl $30, %%eax;"	49	"movl $30, %%eax;"
50	"int $0x30"	50	"int $0x30"
51	: "=d" (dummy) /* output - %edx clobbered */	51	: "=d" (dummy) /* output - %edx clobbered */
52	: "d" (i) /* input */	52	: "d" (i) /* input */
53	: "%eax","%ecx" /* all scratch registers clobbered */	53	: "%eax","%ecx" /* all scratch registers clobbered */
54	);	54	);
55	}	55	}
56		56
57	void __bootstrap(void)	57	void __bootstrap(void)
58	{	58	{
59	unsigned bias;	59	unsigned bias;
60	unsigned *got;	60	unsigned *got;
61	elf_dyn_t *dynamic;	61	elf_dyn_t *dynamic;
62	void *dptr;	62	void *dptr;
63	unsigned dval;	63	unsigned dval;
64	int i;	64	int i;
65		65
66	size_t rel_entries;	66	size_t rel_entries;
67	size_t r_offset;	67	size_t r_offset;
68	elf_word r_info;	68	elf_word r_info;
69	unsigned rel_type;	69	unsigned rel_type;
70	elf_word sym_idx;	70	elf_word sym_idx;
71	uintptr_t sym_addr;	71	uintptr_t sym_addr;
72		72
73	elf_symbol_t *sym_table;	73	elf_symbol_t *sym_table;
74	elf_rel_t *rel_table;	74	elf_rel_t *rel_table;
75	elf_rel_t *jmp_rel_table;	75	elf_rel_t *jmp_rel_table;
76	size_t jmp_rel_entries;	76	size_t jmp_rel_entries;
77	pcb_t *pcb;	77	pcb_t *pcb;
78		78
79	pcb = (pcb_t *)PCB_ADDRESS;	79	pcb = __pcb_get();
80		80
81	/* The program loader (iloader) kindly provided us with these */	81	/* The program loader (iloader) kindly provided us with these */
82	dynamic = pcb->rtld_dynamic;	82	dynamic = pcb->rtld_dynamic;
83	bias = pcb->rtld_bias;	83	bias = pcb->rtld_bias;
84	/*	84	/*
85	asm volatile (	85	asm volatile (
86	// Calculate the bias into %0	86	// Calculate the bias into %0
87	// Generates "fake" R_386_RELATIVE run-time relocation	87	// Generates "fake" R_386_RELATIVE run-time relocation
88	" call .L0;"	88	" call .L0;"
89	".L0: pop %0;"	89	".L0: pop %0;"
90	" subl $.L0, %0;"	90	" subl $.L0, %0;"
91		91
92	// Calculate run-time address of _DYNAMIC into %1	92	// Calculate run-time address of _DYNAMIC into %1
93	// Generates "fake" R_386_RELATIVE run-time relocation	93	// Generates "fake" R_386_RELATIVE run-time relocation
94	" movl $_DYNAMIC, %1;" // Again, at link time 0-based VMA gets in	94	" movl $_DYNAMIC, %1;" // Again, at link time 0-based VMA gets in
95	" addl %0, %1;" // Add bias to compute run-time address	95	" addl %0, %1;" // Add bias to compute run-time address
96		96
97	: "=r" (bias), "=r" (dynamic)	97	: "=r" (bias), "=r" (dynamic)
98	);	98	);
99	*/	99	*/
100	kputint(bias);	100	kputint(bias);
101	kputint((unsigned)dynamic);	101	kputint((unsigned)dynamic);
102		102
103	/* parse DYNAMIC */	103	/* parse DYNAMIC */
104	got = 0;	104	got = 0;
105	sym_table = 0;	105	sym_table = 0;
106	rel_table = 0;	106	rel_table = 0;
107	rel_entries = 0;	107	rel_entries = 0;
108	jmp_rel_table = 0;	108	jmp_rel_table = 0;
109	jmp_rel_entries = 0;	109	jmp_rel_entries = 0;
110		110
111	i = 0;	111	i = 0;
112	while (dynamic[i].d_tag != 0) {	112	while (dynamic[i].d_tag != 0) {
113	dptr = (void *)(dynamic[i].d_un.d_val + bias);	113	dptr = (void *)(dynamic[i].d_un.d_val + bias);
114	dval = dynamic[i].d_un.d_val;	114	dval = dynamic[i].d_un.d_val;
115		115
116	switch (dynamic[i].d_tag) {	116	switch (dynamic[i].d_tag) {
117	case DT_PLTRELSZ: jmp_rel_entries = dval/8; break;	117	case DT_PLTRELSZ: jmp_rel_entries = dval/8; break;
118	case DT_JMPREL: jmp_rel_table = dptr; break;	118	case DT_JMPREL: jmp_rel_table = dptr; break;
119	case DT_PLTGOT:	119	case DT_PLTGOT:
120	/* GOT address */	120	/* GOT address */
121	got = dptr; break;	121	got = dptr; break;
122	case DT_SYMTAB: sym_table = dptr; break;	122	case DT_SYMTAB: sym_table = dptr; break;
123	case DT_REL: rel_table = dptr; break;	123	case DT_REL: rel_table = dptr; break;
124	case DT_RELSZ: rel_entries = dval / 8; break;	124	case DT_RELSZ: rel_entries = dval / 8; break;
125	default: break;	125	default: break;
126	}	126	}
127		127
128	++i;	128	++i;
129	}	129	}
130		130
131	kputint(1);	131	kputint(1);
132	kputint((unsigned)sym_table);	132	kputint((unsigned)sym_table);
133	kputint((unsigned)rel_table);	133	kputint((unsigned)rel_table);
134	kputint((unsigned)rel_entries);	134	kputint((unsigned)rel_entries);
135		135
136	/* Now relocate all our dynsyms */	136	/* Now relocate all our dynsyms */
137	kputint(-1);	137	kputint(-1);
138		138
139	for (i=0; i<rel_entries; i++) {	139	for (i=0; i<rel_entries; i++) {
140	kputint(i);	140	kputint(i);
141	r_offset = rel_table[i].r_offset;	141	r_offset = rel_table[i].r_offset;
142	r_info = rel_table[i].r_info;	142	r_info = rel_table[i].r_info;
143		143
144	rel_type = ELF32_R_TYPE(r_info);	144	rel_type = ELF32_R_TYPE(r_info);
145		145
146	kputint(rel_type);	146	kputint(rel_type);
147	kputint(r_offset);	147	kputint(r_offset);
148		148
149	switch (rel_type) {	149	switch (rel_type) {
150	case R_386_GLOB_DAT:	150	case R_386_GLOB_DAT:
151	case R_386_JUMP_SLOT:	151	case R_386_JUMP_SLOT:
152	kputint(16);	152	kputint(16);
153	sym_idx = ELF32_R_SYM(r_info);	153	sym_idx = ELF32_R_SYM(r_info);
154		154
155	sym_addr = sym_table[sym_idx].st_value + bias;	155	sym_addr = sym_table[sym_idx].st_value + bias;
156	kputint(sym_idx);	156	kputint(sym_idx);
157	kputint(sym_addr);	157	kputint(sym_addr);
158		158
159	(unsigned )(r_offset+bias) = sym_addr;	159	(unsigned )(r_offset+bias) = sym_addr;
160	break;	160	break;
161		161
162	case R_386_32:	162	case R_386_32:
163	kputint(16);	163	kputint(16);
164	sym_idx = ELF32_R_SYM(r_info);	164	sym_idx = ELF32_R_SYM(r_info);
165		165
166	sym_addr = sym_table[sym_idx].st_value + bias;	166	sym_addr = sym_table[sym_idx].st_value + bias;
167	kputint(sym_idx);	167	kputint(sym_idx);
168	kputint(sym_addr);	168	kputint(sym_addr);
169		169
170	(unsigned )(r_offset+bias) += sym_addr;	170	(unsigned )(r_offset+bias) += sym_addr;
171	break;	171	break;
172		172
173	case R_386_RELATIVE:	173	case R_386_RELATIVE:
174	kputint(16);	174	kputint(16);
175	(unsigned )(r_offset+bias) += bias;	175	(unsigned )(r_offset+bias) += bias;
176	break;	176	break;
177	}	177	}
178	}	178	}
179		179
180	kputint(-1);	180	kputint(-1);
181		181
182	for (i=0; i<jmp_rel_entries; i++) {	182	for (i=0; i<jmp_rel_entries; i++) {
183	kputint(i);	183	kputint(i);
184	r_offset = jmp_rel_table[i].r_offset;	184	r_offset = jmp_rel_table[i].r_offset;
185	r_info = jmp_rel_table[i].r_info;	185	r_info = jmp_rel_table[i].r_info;
186		186
187	rel_type = ELF32_R_TYPE(r_info);	187	rel_type = ELF32_R_TYPE(r_info);
188		188
189	kputint(rel_type);	189	kputint(rel_type);
190	kputint(r_offset);	190	kputint(r_offset);
191		191
192	switch (rel_type) {	192	switch (rel_type) {
193	case R_386_GLOB_DAT:	193	case R_386_GLOB_DAT:
194	case R_386_JUMP_SLOT:	194	case R_386_JUMP_SLOT:
195	kputint(16);	195	kputint(16);
196	sym_idx = ELF32_R_SYM(r_info);	196	sym_idx = ELF32_R_SYM(r_info);
197		197
198	sym_addr = sym_table[sym_idx].st_value + bias;	198	sym_addr = sym_table[sym_idx].st_value + bias;
199	kputint(sym_idx);	199	kputint(sym_idx);
200	kputint(sym_addr);	200	kputint(sym_addr);
201		201
202	(unsigned )(r_offset+bias) = sym_addr;	202	(unsigned )(r_offset+bias) = sym_addr;
203	break;	203	break;
204		204
205	case R_386_32:	205	case R_386_32:
206	kputint(16);	206	kputint(16);
207	sym_idx = ELF32_R_SYM(r_info);	207	sym_idx = ELF32_R_SYM(r_info);
208		208
209	sym_addr = sym_table[sym_idx].st_value + bias;	209	sym_addr = sym_table[sym_idx].st_value + bias;
210	kputint(sym_idx);	210	kputint(sym_idx);
211	kputint(sym_addr);	211	kputint(sym_addr);
212		212
213	(unsigned )(r_offset+bias) += sym_addr;	213	(unsigned )(r_offset+bias) += sym_addr;
214	break;	214	break;
215		215
216	case R_386_RELATIVE:	216	case R_386_RELATIVE:
217	kputint(16);	217	kputint(16);
218	(unsigned )(r_offset+bias) += bias;	218	(unsigned )(r_offset+bias) += bias;
219	break;	219	break;
220	}	220	}
221	}	221	}
222		222
223	kputint(-1);	223	kputint(-1);
224		224
225	/* This will come in handy */	225	/* This will come in handy */
226	runtime_env.rtld_dynamic = dynamic;	226	runtime_env.rtld_dynamic = dynamic;
227	runtime_env.rtld.bias = bias;	227	runtime_env.rtld.bias = bias;
228		228
229	/* Init libc and run rtld main */	229	/* Init libc and run rtld main */
230	__main();	230	__main();
231		231
232	kputint(33);	232	kputint(33);
233	__io_init();	233	__io_init();
234	kputint(34);	234	kputint(34);
235	_rtld_main();	235	_rtld_main();
236	kputint(35);	236	kputint(35);
237	__exit();	237	__exit();
238		238
239	kputint(36);	239	kputint(36);
240		240
241	asm (	241	asm (
242	"movl $250, %%eax;"	242	"movl $250, %%eax;"
243	"int $0x30"	243	"int $0x30"
244	: /* output */	244	: /* output */
245	: /* input */	245	: /* input */
246	: "%eax","%ecx","%edx" /* all scratch registers clobbered */	246	: "%eax","%ecx","%edx" /* all scratch registers clobbered */
247	);	247	);
248	}	248	}
249		249
250	/** @}	250	/** @}
251	*/	251	*/
252		252

Subversion Repositories HelenOS

(root)/branches/dynload/uspace/lib/rtld/arch/ia32/src/bootstrap.c @ 3448 – Rev 2989 → 2990