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 <loader/pcb.h>
#include <elf_dyn.h>
#include <rtld.h>
 
 
void __main(pcb_t *pcb);
//void __io_init(void);
void __exit(void);
 
static void kputint(unsigned i)
{
    unsigned dummy;
    asm volatile (
        "movl $32, %%eax;"
        "int $0x30"
        : "=d" (dummy) /* output - %edx clobbered */
        : "d" (i) /* input */
        : "%eax","%ecx" /* all scratch registers clobbered */
    );
}
 
void __bootstrap(pcb_t *pcb)
{
    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;
 
 
 
 
    /* The program loader 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(pcb);
    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);
    kputint(0x42);
 
    /* This will come in handy */
    __pcb = pcb;
    runtime_env.rtld_dynamic = dynamic;
    runtime_env.rtld.bias = bias;
 
    kputint(0x43);
   
    /* Init libc and run rtld main */
    __main(pcb);
 
    kputint(0x44);
 
//  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 3004	Rev 3400
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 <loader/pcb.h>
37	#include <elf_dyn.h>	38	#include <elf_dyn.h>
38	#include <rtld.h>	39	#include <rtld.h>
39	#include <pcb.h>	-
40		40
41	void __main(void);	41	void __main(pcb_t *pcb);
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 $31, %%eax;"	49	"movl $32, %%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(pcb_t *pcb)
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;	-
78		77
79	pcb = __pcb_get();	-
80		-
81	/* The program loader (iloader) kindly provided us with these */	78	/* The program loader kindly provided us with these */
82	dynamic = pcb->rtld_dynamic;	79	dynamic = pcb->rtld_dynamic;
83	bias = pcb->rtld_bias;	80	bias = pcb->rtld_bias;
84	/*	81	/*
85	asm volatile (	82	asm volatile (
86	// Calculate the bias into %0	83	// Calculate the bias into %0
87	// Generates "fake" R_386_RELATIVE run-time relocation	84	// Generates "fake" R_386_RELATIVE run-time relocation
88	" call .L0;"	85	" call .L0;"
89	".L0: pop %0;"	86	".L0: pop %0;"
90	" subl $.L0, %0;"	87	" subl $.L0, %0;"
91		88
92	// Calculate run-time address of _DYNAMIC into %1	89	// Calculate run-time address of _DYNAMIC into %1
93	// Generates "fake" R_386_RELATIVE run-time relocation	90	// Generates "fake" R_386_RELATIVE run-time relocation
94	" movl $_DYNAMIC, %1;" // Again, at link time 0-based VMA gets in	91	" movl $_DYNAMIC, %1;" // Again, at link time 0-based VMA gets in
95	" addl %0, %1;" // Add bias to compute run-time address	92	" addl %0, %1;" // Add bias to compute run-time address
96		93
97	: "=r" (bias), "=r" (dynamic)	94	: "=r" (bias), "=r" (dynamic)
98	);	95	);
99	*/	96	*/
-		97	kputint(pcb);
100	kputint(bias);	98	kputint(bias);
101	kputint((unsigned)dynamic);	99	kputint((unsigned)dynamic);
102		100
103	/* parse DYNAMIC */	101	/* parse DYNAMIC */
104	got = 0;	102	got = 0;
105	sym_table = 0;	103	sym_table = 0;
106	rel_table = 0;	104	rel_table = 0;
107	rel_entries = 0;	105	rel_entries = 0;
108	jmp_rel_table = 0;	106	jmp_rel_table = 0;
109	jmp_rel_entries = 0;	107	jmp_rel_entries = 0;
110		108
111	i = 0;	109	i = 0;
112	while (dynamic[i].d_tag != 0) {	110	while (dynamic[i].d_tag != 0) {
113	dptr = (void *)(dynamic[i].d_un.d_val + bias);	111	dptr = (void *)(dynamic[i].d_un.d_val + bias);
114	dval = dynamic[i].d_un.d_val;	112	dval = dynamic[i].d_un.d_val;
115		113
116	switch (dynamic[i].d_tag) {	114	switch (dynamic[i].d_tag) {
117	case DT_PLTRELSZ: jmp_rel_entries = dval/8; break;	115	case DT_PLTRELSZ: jmp_rel_entries = dval/8; break;
118	case DT_JMPREL: jmp_rel_table = dptr; break;	116	case DT_JMPREL: jmp_rel_table = dptr; break;
119	case DT_PLTGOT:	117	case DT_PLTGOT:
120	/* GOT address */	118	/* GOT address */
121	got = dptr; break;	119	got = dptr; break;
122	case DT_SYMTAB: sym_table = dptr; break;	120	case DT_SYMTAB: sym_table = dptr; break;
123	case DT_REL: rel_table = dptr; break;	121	case DT_REL: rel_table = dptr; break;
124	case DT_RELSZ: rel_entries = dval / 8; break;	122	case DT_RELSZ: rel_entries = dval / 8; break;
125	default: break;	123	default: break;
126	}	124	}
127		125
128	++i;	126	++i;
129	}	127	}
130		128
131	kputint(1);	129	// kputint(1);
132	kputint((unsigned)sym_table);	130	// kputint((unsigned)sym_table);
133	kputint((unsigned)rel_table);	131	// kputint((unsigned)rel_table);
134	kputint((unsigned)rel_entries);	132	// kputint((unsigned)rel_entries);
135		133
136	/* Now relocate all our dynsyms */	134	/* Now relocate all our dynsyms */
137	kputint(-1);	135	// kputint(-1);
138		136
139	for (i=0; i<rel_entries; i++) {	137	for (i=0; i<rel_entries; i++) {
140	kputint(i);	138	kputint(i);
141	r_offset = rel_table[i].r_offset;	139	r_offset = rel_table[i].r_offset;
142	r_info = rel_table[i].r_info;	140	r_info = rel_table[i].r_info;
143		141
144	rel_type = ELF32_R_TYPE(r_info);	142	rel_type = ELF32_R_TYPE(r_info);
145		143
146	kputint(rel_type);	144	kputint(rel_type);
147	kputint(r_offset);	145	kputint(r_offset);
148		146
149	switch (rel_type) {	147	switch (rel_type) {
150	case R_386_GLOB_DAT:	148	case R_386_GLOB_DAT:
151	case R_386_JUMP_SLOT:	149	case R_386_JUMP_SLOT:
152	kputint(16);	150	kputint(16);
153	sym_idx = ELF32_R_SYM(r_info);	151	sym_idx = ELF32_R_SYM(r_info);
154		152
155	sym_addr = sym_table[sym_idx].st_value + bias;	153	sym_addr = sym_table[sym_idx].st_value + bias;
156	kputint(sym_idx);	154	kputint(sym_idx);
157	kputint(sym_addr);	155	kputint(sym_addr);
158		156
159	(unsigned )(r_offset+bias) = sym_addr;	157	(unsigned )(r_offset+bias) = sym_addr;
160	break;	158	break;
161		159
162	case R_386_32:	160	case R_386_32:
163	kputint(16);	161	kputint(16);
164	sym_idx = ELF32_R_SYM(r_info);	162	sym_idx = ELF32_R_SYM(r_info);
165		163
166	sym_addr = sym_table[sym_idx].st_value + bias;	164	sym_addr = sym_table[sym_idx].st_value + bias;
167	kputint(sym_idx);	165	kputint(sym_idx);
168	kputint(sym_addr);	166	kputint(sym_addr);
169		167
170	(unsigned )(r_offset+bias) += sym_addr;	168	(unsigned )(r_offset+bias) += sym_addr;
171	break;	169	break;
172		170
173	case R_386_RELATIVE:	171	case R_386_RELATIVE:
174	kputint(16);	172	kputint(16);
175	(unsigned )(r_offset+bias) += bias;	173	(unsigned )(r_offset+bias) += bias;
176	break;	174	break;
177	}	175	}
178	}	176	}
179		177
180	kputint(-1);	178	kputint(-1);
181		179
182	for (i=0; i<jmp_rel_entries; i++) {	180	for (i=0; i<jmp_rel_entries; i++) {
183	kputint(i);	181	kputint(i);
184	r_offset = jmp_rel_table[i].r_offset;	182	r_offset = jmp_rel_table[i].r_offset;
185	r_info = jmp_rel_table[i].r_info;	183	r_info = jmp_rel_table[i].r_info;
186		184
187	rel_type = ELF32_R_TYPE(r_info);	185	rel_type = ELF32_R_TYPE(r_info);
188		186
189	kputint(rel_type);	187	kputint(rel_type);
190	kputint(r_offset);	188	kputint(r_offset);
191		189
192	switch (rel_type) {	190	switch (rel_type) {
193	case R_386_GLOB_DAT:	191	case R_386_GLOB_DAT:
194	case R_386_JUMP_SLOT:	192	case R_386_JUMP_SLOT:
195	kputint(16);	193	kputint(16);
196	sym_idx = ELF32_R_SYM(r_info);	194	sym_idx = ELF32_R_SYM(r_info);
197		195
198	sym_addr = sym_table[sym_idx].st_value + bias;	196	sym_addr = sym_table[sym_idx].st_value + bias;
199	kputint(sym_idx);	197	kputint(sym_idx);
200	kputint(sym_addr);	198	kputint(sym_addr);
201		199
202	(unsigned )(r_offset+bias) = sym_addr;	200	(unsigned )(r_offset+bias) = sym_addr;
203	break;	201	break;
204		202
205	case R_386_32:	203	case R_386_32:
206	kputint(16);	204	kputint(16);
207	sym_idx = ELF32_R_SYM(r_info);	205	sym_idx = ELF32_R_SYM(r_info);
208		206
209	sym_addr = sym_table[sym_idx].st_value + bias;	207	sym_addr = sym_table[sym_idx].st_value + bias;
210	kputint(sym_idx);	208	kputint(sym_idx);
211	kputint(sym_addr);	209	kputint(sym_addr);
212		210
213	(unsigned )(r_offset+bias) += sym_addr;	211	(unsigned )(r_offset+bias) += sym_addr;
214	break;	212	break;
215		213
216	case R_386_RELATIVE:	214	case R_386_RELATIVE:
217	kputint(16);	215	kputint(16);
218	(unsigned )(r_offset+bias) += bias;	216	(unsigned )(r_offset+bias) += bias;
219	break;	217	break;
220	}	218	}
221	}	219	}
222		220
223	kputint(-1);	221	kputint(-1);
-		222	kputint(0x42);
224		223
225	/* This will come in handy */	224	/* This will come in handy */
-		225	__pcb = pcb;
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	kputint(0x43);
-		230
229	/* Init libc and run rtld main */	231	/* Init libc and run rtld main */
230	__main();	232	__main(pcb);
-		233
-		234	kputint(0x44);
231		235
232	kputint(33);	236	// kputint(33);
233	__io_init();	237	// __io_init();
234	kputint(34);	238	kputint(34);
235	_rtld_main();	239	_rtld_main();
236	kputint(35);	240	kputint(35);
237	__exit();	241	__exit();
238		242
239	kputint(36);	243	kputint(36);
240		244
241	asm (	245	asm (
242	"movl $250, %%eax;"	246	"movl $250, %%eax;"
243	"int $0x30"	247	"int $0x30"
244	: /* output */	248	: /* output */
245	: /* input */	249	: /* input */
246	: "%eax","%ecx","%edx" /* all scratch registers clobbered */	250	: "%eax","%ecx","%edx" /* all scratch registers clobbered */
247	);	251	);
248	}	252	}
249		253
250	/** @}	254	/** @}
251	*/	255	*/
252		256

Subversion Repositories HelenOS

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