Subversion Repositories HelenOS

Rev

Rev 2745 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2745 Rev 3007
1
/*
1
/*
2
 * Copyright (c) 2006 Sergey Bondari
2
 * Copyright (c) 2006 Sergey Bondari
3
 * Copyright (c) 2006 Jakub Jermar
3
 * Copyright (c) 2006 Jakub Jermar
4
 * All rights reserved.
4
 * All rights reserved.
5
 *
5
 *
6
 * Redistribution and use in source and binary forms, with or without
6
 * Redistribution and use in source and binary forms, with or without
7
 * modification, are permitted provided that the following conditions
7
 * modification, are permitted provided that the following conditions
8
 * are met:
8
 * are met:
9
 *
9
 *
10
 * - Redistributions of source code must retain the above copyright
10
 * - Redistributions of source code must retain the above copyright
11
 *   notice, this list of conditions and the following disclaimer.
11
 *   notice, this list of conditions and the following disclaimer.
12
 * - Redistributions in binary form must reproduce the above copyright
12
 * - Redistributions in binary form must reproduce the above copyright
13
 *   notice, this list of conditions and the following disclaimer in the
13
 *   notice, this list of conditions and the following disclaimer in the
14
 *   documentation and/or other materials provided with the distribution.
14
 *   documentation and/or other materials provided with the distribution.
15
 * - The name of the author may not be used to endorse or promote products
15
 * - The name of the author may not be used to endorse or promote products
16
 *   derived from this software without specific prior written permission.
16
 *   derived from this software without specific prior written permission.
17
 *
17
 *
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
 */
28
 */
29
 
29
 
30
/** @addtogroup generic
30
/** @addtogroup generic
31
 * @{
31
 * @{
32
 */
32
 */
33
 
33
 
34
/**
34
/**
35
 * @file
35
 * @file
36
 * @brief   Kernel ELF loader.
36
 * @brief   Kernel ELF loader.
37
 */
37
 */
38
 
38
 
39
#include <lib/elf.h>
39
#include <lib/elf.h>
40
#include <debug.h>
40
#include <debug.h>
41
#include <arch/types.h>
41
#include <arch/types.h>
42
#include <mm/as.h>
42
#include <mm/as.h>
43
#include <mm/frame.h>
43
#include <mm/frame.h>
44
#include <mm/slab.h>
44
#include <mm/slab.h>
45
#include <align.h>
45
#include <align.h>
46
#include <memstr.h>
46
#include <memstr.h>
47
#include <macros.h>
47
#include <macros.h>
48
#include <arch.h>
48
#include <arch.h>
49
 
49
 
50
static char *error_codes[] = {
50
static char *error_codes[] = {
51
    "no error",
51
    "no error",
52
    "invalid image",
52
    "invalid image",
53
    "address space error",
53
    "address space error",
54
    "incompatible image",
54
    "incompatible image",
55
    "unsupported image type",
55
    "unsupported image type",
56
    "irrecoverable error"
56
    "irrecoverable error"
57
};
57
};
58
 
58
 
59
static int segment_header(elf_segment_header_t *entry, elf_header_t *elf,
59
static int segment_header(elf_segment_header_t *entry, elf_header_t *elf,
60
    as_t *as);
60
    as_t *as);
61
static int section_header(elf_section_header_t *entry, elf_header_t *elf,
61
static int section_header(elf_section_header_t *entry, elf_header_t *elf,
62
    as_t *as);
62
    as_t *as);
63
static int load_segment(elf_segment_header_t *entry, elf_header_t *elf,
63
static int load_segment(elf_segment_header_t *entry, elf_header_t *elf,
64
    as_t *as);
64
    as_t *as);
65
 
65
 
66
/** ELF loader
66
/** ELF loader
67
 *
67
 *
68
 * @param header Pointer to ELF header in memory
68
 * @param header Pointer to ELF header in memory
69
 * @param as Created and properly mapped address space
69
 * @param as Created and properly mapped address space
70
 * @return EE_OK on success
70
 * @return EE_OK on success
71
 */
71
 */
72
unsigned int elf_load(elf_header_t *header, as_t * as)
72
unsigned int elf_load(elf_header_t *header, as_t * as)
73
{
73
{
74
    int i, rc;
74
    int i, rc;
75
 
75
 
76
    /* Identify ELF */
76
    /* Identify ELF */
77
    if (header->e_ident[EI_MAG0] != ELFMAG0 ||
77
    if (header->e_ident[EI_MAG0] != ELFMAG0 ||
78
        header->e_ident[EI_MAG1] != ELFMAG1 ||
78
        header->e_ident[EI_MAG1] != ELFMAG1 ||
79
        header->e_ident[EI_MAG2] != ELFMAG2 ||
79
        header->e_ident[EI_MAG2] != ELFMAG2 ||
80
        header->e_ident[EI_MAG3] != ELFMAG3) {
80
        header->e_ident[EI_MAG3] != ELFMAG3) {
81
        return EE_INVALID;
81
        return EE_INVALID;
82
    }
82
    }
83
   
83
   
84
    /* Identify ELF compatibility */
84
    /* Identify ELF compatibility */
85
    if (header->e_ident[EI_DATA] != ELF_DATA_ENCODING ||
85
    if (header->e_ident[EI_DATA] != ELF_DATA_ENCODING ||
86
        header->e_machine != ELF_MACHINE ||
86
        header->e_machine != ELF_MACHINE ||
87
        header->e_ident[EI_VERSION] != EV_CURRENT ||
87
        header->e_ident[EI_VERSION] != EV_CURRENT ||
88
        header->e_version != EV_CURRENT ||
88
        header->e_version != EV_CURRENT ||
89
        header->e_ident[EI_CLASS] != ELF_CLASS) {
89
        header->e_ident[EI_CLASS] != ELF_CLASS) {
90
        return EE_INCOMPATIBLE;
90
        return EE_INCOMPATIBLE;
91
    }
91
    }
92
 
92
 
93
    if (header->e_phentsize != sizeof(elf_segment_header_t))
93
    if (header->e_phentsize != sizeof(elf_segment_header_t))
94
        return EE_INCOMPATIBLE;
94
        return EE_INCOMPATIBLE;
95
 
95
 
96
    if (header->e_shentsize != sizeof(elf_section_header_t))
96
    if (header->e_shentsize != sizeof(elf_section_header_t))
97
        return EE_INCOMPATIBLE;
97
        return EE_INCOMPATIBLE;
98
 
98
 
99
    /* Check if the object type is supported. */
99
    /* Check if the object type is supported. */
100
    if (header->e_type != ET_EXEC)
100
    if (header->e_type != ET_EXEC)
101
        return EE_UNSUPPORTED;
101
        return EE_UNSUPPORTED;
102
 
102
 
-
 
103
    /* Check if the ELF image starts on a page boundary */
-
 
104
    if (ALIGN_UP((uintptr_t)header, PAGE_SIZE) != (uintptr_t)header)
-
 
105
        return EE_UNSUPPORTED;
-
 
106
 
103
    /* Walk through all segment headers and process them. */
107
    /* Walk through all segment headers and process them. */
104
    for (i = 0; i < header->e_phnum; i++) {
108
    for (i = 0; i < header->e_phnum; i++) {
105
        elf_segment_header_t *seghdr;
109
        elf_segment_header_t *seghdr;
106
 
110
 
107
        seghdr = &((elf_segment_header_t *)(((uint8_t *) header) +
111
        seghdr = &((elf_segment_header_t *)(((uint8_t *) header) +
108
            header->e_phoff))[i];
112
            header->e_phoff))[i];
109
        rc = segment_header(seghdr, header, as);
113
        rc = segment_header(seghdr, header, as);
110
        if (rc != EE_OK)
114
        if (rc != EE_OK)
111
            return rc;
115
            return rc;
112
    }
116
    }
113
 
117
 
114
    /* Inspect all section headers and proccess them. */
118
    /* Inspect all section headers and proccess them. */
115
    for (i = 0; i < header->e_shnum; i++) {
119
    for (i = 0; i < header->e_shnum; i++) {
116
        elf_section_header_t *sechdr;
120
        elf_section_header_t *sechdr;
117
 
121
 
118
        sechdr = &((elf_section_header_t *)(((uint8_t *) header) +
122
        sechdr = &((elf_section_header_t *)(((uint8_t *) header) +
119
            header->e_shoff))[i];
123
            header->e_shoff))[i];
120
        rc = section_header(sechdr, header, as);
124
        rc = section_header(sechdr, header, as);
121
        if (rc != EE_OK)
125
        if (rc != EE_OK)
122
            return rc;
126
            return rc;
123
    }
127
    }
124
 
128
 
125
    return EE_OK;
129
    return EE_OK;
126
}
130
}
127
 
131
 
128
/** Print error message according to error code.
132
/** Print error message according to error code.
129
 *
133
 *
130
 * @param rc Return code returned by elf_load().
134
 * @param rc Return code returned by elf_load().
131
 *
135
 *
132
 * @return NULL terminated description of error.
136
 * @return NULL terminated description of error.
133
 */
137
 */
134
char *elf_error(unsigned int rc)
138
char *elf_error(unsigned int rc)
135
{
139
{
136
    ASSERT(rc < sizeof(error_codes) / sizeof(char *));
140
    ASSERT(rc < sizeof(error_codes) / sizeof(char *));
137
 
141
 
138
    return error_codes[rc];
142
    return error_codes[rc];
139
}
143
}
140
 
144
 
141
/** Process segment header.
145
/** Process segment header.
142
 *
146
 *
143
 * @param entry Segment header.
147
 * @param entry Segment header.
144
 * @param elf ELF header.
148
 * @param elf ELF header.
145
 * @param as Address space into wich the ELF is being loaded.
149
 * @param as Address space into wich the ELF is being loaded.
146
 *
150
 *
147
 * @return EE_OK on success, error code otherwise.
151
 * @return EE_OK on success, error code otherwise.
148
 */
152
 */
149
static int segment_header(elf_segment_header_t *entry, elf_header_t *elf,
153
static int segment_header(elf_segment_header_t *entry, elf_header_t *elf,
150
    as_t *as)
154
    as_t *as)
151
{
155
{
152
    switch (entry->p_type) {
156
    switch (entry->p_type) {
153
    case PT_NULL:
157
    case PT_NULL:
154
    case PT_PHDR:
158
    case PT_PHDR:
155
        break;
159
        break;
156
    case PT_LOAD:
160
    case PT_LOAD:
157
        return load_segment(entry, elf, as);
161
        return load_segment(entry, elf, as);
158
        break;
162
        break;
159
    case PT_DYNAMIC:
163
    case PT_DYNAMIC:
160
    case PT_INTERP:
164
    case PT_INTERP:
161
    case PT_SHLIB:
165
    case PT_SHLIB:
162
    case PT_NOTE:
166
    case PT_NOTE:
163
    case PT_LOPROC:
167
    case PT_LOPROC:
164
    case PT_HIPROC:
168
    case PT_HIPROC:
165
    default:
169
    default:
166
        return EE_UNSUPPORTED;
170
        return EE_UNSUPPORTED;
167
        break;
171
        break;
168
    }
172
    }
169
    return EE_OK;
173
    return EE_OK;
170
}
174
}
171
 
175
 
172
/** Load segment described by program header entry.
176
/** Load segment described by program header entry.
173
 *
177
 *
174
 * @param entry Program header entry describing segment to be loaded.
178
 * @param entry Program header entry describing segment to be loaded.
175
 * @param elf ELF header.
179
 * @param elf ELF header.
176
 * @param as Address space into wich the ELF is being loaded.
180
 * @param as Address space into wich the ELF is being loaded.
177
 *
181
 *
178
 * @return EE_OK on success, error code otherwise.
182
 * @return EE_OK on success, error code otherwise.
179
 */
183
 */
180
int load_segment(elf_segment_header_t *entry, elf_header_t *elf, as_t *as)
184
int load_segment(elf_segment_header_t *entry, elf_header_t *elf, as_t *as)
181
{
185
{
182
    as_area_t *a;
186
    as_area_t *a;
183
    int flags = 0;
187
    int flags = 0;
184
    mem_backend_data_t backend_data;
188
    mem_backend_data_t backend_data;
-
 
189
    uintptr_t base;
-
 
190
    size_t mem_sz;
185
   
191
   
186
    backend_data.elf = elf;
192
    backend_data.elf = elf;
187
    backend_data.segment = entry;
193
    backend_data.segment = entry;
188
 
194
 
189
    if (entry->p_align > 1) {
195
    if (entry->p_align > 1) {
190
        if ((entry->p_offset % entry->p_align) !=
196
        if ((entry->p_offset % entry->p_align) !=
191
            (entry->p_vaddr % entry->p_align)) {
197
            (entry->p_vaddr % entry->p_align)) {
192
            return EE_INVALID;
198
            return EE_INVALID;
193
        }
199
        }
194
    }
200
    }
195
 
201
 
196
    if (entry->p_flags & PF_X)
202
    if (entry->p_flags & PF_X)
197
        flags |= AS_AREA_EXEC;
203
        flags |= AS_AREA_EXEC;
198
    if (entry->p_flags & PF_W)
204
    if (entry->p_flags & PF_W)
199
        flags |= AS_AREA_WRITE;
205
        flags |= AS_AREA_WRITE;
200
    if (entry->p_flags & PF_R)
206
    if (entry->p_flags & PF_R)
201
        flags |= AS_AREA_READ;
207
        flags |= AS_AREA_READ;
202
    flags |= AS_AREA_CACHEABLE;
208
    flags |= AS_AREA_CACHEABLE;
203
 
209
 
204
    /*
210
    /*
-
 
211
     * Align vaddr down, inserting a little "gap" at the beginning.
205
     * Check if the virtual address starts on page boundary.
212
     * Adjust area size, so that its end remains in place.
206
     */
213
     */
207
    if (ALIGN_UP(entry->p_vaddr, PAGE_SIZE) != entry->p_vaddr)
214
    base = ALIGN_DOWN(entry->p_vaddr, PAGE_SIZE);
208
        return EE_UNSUPPORTED;
215
    mem_sz = entry->p_memsz + (entry->p_vaddr - base);
209
 
216
 
210
    a = as_area_create(as, flags, entry->p_memsz, entry->p_vaddr,
217
    a = as_area_create(as, flags, mem_sz, base,
211
        AS_AREA_ATTR_NONE, &elf_backend, &backend_data);
218
        AS_AREA_ATTR_NONE, &elf_backend, &backend_data);
212
    if (!a)
219
    if (!a)
213
        return EE_MEMORY;
220
        return EE_MEMORY;
214
   
221
   
215
    /*
222
    /*
216
     * The segment will be mapped on demand by elf_page_fault().
223
     * The segment will be mapped on demand by elf_page_fault().
217
     */
224
     */
218
 
225
 
219
    return EE_OK;
226
    return EE_OK;
220
}
227
}
221
 
228
 
222
/** Process section header.
229
/** Process section header.
223
 *
230
 *
224
 * @param entry Segment header.
231
 * @param entry Segment header.
225
 * @param elf ELF header.
232
 * @param elf ELF header.
226
 * @param as Address space into wich the ELF is being loaded.
233
 * @param as Address space into wich the ELF is being loaded.
227
 *
234
 *
228
 * @return EE_OK on success, error code otherwise.
235
 * @return EE_OK on success, error code otherwise.
229
 */
236
 */
230
static int section_header(elf_section_header_t *entry, elf_header_t *elf,
237
static int section_header(elf_section_header_t *entry, elf_header_t *elf,
231
    as_t *as)
238
    as_t *as)
232
{
239
{
233
    switch (entry->sh_type) {
240
    switch (entry->sh_type) {
234
    case SHT_PROGBITS:
241
    case SHT_PROGBITS:
235
        if (entry->sh_flags & SHF_TLS) {
242
        if (entry->sh_flags & SHF_TLS) {
236
            /* .tdata */
243
            /* .tdata */
237
        }
244
        }
238
        break;
245
        break;
239
    case SHT_NOBITS:
246
    case SHT_NOBITS:
240
        if (entry->sh_flags & SHF_TLS) {
247
        if (entry->sh_flags & SHF_TLS) {
241
            /* .tbss */
248
            /* .tbss */
242
        }
249
        }
243
        break;
250
        break;
244
    default:
251
    default:
245
        break;
252
        break;
246
    }
253
    }
247
   
254
   
248
    return EE_OK;
255
    return EE_OK;
249
}
256
}
250
 
257
 
251
/** @}
258
/** @}
252
 */
259
 */
253
 
260