core_elf32.c revision 1.61 1 1.61 kamil /* $NetBSD: core_elf32.c,v 1.61 2019/12/24 14:50:59 kamil Exp $ */
2 1.1 thorpej
3 1.1 thorpej /*
4 1.1 thorpej * Copyright (c) 2001 Wasabi Systems, Inc.
5 1.1 thorpej * All rights reserved.
6 1.1 thorpej *
7 1.1 thorpej * Written by Jason R. Thorpe for Wasabi Systems, Inc.
8 1.1 thorpej *
9 1.1 thorpej * Redistribution and use in source and binary forms, with or without
10 1.1 thorpej * modification, are permitted provided that the following conditions
11 1.1 thorpej * are met:
12 1.1 thorpej * 1. Redistributions of source code must retain the above copyright
13 1.1 thorpej * notice, this list of conditions and the following disclaimer.
14 1.1 thorpej * 2. Redistributions in binary form must reproduce the above copyright
15 1.1 thorpej * notice, this list of conditions and the following disclaimer in the
16 1.1 thorpej * documentation and/or other materials provided with the distribution.
17 1.1 thorpej * 3. All advertising materials mentioning features or use of this software
18 1.1 thorpej * must display the following acknowledgement:
19 1.1 thorpej * This product includes software developed for the NetBSD Project by
20 1.1 thorpej * Wasabi Systems, Inc.
21 1.1 thorpej * 4. The name of Wasabi Systems, Inc. may not be used to endorse
22 1.1 thorpej * or promote products derived from this software without specific prior
23 1.1 thorpej * written permission.
24 1.1 thorpej *
25 1.1 thorpej * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND
26 1.1 thorpej * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
27 1.1 thorpej * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 1.1 thorpej * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC
29 1.1 thorpej * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 1.1 thorpej * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 1.1 thorpej * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 1.1 thorpej * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 1.1 thorpej * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 1.1 thorpej * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
35 1.1 thorpej * POSSIBILITY OF SUCH DAMAGE.
36 1.1 thorpej */
37 1.1 thorpej
38 1.1 thorpej /*
39 1.1 thorpej * core_elf32.c/core_elf64.c: Support for the Elf32/Elf64 core file format.
40 1.1 thorpej */
41 1.1 thorpej
42 1.1 thorpej #include <sys/cdefs.h>
43 1.61 kamil __KERNEL_RCSID(1, "$NetBSD: core_elf32.c,v 1.61 2019/12/24 14:50:59 kamil Exp $");
44 1.33 ad
45 1.33 ad #ifdef _KERNEL_OPT
46 1.47 christos #include "opt_compat_netbsd32.h"
47 1.33 ad #endif
48 1.1 thorpej
49 1.1 thorpej #ifndef ELFSIZE
50 1.1 thorpej #define ELFSIZE 32
51 1.1 thorpej #endif
52 1.1 thorpej
53 1.1 thorpej #include <sys/param.h>
54 1.1 thorpej #include <sys/systm.h>
55 1.1 thorpej #include <sys/proc.h>
56 1.1 thorpej #include <sys/vnode.h>
57 1.18 matt #include <sys/exec.h>
58 1.1 thorpej #include <sys/exec_elf.h>
59 1.1 thorpej #include <sys/ptrace.h>
60 1.36 para #include <sys/kmem.h>
61 1.25 elad #include <sys/kauth.h>
62 1.59 pgoyette #include <sys/compat_stub.h>
63 1.1 thorpej
64 1.1 thorpej #include <machine/reg.h>
65 1.1 thorpej
66 1.2 thorpej #include <uvm/uvm_extern.h>
67 1.2 thorpej
68 1.2 thorpej struct writesegs_state {
69 1.16 matt Elf_Phdr *psections;
70 1.40 dsl proc_t *p;
71 1.40 dsl off_t secoff;
72 1.40 dsl size_t npsections;
73 1.39 dsl };
74 1.39 dsl
75 1.39 dsl /*
76 1.39 dsl * We need to know how big the 'notes' are before we write the main header.
77 1.39 dsl * To avoid problems with double-processing we save the data.
78 1.39 dsl */
79 1.39 dsl struct note_buf {
80 1.39 dsl struct note_buf *nb_next;
81 1.39 dsl unsigned char nb_data[4096 - sizeof (void *)];
82 1.39 dsl };
83 1.39 dsl
84 1.39 dsl struct note_state {
85 1.39 dsl struct note_buf *ns_first;
86 1.39 dsl struct note_buf *ns_last;
87 1.39 dsl unsigned int ns_count; /* Of full buffers */
88 1.39 dsl unsigned int ns_offset; /* Write point in last buffer */
89 1.2 thorpej };
90 1.2 thorpej
91 1.40 dsl static int ELFNAMEEND(coredump_getseghdrs)(struct uvm_coredump_state *);
92 1.22 thorpej
93 1.39 dsl static int ELFNAMEEND(coredump_notes)(struct lwp *, struct note_state *);
94 1.39 dsl static int ELFNAMEEND(coredump_note)(struct lwp *, struct note_state *);
95 1.1 thorpej
96 1.39 dsl /* The 'note' section names and data are always 4-byte aligned. */
97 1.1 thorpej #define ELFROUNDSIZE 4 /* XXX Should it be sizeof(Elf_Word)? */
98 1.1 thorpej
99 1.61 kamil #define elf_read_lwpstatus CONCAT(process_read_lwpstatus, ELFSIZE)
100 1.61 kamil #define elf_lwpstatus CONCAT(process_lwpstatus, ELFSIZE)
101 1.61 kamil
102 1.23 cube #define elf_process_read_regs CONCAT(process_read_regs, ELFSIZE)
103 1.23 cube #define elf_process_read_fpregs CONCAT(process_read_fpregs, ELFSIZE)
104 1.23 cube #define elf_reg CONCAT(process_reg, ELFSIZE)
105 1.23 cube #define elf_fpreg CONCAT(process_fpreg, ELFSIZE)
106 1.23 cube
107 1.1 thorpej int
108 1.37 dsl ELFNAMEEND(coredump)(struct lwp *l, struct coredump_iostate *cookie)
109 1.1 thorpej {
110 1.1 thorpej Elf_Ehdr ehdr;
111 1.45 matt Elf_Shdr shdr;
112 1.39 dsl Elf_Phdr *psections;
113 1.36 para size_t psectionssize;
114 1.38 dsl int npsections;
115 1.2 thorpej struct writesegs_state ws;
116 1.39 dsl off_t notestart;
117 1.6 matt size_t notesize;
118 1.16 matt int error, i;
119 1.60 pgoyette off_t offset __diagused;
120 1.1 thorpej
121 1.39 dsl struct note_state ns;
122 1.39 dsl struct note_buf *nb;
123 1.39 dsl
124 1.16 matt psections = NULL;
125 1.39 dsl
126 1.39 dsl /* Get all of the notes (mostly all the registers). */
127 1.39 dsl ns.ns_first = kmem_alloc(sizeof *ns.ns_first, KM_SLEEP);
128 1.39 dsl ns.ns_last = ns.ns_first;
129 1.39 dsl ns.ns_count = 0;
130 1.39 dsl ns.ns_offset = 0;
131 1.39 dsl error = ELFNAMEEND(coredump_notes)(l, &ns);
132 1.39 dsl ns.ns_last->nb_next = NULL;
133 1.39 dsl if (error)
134 1.39 dsl goto out;
135 1.39 dsl notesize = ns.ns_count * sizeof nb->nb_data + ns.ns_offset;
136 1.39 dsl
137 1.1 thorpej /*
138 1.1 thorpej * We have to make a total of 3 passes across the map:
139 1.1 thorpej *
140 1.1 thorpej * 1. Count the number of map entries (the number of
141 1.38 dsl * PT_LOAD sections in the dump).
142 1.1 thorpej *
143 1.1 thorpej * 2. Write the P-section headers.
144 1.1 thorpej *
145 1.1 thorpej * 3. Write the P-sections.
146 1.1 thorpej */
147 1.1 thorpej
148 1.1 thorpej /* Pass 1: count the entries. */
149 1.59 pgoyette MODULE_HOOK_CALL(uvm_coredump_count_segs_hook,
150 1.59 pgoyette (l->l_proc), 0, npsections);
151 1.39 dsl /* Allow for the PT_NOTE section. */
152 1.38 dsl npsections++;
153 1.1 thorpej
154 1.39 dsl /* Build the main elf header */
155 1.18 matt memset(&ehdr.e_ident[EI_PAD], 0, sizeof(ehdr.e_ident) - EI_PAD);
156 1.1 thorpej memcpy(ehdr.e_ident, ELFMAG, SELFMAG);
157 1.1 thorpej #if ELFSIZE == 32
158 1.1 thorpej ehdr.e_ident[EI_CLASS] = ELFCLASS32;
159 1.1 thorpej #elif ELFSIZE == 64
160 1.1 thorpej ehdr.e_ident[EI_CLASS] = ELFCLASS64;
161 1.1 thorpej #endif
162 1.1 thorpej ehdr.e_ident[EI_DATA] = ELFDEFNNAME(MACHDEP_ENDIANNESS);
163 1.1 thorpej ehdr.e_ident[EI_VERSION] = EV_CURRENT;
164 1.55 kamil /*
165 1.55 kamil * NetBSD sets generic SYSV OSABI and ABI version 0
166 1.55 kamil * Native ELF files are distinguishable with NetBSD specific notes
167 1.55 kamil */
168 1.1 thorpej ehdr.e_ident[EI_OSABI] = ELFOSABI_SYSV;
169 1.2 thorpej ehdr.e_ident[EI_ABIVERSION] = 0;
170 1.1 thorpej
171 1.1 thorpej ehdr.e_type = ET_CORE;
172 1.1 thorpej /* XXX This should be the e_machine of the executable. */
173 1.1 thorpej ehdr.e_machine = ELFDEFNNAME(MACHDEP_ID);
174 1.1 thorpej ehdr.e_version = EV_CURRENT;
175 1.1 thorpej ehdr.e_entry = 0;
176 1.1 thorpej ehdr.e_flags = 0;
177 1.1 thorpej ehdr.e_ehsize = sizeof(ehdr);
178 1.1 thorpej ehdr.e_phentsize = sizeof(Elf_Phdr);
179 1.45 matt if (npsections < PN_XNUM) {
180 1.45 matt ehdr.e_phnum = npsections;
181 1.45 matt ehdr.e_shentsize = 0;
182 1.45 matt ehdr.e_shnum = 0;
183 1.45 matt ehdr.e_shoff = 0;
184 1.45 matt ehdr.e_phoff = sizeof(ehdr);
185 1.45 matt } else {
186 1.45 matt ehdr.e_phnum = PN_XNUM;
187 1.45 matt ehdr.e_shentsize = sizeof(Elf_Shdr);
188 1.45 matt ehdr.e_shnum = 1;
189 1.45 matt ehdr.e_shoff = sizeof(ehdr);
190 1.45 matt ehdr.e_phoff = sizeof(ehdr) + sizeof(shdr);
191 1.45 matt }
192 1.1 thorpej ehdr.e_shstrndx = 0;
193 1.1 thorpej
194 1.35 matt #ifdef ELF_MD_COREDUMP_SETUP
195 1.35 matt ELF_MD_COREDUMP_SETUP(l, &ehdr);
196 1.35 matt #endif
197 1.35 matt
198 1.1 thorpej /* Write out the ELF header. */
199 1.59 pgoyette MODULE_HOOK_CALL(coredump_write_hook, (cookie, UIO_SYSSPACE, &ehdr,
200 1.59 pgoyette sizeof(ehdr)), ENOSYS, error);
201 1.16 matt if (error)
202 1.16 matt goto out;
203 1.16 matt
204 1.45 matt /* Write out sections, if needed */
205 1.45 matt if (npsections >= PN_XNUM) {
206 1.45 matt memset(&shdr, 0, sizeof(shdr));
207 1.45 matt shdr.sh_type = SHT_NULL;
208 1.45 matt shdr.sh_info = npsections;
209 1.59 pgoyette MODULE_HOOK_CALL(coredump_write_hook, (cookie, UIO_SYSSPACE,
210 1.59 pgoyette &shdr, sizeof(shdr)), ENOSYS, error);
211 1.45 matt if (error)
212 1.45 matt goto out;
213 1.45 matt }
214 1.45 matt
215 1.39 dsl psectionssize = npsections * sizeof(*psections);
216 1.45 matt notestart = ehdr.e_phoff + psectionssize;
217 1.1 thorpej
218 1.36 para psections = kmem_zalloc(psectionssize, KM_SLEEP);
219 1.1 thorpej
220 1.38 dsl /* Pass 2: now find the P-section headers. */
221 1.39 dsl ws.secoff = notestart + notesize;
222 1.16 matt ws.psections = psections;
223 1.39 dsl ws.npsections = npsections - 1;
224 1.41 dsl ws.p = l->l_proc;
225 1.59 pgoyette MODULE_HOOK_CALL(uvm_coredump_walkmap_hook,
226 1.59 pgoyette (l->l_proc, ELFNAMEEND(coredump_getseghdrs), &ws), ENOSYS, error);
227 1.2 thorpej if (error)
228 1.16 matt goto out;
229 1.39 dsl if (ws.npsections != 0) {
230 1.39 dsl /* A section went away */
231 1.39 dsl error = ENOMEM;
232 1.39 dsl goto out;
233 1.39 dsl }
234 1.1 thorpej
235 1.38 dsl /* Add the PT_NOTE header after the P-section headers. */
236 1.16 matt ws.psections->p_type = PT_NOTE;
237 1.16 matt ws.psections->p_offset = notestart;
238 1.16 matt ws.psections->p_vaddr = 0;
239 1.16 matt ws.psections->p_paddr = 0;
240 1.16 matt ws.psections->p_filesz = notesize;
241 1.16 matt ws.psections->p_memsz = 0;
242 1.16 matt ws.psections->p_flags = PF_R;
243 1.16 matt ws.psections->p_align = ELFROUNDSIZE;
244 1.1 thorpej
245 1.39 dsl /* Write the P-section headers followed by the PT_NOTE header */
246 1.59 pgoyette MODULE_HOOK_CALL(coredump_write_hook, (cookie, UIO_SYSSPACE, psections,
247 1.59 pgoyette psectionssize), ENOSYS, error);
248 1.1 thorpej if (error)
249 1.16 matt goto out;
250 1.1 thorpej
251 1.18 matt #ifdef DIAGNOSTIC
252 1.59 pgoyette MODULE_HOOK_CALL(coredump_offset_hook, (cookie), 0, offset);
253 1.59 pgoyette if (offset != notestart)
254 1.2 thorpej panic("coredump: offset %lld != notestart %lld",
255 1.59 pgoyette (long long) offset,
256 1.39 dsl (long long) notestart);
257 1.2 thorpej #endif
258 1.1 thorpej
259 1.1 thorpej /* Write out the notes. */
260 1.39 dsl for (nb = ns.ns_first; nb != NULL; nb = nb->nb_next) {
261 1.59 pgoyette MODULE_HOOK_CALL(coredump_write_hook, (cookie, UIO_SYSSPACE,
262 1.59 pgoyette nb->nb_data,
263 1.59 pgoyette nb->nb_next == NULL ? ns.ns_offset : sizeof nb->nb_data),
264 1.59 pgoyette ENOSYS, error);
265 1.39 dsl if (error)
266 1.39 dsl goto out;
267 1.39 dsl }
268 1.2 thorpej
269 1.39 dsl /* Finally, write the sections themselves. */
270 1.38 dsl for (i = 0; i < npsections - 1; i++) {
271 1.16 matt if (psections[i].p_filesz == 0)
272 1.16 matt continue;
273 1.16 matt
274 1.16 matt #ifdef DIAGNOSTIC
275 1.59 pgoyette MODULE_HOOK_CALL(coredump_offset_hook, (cookie), 0, offset);
276 1.59 pgoyette if (offset != psections[i].p_offset)
277 1.16 matt panic("coredump: offset %lld != p_offset[%d] %lld",
278 1.59 pgoyette (long long) offset, i,
279 1.16 matt (long long) psections[i].p_filesz);
280 1.16 matt #endif
281 1.16 matt
282 1.59 pgoyette MODULE_HOOK_CALL(coredump_write_hook, (cookie, UIO_USERSPACE,
283 1.18 matt (void *)(vaddr_t)psections[i].p_vaddr,
284 1.59 pgoyette psections[i].p_filesz), ENOSYS, error);
285 1.16 matt if (error)
286 1.16 matt goto out;
287 1.16 matt }
288 1.1 thorpej
289 1.16 matt out:
290 1.16 matt if (psections)
291 1.36 para kmem_free(psections, psectionssize);
292 1.44 dsl while ((nb = ns.ns_first) != NULL) {
293 1.44 dsl ns.ns_first = nb->nb_next;
294 1.39 dsl kmem_free(nb, sizeof *nb);
295 1.43 mrg }
296 1.2 thorpej return (error);
297 1.2 thorpej }
298 1.2 thorpej
299 1.22 thorpej static int
300 1.40 dsl ELFNAMEEND(coredump_getseghdrs)(struct uvm_coredump_state *us)
301 1.2 thorpej {
302 1.2 thorpej struct writesegs_state *ws = us->cookie;
303 1.2 thorpej Elf_Phdr phdr;
304 1.16 matt vsize_t size, realsize;
305 1.16 matt vaddr_t end;
306 1.2 thorpej int error;
307 1.2 thorpej
308 1.39 dsl /* Don't overrun if there are more sections */
309 1.39 dsl if (ws->npsections == 0)
310 1.39 dsl return ENOMEM;
311 1.39 dsl ws->npsections--;
312 1.39 dsl
313 1.2 thorpej size = us->end - us->start;
314 1.16 matt realsize = us->realend - us->start;
315 1.16 matt end = us->realend;
316 1.16 matt
317 1.38 dsl /* Don't bother writing out trailing zeros */
318 1.16 matt while (realsize > 0) {
319 1.16 matt long buf[1024 / sizeof(long)];
320 1.16 matt size_t slen = realsize > sizeof(buf) ? sizeof(buf) : realsize;
321 1.16 matt const long *ep;
322 1.16 matt int i;
323 1.16 matt
324 1.16 matt end -= slen;
325 1.58 kamil if ((error = copyin_proc(ws->p, (void *)end, buf, slen)) != 0) {
326 1.58 kamil /*
327 1.58 kamil * In case of any errors of scanning the segments reset
328 1.58 kamil * their content to a default value with zeros. This is
329 1.58 kamil * achieved with shortening the p_filesz parameter.
330 1.58 kamil *
331 1.58 kamil * This allows to emit core(5) files for a process
332 1.58 kamil * regardless of its state of mappings, such as mapping
333 1.58 kamil * pages after EOF in a file.
334 1.58 kamil */
335 1.58 kamil realsize -= slen;
336 1.58 kamil continue;
337 1.58 kamil }
338 1.16 matt
339 1.16 matt ep = (const long *) &buf[slen / sizeof(buf[0])];
340 1.16 matt for (i = 0, ep--; buf <= ep; ep--, i++) {
341 1.16 matt if (*ep)
342 1.16 matt break;
343 1.16 matt }
344 1.16 matt realsize -= i * sizeof(buf[0]);
345 1.16 matt if (i * sizeof(buf[0]) < slen)
346 1.16 matt break;
347 1.16 matt }
348 1.2 thorpej
349 1.2 thorpej phdr.p_type = PT_LOAD;
350 1.2 thorpej phdr.p_offset = ws->secoff;
351 1.2 thorpej phdr.p_vaddr = us->start;
352 1.2 thorpej phdr.p_paddr = 0;
353 1.16 matt phdr.p_filesz = realsize;
354 1.2 thorpej phdr.p_memsz = size;
355 1.2 thorpej phdr.p_flags = 0;
356 1.2 thorpej if (us->prot & VM_PROT_READ)
357 1.2 thorpej phdr.p_flags |= PF_R;
358 1.2 thorpej if (us->prot & VM_PROT_WRITE)
359 1.2 thorpej phdr.p_flags |= PF_W;
360 1.2 thorpej if (us->prot & VM_PROT_EXECUTE)
361 1.2 thorpej phdr.p_flags |= PF_X;
362 1.2 thorpej phdr.p_align = PAGE_SIZE;
363 1.2 thorpej
364 1.2 thorpej ws->secoff += phdr.p_filesz;
365 1.16 matt *ws->psections++ = phdr;
366 1.1 thorpej
367 1.1 thorpej return (0);
368 1.1 thorpej }
369 1.1 thorpej
370 1.46 christos static void
371 1.46 christos coredump_note_procinfo(struct lwp *l, struct note_state *ns)
372 1.1 thorpej {
373 1.39 dsl struct proc *p;
374 1.1 thorpej struct netbsd_elfcore_procinfo cpi;
375 1.1 thorpej
376 1.39 dsl p = l->l_proc;
377 1.1 thorpej
378 1.1 thorpej /* First, write an elfcore_procinfo. */
379 1.39 dsl cpi.cpi_version = NETBSD_ELFCORE_PROCINFO_VERSION;
380 1.39 dsl cpi.cpi_cpisize = sizeof(cpi);
381 1.50 kamil cpi.cpi_signo = p->p_sigctx.ps_info._signo;
382 1.50 kamil cpi.cpi_sigcode = p->p_sigctx.ps_info._code;
383 1.39 dsl cpi.cpi_siglwp = p->p_sigctx.ps_lwp;
384 1.1 thorpej
385 1.39 dsl /*
386 1.61 kamil * per-LWP pending signals are stored in PT_LWPSTATUS@nnn.
387 1.61 kamil */
388 1.61 kamil memcpy(&cpi.cpi_sigpend, &p->p_sigpend.sp_set, sizeof(cpi.cpi_sigpend));
389 1.61 kamil
390 1.61 kamil /*
391 1.61 kamil * Signal mask is stored on a per-LWP basis in PT_LWPSTATUS@nnn.
392 1.61 kamil * For compatibility purposes, cpi_sigmask is present, but zeroed.
393 1.39 dsl */
394 1.61 kamil memset(&cpi.cpi_sigmask, 0, sizeof(cpi.cpi_sigmask));
395 1.61 kamil
396 1.39 dsl memcpy(&cpi.cpi_sigignore, &p->p_sigctx.ps_sigignore,
397 1.39 dsl sizeof(cpi.cpi_sigignore));
398 1.39 dsl memcpy(&cpi.cpi_sigcatch, &p->p_sigctx.ps_sigcatch,
399 1.39 dsl sizeof(cpi.cpi_sigcatch));
400 1.39 dsl
401 1.39 dsl cpi.cpi_pid = p->p_pid;
402 1.39 dsl mutex_enter(proc_lock);
403 1.39 dsl cpi.cpi_ppid = p->p_pptr->p_pid;
404 1.39 dsl cpi.cpi_pgrp = p->p_pgid;
405 1.39 dsl cpi.cpi_sid = p->p_session->s_sid;
406 1.39 dsl mutex_exit(proc_lock);
407 1.39 dsl
408 1.39 dsl cpi.cpi_ruid = kauth_cred_getuid(l->l_cred);
409 1.39 dsl cpi.cpi_euid = kauth_cred_geteuid(l->l_cred);
410 1.39 dsl cpi.cpi_svuid = kauth_cred_getsvuid(l->l_cred);
411 1.39 dsl
412 1.39 dsl cpi.cpi_rgid = kauth_cred_getgid(l->l_cred);
413 1.39 dsl cpi.cpi_egid = kauth_cred_getegid(l->l_cred);
414 1.39 dsl cpi.cpi_svgid = kauth_cred_getsvgid(l->l_cred);
415 1.39 dsl
416 1.39 dsl cpi.cpi_nlwps = p->p_nlwps;
417 1.39 dsl (void)strncpy(cpi.cpi_name, p->p_comm, sizeof(cpi.cpi_name));
418 1.39 dsl cpi.cpi_name[sizeof(cpi.cpi_name) - 1] = '\0';
419 1.39 dsl
420 1.41 dsl ELFNAMEEND(coredump_savenote)(ns, ELF_NOTE_NETBSD_CORE_PROCINFO,
421 1.41 dsl ELF_NOTE_NETBSD_CORE_NAME, &cpi, sizeof(cpi));
422 1.46 christos }
423 1.46 christos
424 1.46 christos static int
425 1.46 christos coredump_note_auxv(struct lwp *l, struct note_state *ns)
426 1.46 christos {
427 1.46 christos int error;
428 1.54 christos size_t len;
429 1.54 christos void *kauxv;
430 1.46 christos
431 1.54 christos if ((error = proc_getauxv(l->l_proc, &kauxv, &len)) != 0)
432 1.46 christos return error;
433 1.46 christos
434 1.54 christos ELFNAMEEND(coredump_savenote)(ns, ELF_NOTE_NETBSD_CORE_AUXV,
435 1.54 christos ELF_NOTE_NETBSD_CORE_NAME, kauxv, len);
436 1.46 christos
437 1.46 christos kmem_free(kauxv, len);
438 1.54 christos return 0;
439 1.46 christos }
440 1.46 christos
441 1.46 christos static int
442 1.46 christos ELFNAMEEND(coredump_notes)(struct lwp *l, struct note_state *ns)
443 1.46 christos {
444 1.46 christos int error;
445 1.46 christos struct lwp *l0;
446 1.46 christos struct proc *p = l->l_proc;
447 1.46 christos
448 1.46 christos coredump_note_procinfo(l, ns);
449 1.46 christos error = coredump_note_auxv(l, ns);
450 1.46 christos if (error)
451 1.46 christos return error;
452 1.1 thorpej
453 1.1 thorpej /* XXX Add hook for machdep per-proc notes. */
454 1.1 thorpej
455 1.1 thorpej /*
456 1.6 matt * Now write the register info for the thread that caused the
457 1.6 matt * coredump.
458 1.6 matt */
459 1.39 dsl error = ELFNAMEEND(coredump_note)(l, ns);
460 1.6 matt if (error)
461 1.46 christos return error;
462 1.6 matt
463 1.6 matt /*
464 1.1 thorpej * Now, for each LWP, write the register info and any other
465 1.40 dsl * per-LWP notes.
466 1.40 dsl * Lock in case this is a gcore requested dump.
467 1.1 thorpej */
468 1.40 dsl mutex_enter(p->p_lock);
469 1.6 matt LIST_FOREACH(l0, &p->p_lwps, l_sibling) {
470 1.6 matt if (l0 == l) /* we've taken care of this thread */
471 1.6 matt continue;
472 1.39 dsl error = ELFNAMEEND(coredump_note)(l0, ns);
473 1.6 matt if (error)
474 1.40 dsl break;
475 1.6 matt }
476 1.40 dsl mutex_exit(p->p_lock);
477 1.6 matt
478 1.40 dsl return error;
479 1.6 matt }
480 1.1 thorpej
481 1.22 thorpej static int
482 1.39 dsl ELFNAMEEND(coredump_note)(struct lwp *l, struct note_state *ns)
483 1.6 matt {
484 1.39 dsl int error;
485 1.39 dsl char name[64];
486 1.61 kamil elf_lwpstatus els;
487 1.23 cube elf_reg intreg;
488 1.1 thorpej #ifdef PT_GETFPREGS
489 1.23 cube elf_fpreg freg;
490 1.39 dsl size_t freglen;
491 1.6 matt #endif
492 1.6 matt
493 1.39 dsl snprintf(name, sizeof(name), "%s@%d",
494 1.18 matt ELF_NOTE_NETBSD_CORE_NAME, l->l_lid);
495 1.6 matt
496 1.61 kamil elf_read_lwpstatus(l, &els);
497 1.61 kamil
498 1.61 kamil ELFNAMEEND(coredump_savenote)(ns, PT_LWPSTATUS, name, &els,
499 1.61 kamil sizeof(els));
500 1.61 kamil
501 1.39 dsl error = elf_process_read_regs(l, &intreg);
502 1.39 dsl if (error)
503 1.39 dsl return (error);
504 1.6 matt
505 1.41 dsl ELFNAMEEND(coredump_savenote)(ns, PT_GETREGS, name, &intreg,
506 1.41 dsl sizeof(intreg));
507 1.6 matt
508 1.6 matt #ifdef PT_GETFPREGS
509 1.39 dsl freglen = sizeof(freg);
510 1.42 dsl error = elf_process_read_fpregs(l, &freg, &freglen);
511 1.39 dsl if (error)
512 1.39 dsl return (error);
513 1.6 matt
514 1.41 dsl ELFNAMEEND(coredump_savenote)(ns, PT_GETFPREGS, name, &freg, freglen);
515 1.6 matt #endif
516 1.6 matt /* XXX Add hook for machdep per-LWP notes. */
517 1.1 thorpej return (0);
518 1.1 thorpej }
519 1.1 thorpej
520 1.39 dsl static void
521 1.39 dsl save_note_bytes(struct note_state *ns, const void *data, size_t len)
522 1.1 thorpej {
523 1.39 dsl struct note_buf *nb = ns->ns_last;
524 1.39 dsl size_t copylen;
525 1.39 dsl unsigned char *wp;
526 1.39 dsl
527 1.39 dsl /*
528 1.39 dsl * Just copy the data into a buffer list.
529 1.39 dsl * All but the last buffer is full.
530 1.39 dsl */
531 1.39 dsl for (;;) {
532 1.57 riastrad copylen = uimin(len, sizeof(nb->nb_data) - ns->ns_offset);
533 1.39 dsl wp = nb->nb_data + ns->ns_offset;
534 1.39 dsl memcpy(wp, data, copylen);
535 1.39 dsl if (copylen == len)
536 1.39 dsl break;
537 1.56 christos nb->nb_next = kmem_alloc(sizeof(*nb->nb_next), KM_SLEEP);
538 1.39 dsl nb = nb->nb_next;
539 1.39 dsl ns->ns_last = nb;
540 1.39 dsl ns->ns_count++;
541 1.39 dsl ns->ns_offset = 0;
542 1.39 dsl len -= copylen;
543 1.39 dsl data = (const unsigned char *)data + copylen;
544 1.39 dsl }
545 1.1 thorpej
546 1.56 christos while ((copylen & (ELFROUNDSIZE - 1)) &&
547 1.56 christos wp + copylen < nb->nb_data + sizeof(nb->nb_data))
548 1.56 christos wp[copylen++] = 0;
549 1.1 thorpej
550 1.39 dsl ns->ns_offset += copylen;
551 1.39 dsl }
552 1.1 thorpej
553 1.39 dsl void
554 1.41 dsl ELFNAMEEND(coredump_savenote)(struct note_state *ns, unsigned int type,
555 1.41 dsl const char *name, void *data, size_t data_len)
556 1.39 dsl {
557 1.41 dsl Elf_Nhdr nhdr;
558 1.41 dsl
559 1.41 dsl nhdr.n_namesz = strlen(name) + 1;
560 1.41 dsl nhdr.n_descsz = data_len;
561 1.41 dsl nhdr.n_type = type;
562 1.41 dsl
563 1.41 dsl save_note_bytes(ns, &nhdr, sizeof (nhdr));
564 1.41 dsl save_note_bytes(ns, name, nhdr.n_namesz);
565 1.41 dsl save_note_bytes(ns, data, data_len);
566 1.1 thorpej }
567