1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27
28 #include <sys/types.h>
29 #include <sys/inttypes.h>
30 #include <sys/systm.h>
31 #include <sys/elf.h>
32 #include <sys/elf_notes.h>
33
34 #include <util/memcpy.h>
35
36 #include "dboot_xboot.h"
37 #include "dboot_elfload.h"
38 #include "dboot_printf.h"
39
40 static caddr_t elf_file = 0;
41
42 #define PGETBYTES(offset) ((void *)(elf_file + (offset)))
43
44 static void *
45 getehdr(void)
46 {
47 uchar_t *ident;
48 void *hdr = NULL;
49
50 ident = PGETBYTES(0);
51 if (ident == NULL)
52 dboot_panic("Cannot read kernel ELF header");
53
54 if (ident[EI_MAG0] != ELFMAG0 || ident[EI_MAG1] != ELFMAG1 ||
55 ident[EI_MAG2] != ELFMAG2 || ident[EI_MAG3] != ELFMAG3)
56 dboot_panic("not an ELF file!");
57
58 if (ident[EI_CLASS] == ELFCLASS32)
59 hdr = PGETBYTES(0);
60 else if (ident[EI_CLASS] == ELFCLASS64)
61 hdr = PGETBYTES(0);
62 else
63 dboot_panic("Unknown ELF class");
64
65 return (hdr);
66 }
67
68
69 /*
70 * parse the elf file for program information
71 */
72 int
73 dboot_elfload64(uintptr_t file_image)
74 {
75 Elf64_Ehdr *eh;
76 Elf64_Phdr *phdr;
77 Elf64_Shdr *shdr;
78 caddr_t allphdrs, sechdrs;
79 int i;
80 paddr_t src;
81 paddr_t dst;
82 paddr_t next_addr;
83
84 elf_file = (caddr_t)file_image;
85
86 allphdrs = NULL;
87
88 eh = getehdr();
89 if (eh == NULL)
90 dboot_panic("getehdr() failed");
91
92 if (eh->e_type != ET_EXEC)
93 dboot_panic("not ET_EXEC, e_type = 0x%x", eh->e_type);
94
95 if (eh->e_phnum == 0 || eh->e_phoff == 0)
96 dboot_panic("no program headers");
97
98 /*
99 * Get the program headers.
100 */
101 allphdrs = PGETBYTES(eh->e_phoff);
102 if (allphdrs == NULL)
103 dboot_panic("Failed to get program headers e_phnum = %d",
104 eh->e_phnum);
105
106 /*
107 * Get the section headers.
108 */
109 sechdrs = PGETBYTES(eh->e_shoff);
110 if (sechdrs == NULL)
111 dboot_panic("Failed to get section headers e_shnum = %d",
112 eh->e_shnum);
113
114 /*
115 * Next look for interesting program headers.
116 */
117 for (i = 0; i < eh->e_phnum; i++) {
118 /*LINTED [ELF program header alignment]*/
119 phdr = (Elf64_Phdr *)(allphdrs + eh->e_phentsize * i);
120
121 /*
122 * Dynamically-linked executable.
123 * Complain.
124 */
125 if (phdr->p_type == PT_INTERP) {
126 dboot_printf("warning: PT_INTERP section\n");
127 continue;
128 }
129
130 /*
131 * at this point we only care about PT_LOAD segments
132 */
133 if (phdr->p_type != PT_LOAD)
134 continue;
135
136 if (phdr->p_flags == (PF_R | PF_W) && phdr->p_vaddr == 0) {
137 dboot_printf("warning: krtld reloc info?\n");
138 continue;
139 }
140
141 /*
142 * If memory size is zero just ignore this header.
143 */
144 if (phdr->p_memsz == 0)
145 continue;
146
147 /*
148 * If load address 1:1 then ignore this header.
149 */
150 if (phdr->p_paddr == phdr->p_vaddr) {
151 if (prom_debug)
152 dboot_printf("Skipping PT_LOAD segment for "
153 "paddr = 0x%lx\n", (ulong_t)phdr->p_paddr);
154 continue;
155 }
156
157 /*
158 * copy the data to kernel area
159 */
160 if (phdr->p_paddr != FOUR_MEG && phdr->p_paddr != 2 * FOUR_MEG)
161 dboot_panic("Bad paddr for kernel nucleus segment");
162 src = (uintptr_t)PGETBYTES(phdr->p_offset);
163 dst = ktext_phys + phdr->p_paddr - FOUR_MEG;
164 if (prom_debug)
165 dboot_printf("copying %ld bytes from ELF offset 0x%lx "
166 "to physaddr 0x%lx (va=0x%lx)\n",
167 (ulong_t)phdr->p_filesz, (ulong_t)phdr->p_offset,
168 (ulong_t)dst, (ulong_t)phdr->p_vaddr);
169 (void) memcpy((void *)(uintptr_t)dst,
170 (void *)(uintptr_t)src, (size_t)phdr->p_filesz);
171
172 next_addr = dst + phdr->p_filesz;
173 }
174
175
176 /*
177 * Next look for bss
178 */
179 for (i = 0; i < eh->e_shnum; i++) {
180 shdr = (Elf64_Shdr *)(sechdrs + eh->e_shentsize * i);
181
182 /* zero out bss */
183 if (shdr->sh_type == SHT_NOBITS) {
184 if (prom_debug)
185 dboot_printf("zeroing BSS %lu bytes from "
186 "physaddr 0x%" PRIx64
187 " (end=0x%" PRIx64 ")\n",
188 (ulong_t)shdr->sh_size,
189 next_addr,
190 next_addr + shdr->sh_size);
191 (void) memset((void *)(uintptr_t)next_addr, 0,
192 shdr->sh_size);
193 break;
194 }
195 }
196
197 /*
198 * Ignore the intepreter (or should we die if there is one??)
199 */
200 return (0);
201 }