Home | History | Annotate | Line # | Download | only in kern
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