[mirror_ubuntu-zesty-kernel.git] / arch / s390 / kernel / crash_dump.c

/*
 * S390 kdump implementation
 *
 * Copyright IBM Corp. 2011
 * Author(s): Michael Holzheu <holzheu@linux.vnet.ibm.com>
 */

#include <linux/crash_dump.h>
#include <asm/lowcore.h>
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/gfp.h>
#include <linux/slab.h>
#include <linux/bootmem.h>
#include <linux/elf.h>
#include <linux/memblock.h>
#include <asm/os_info.h>
#include <asm/elf.h>
#include <asm/ipl.h>
#include <asm/sclp.h>

#define PTR_ADD(x, y) (((char *) (x)) + ((unsigned long) (y)))
#define PTR_SUB(x, y) (((char *) (x)) - ((unsigned long) (y)))
#define PTR_DIFF(x, y) ((unsigned long)(((char *) (x)) - ((unsigned long) (y))))

static struct memblock_region oldmem_region;

static struct memblock_type oldmem_type = {
	.cnt = 1,
	.max = 1,
	.total_size = 0,
	.regions = &oldmem_region,
};

#define for_each_dump_mem_range(i, nid, p_start, p_end, p_nid)		\
	for (i = 0, __next_mem_range(&i, nid, MEMBLOCK_NONE,		\
				     &memblock.physmem,			\
				     &oldmem_type, p_start,		\
				     p_end, p_nid);			\
	     i != (u64)ULLONG_MAX;					\
	     __next_mem_range(&i, nid, MEMBLOCK_NONE, &memblock.physmem,\
			      &oldmem_type,				\
			      p_start, p_end, p_nid))

struct dump_save_areas dump_save_areas;

/*
 * Return physical address for virtual address
 */
static inline void *load_real_addr(void *addr)
{
	unsigned long real_addr;

	asm volatile(
		   "	lra     %0,0(%1)\n"
		   "	jz	0f\n"
		   "	la	%0,0\n"
		   "0:"
		   : "=a" (real_addr) : "a" (addr) : "cc");
	return (void *)real_addr;
}

/*
 * Copy real to virtual or real memory
 */
static int copy_from_realmem(void *dest, void *src, size_t count)
{
	unsigned long size;

	if (!count)
		return 0;
	if (!is_vmalloc_or_module_addr(dest))
		return memcpy_real(dest, src, count);
	do {
		size = min(count, PAGE_SIZE - (__pa(dest) & ~PAGE_MASK));
		if (memcpy_real(load_real_addr(dest), src, size))
			return -EFAULT;
		count -= size;
		dest += size;
		src += size;
	} while (count);
	return 0;
}

/*
 * Pointer to ELF header in new kernel
 */
static void *elfcorehdr_newmem;

/*
 * Copy one page from zfcpdump "oldmem"
 *
 * For pages below HSA size memory from the HSA is copied. Otherwise
 * real memory copy is used.
 */
static ssize_t copy_oldmem_page_zfcpdump(char *buf, size_t csize,
					 unsigned long src, int userbuf)
{
	int rc;

	if (src < sclp.hsa_size) {
		rc = memcpy_hsa(buf, src, csize, userbuf);
	} else {
		if (userbuf)
			rc = copy_to_user_real((void __force __user *) buf,
					       (void *) src, csize);
		else
			rc = memcpy_real(buf, (void *) src, csize);
	}
	return rc ? rc : csize;
}

/*
 * Copy one page from kdump "oldmem"
 *
 * For the kdump reserved memory this functions performs a swap operation:
 *  - [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE] is mapped to [0 - OLDMEM_SIZE].
 *  - [0 - OLDMEM_SIZE] is mapped to [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE]
 */
static ssize_t copy_oldmem_page_kdump(char *buf, size_t csize,
				      unsigned long src, int userbuf)

{
	int rc;

	if (src < OLDMEM_SIZE)
		src += OLDMEM_BASE;
	else if (src > OLDMEM_BASE &&
		 src < OLDMEM_BASE + OLDMEM_SIZE)
		src -= OLDMEM_BASE;
	if (userbuf)
		rc = copy_to_user_real((void __force __user *) buf,
				       (void *) src, csize);
	else
		rc = copy_from_realmem(buf, (void *) src, csize);
	return (rc == 0) ? rc : csize;
}

/*
 * Copy one page from "oldmem"
 */
ssize_t copy_oldmem_page(unsigned long pfn, char *buf, size_t csize,
			 unsigned long offset, int userbuf)
{
	unsigned long src;

	if (!csize)
		return 0;
	src = (pfn << PAGE_SHIFT) + offset;
	if (OLDMEM_BASE)
		return copy_oldmem_page_kdump(buf, csize, src, userbuf);
	else
		return copy_oldmem_page_zfcpdump(buf, csize, src, userbuf);
}

/*
 * Remap "oldmem" for kdump
 *
 * For the kdump reserved memory this functions performs a swap operation:
 * [0 - OLDMEM_SIZE] is mapped to [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE]
 */
static int remap_oldmem_pfn_range_kdump(struct vm_area_struct *vma,
					unsigned long from, unsigned long pfn,
					unsigned long size, pgprot_t prot)
{
	unsigned long size_old;
	int rc;

	if (pfn < OLDMEM_SIZE >> PAGE_SHIFT) {
		size_old = min(size, OLDMEM_SIZE - (pfn << PAGE_SHIFT));
		rc = remap_pfn_range(vma, from,
				     pfn + (OLDMEM_BASE >> PAGE_SHIFT),
				     size_old, prot);
		if (rc || size == size_old)
			return rc;
		size -= size_old;
		from += size_old;
		pfn += size_old >> PAGE_SHIFT;
	}
	return remap_pfn_range(vma, from, pfn, size, prot);
}

/*
 * Remap "oldmem" for zfcpdump
 *
 * We only map available memory above HSA size. Memory below HSA size
 * is read on demand using the copy_oldmem_page() function.
 */
static int remap_oldmem_pfn_range_zfcpdump(struct vm_area_struct *vma,
					   unsigned long from,
					   unsigned long pfn,
					   unsigned long size, pgprot_t prot)
{
	unsigned long hsa_end = sclp.hsa_size;
	unsigned long size_hsa;

	if (pfn < hsa_end >> PAGE_SHIFT) {
		size_hsa = min(size, hsa_end - (pfn << PAGE_SHIFT));
		if (size == size_hsa)
			return 0;
		size -= size_hsa;
		from += size_hsa;
		pfn += size_hsa >> PAGE_SHIFT;
	}
	return remap_pfn_range(vma, from, pfn, size, prot);
}

/*
 * Remap "oldmem" for kdump or zfcpdump
 */
int remap_oldmem_pfn_range(struct vm_area_struct *vma, unsigned long from,
			   unsigned long pfn, unsigned long size, pgprot_t prot)
{
	if (OLDMEM_BASE)
		return remap_oldmem_pfn_range_kdump(vma, from, pfn, size, prot);
	else
		return remap_oldmem_pfn_range_zfcpdump(vma, from, pfn, size,
						       prot);
}

/*
 * Copy memory from old kernel
 */
int copy_from_oldmem(void *dest, void *src, size_t count)
{
	unsigned long copied = 0;
	int rc;

	if (OLDMEM_BASE) {
		if ((unsigned long) src < OLDMEM_SIZE) {
			copied = min(count, OLDMEM_SIZE - (unsigned long) src);
			rc = copy_from_realmem(dest, src + OLDMEM_BASE, copied);
			if (rc)
				return rc;
		}
	} else {
		unsigned long hsa_end = sclp.hsa_size;
		if ((unsigned long) src < hsa_end) {
			copied = min(count, hsa_end - (unsigned long) src);
			rc = memcpy_hsa(dest, (unsigned long) src, copied, 0);
			if (rc)
				return rc;
		}
	}
	return copy_from_realmem(dest + copied, src + copied, count - copied);
}

/*
 * Alloc memory and panic in case of ENOMEM
 */
static void *kzalloc_panic(int len)
{
	void *rc;

	rc = kzalloc(len, GFP_KERNEL);
	if (!rc)
		panic("s390 kdump kzalloc (%d) failed", len);
	return rc;
}

/*
 * Initialize ELF note
 */
static void *nt_init(void *buf, Elf64_Word type, void *desc, int d_len,
		     const char *name)
{
	Elf64_Nhdr *note;
	u64 len;

	note = (Elf64_Nhdr *)buf;
	note->n_namesz = strlen(name) + 1;
	note->n_descsz = d_len;
	note->n_type = type;
	len = sizeof(Elf64_Nhdr);

	memcpy(buf + len, name, note->n_namesz);
	len = roundup(len + note->n_namesz, 4);

	memcpy(buf + len, desc, note->n_descsz);
	len = roundup(len + note->n_descsz, 4);

	return PTR_ADD(buf, len);
}

/*
 * Initialize prstatus note
 */
static void *nt_prstatus(void *ptr, struct save_area *sa)
{
	struct elf_prstatus nt_prstatus;
	static int cpu_nr = 1;

	memset(&nt_prstatus, 0, sizeof(nt_prstatus));
	memcpy(&nt_prstatus.pr_reg.gprs, sa->gp_regs, sizeof(sa->gp_regs));
	memcpy(&nt_prstatus.pr_reg.psw, sa->psw, sizeof(sa->psw));
	memcpy(&nt_prstatus.pr_reg.acrs, sa->acc_regs, sizeof(sa->acc_regs));
	nt_prstatus.pr_pid = cpu_nr;
	cpu_nr++;

	return nt_init(ptr, NT_PRSTATUS, &nt_prstatus, sizeof(nt_prstatus),
			 "CORE");
}

/*
 * Initialize fpregset (floating point) note
 */
static void *nt_fpregset(void *ptr, struct save_area *sa)
{
	elf_fpregset_t nt_fpregset;

	memset(&nt_fpregset, 0, sizeof(nt_fpregset));
	memcpy(&nt_fpregset.fpc, &sa->fp_ctrl_reg, sizeof(sa->fp_ctrl_reg));
	memcpy(&nt_fpregset.fprs, &sa->fp_regs, sizeof(sa->fp_regs));

	return nt_init(ptr, NT_PRFPREG, &nt_fpregset, sizeof(nt_fpregset),
		       "CORE");
}

/*
 * Initialize timer note
 */
static void *nt_s390_timer(void *ptr, struct save_area *sa)
{
	return nt_init(ptr, NT_S390_TIMER, &sa->timer, sizeof(sa->timer),
			 KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize TOD clock comparator note
 */
static void *nt_s390_tod_cmp(void *ptr, struct save_area *sa)
{
	return nt_init(ptr, NT_S390_TODCMP, &sa->clk_cmp,
		       sizeof(sa->clk_cmp), KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize TOD programmable register note
 */
static void *nt_s390_tod_preg(void *ptr, struct save_area *sa)
{
	return nt_init(ptr, NT_S390_TODPREG, &sa->tod_reg,
		       sizeof(sa->tod_reg), KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize control register note
 */
static void *nt_s390_ctrs(void *ptr, struct save_area *sa)
{
	return nt_init(ptr, NT_S390_CTRS, &sa->ctrl_regs,
		       sizeof(sa->ctrl_regs), KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize prefix register note
 */
static void *nt_s390_prefix(void *ptr, struct save_area *sa)
{
	return nt_init(ptr, NT_S390_PREFIX, &sa->pref_reg,
			 sizeof(sa->pref_reg), KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize vxrs high note (full 128 bit VX registers 16-31)
 */
static void *nt_s390_vx_high(void *ptr, __vector128 *vx_regs)
{
	return nt_init(ptr, NT_S390_VXRS_HIGH, &vx_regs[16],
		       16 * sizeof(__vector128), KEXEC_CORE_NOTE_NAME);
}

/*
 * Initialize vxrs low note (lower halves of VX registers 0-15)
 */
static void *nt_s390_vx_low(void *ptr, __vector128 *vx_regs)
{
	Elf64_Nhdr *note;
	u64 len;
	int i;

	note = (Elf64_Nhdr *)ptr;
	note->n_namesz = strlen(KEXEC_CORE_NOTE_NAME) + 1;
	note->n_descsz = 16 * 8;
	note->n_type = NT_S390_VXRS_LOW;
	len = sizeof(Elf64_Nhdr);

	memcpy(ptr + len, KEXEC_CORE_NOTE_NAME, note->n_namesz);
	len = roundup(len + note->n_namesz, 4);

	ptr += len;
	/* Copy lower halves of SIMD registers 0-15 */
	for (i = 0; i < 16; i++) {
		memcpy(ptr, &vx_regs[i].u[2], 8);
		ptr += 8;
	}
	return ptr;
}

/*
 * Fill ELF notes for one CPU with save area registers
 */
void *fill_cpu_elf_notes(void *ptr, struct save_area *sa, __vector128 *vx_regs)
{
	ptr = nt_prstatus(ptr, sa);
	ptr = nt_fpregset(ptr, sa);
	ptr = nt_s390_timer(ptr, sa);
	ptr = nt_s390_tod_cmp(ptr, sa);
	ptr = nt_s390_tod_preg(ptr, sa);
	ptr = nt_s390_ctrs(ptr, sa);
	ptr = nt_s390_prefix(ptr, sa);
	if (MACHINE_HAS_VX && vx_regs) {
		ptr = nt_s390_vx_low(ptr, vx_regs);
		ptr = nt_s390_vx_high(ptr, vx_regs);
	}
	return ptr;
}

/*
 * Initialize prpsinfo note (new kernel)
 */
static void *nt_prpsinfo(void *ptr)
{
	struct elf_prpsinfo prpsinfo;

	memset(&prpsinfo, 0, sizeof(prpsinfo));
	prpsinfo.pr_sname = 'R';
	strcpy(prpsinfo.pr_fname, "vmlinux");
	return nt_init(ptr, NT_PRPSINFO, &prpsinfo, sizeof(prpsinfo),
		       KEXEC_CORE_NOTE_NAME);
}

/*
 * Get vmcoreinfo using lowcore->vmcore_info (new kernel)
 */
static void *get_vmcoreinfo_old(unsigned long *size)
{
	char nt_name[11], *vmcoreinfo;
	Elf64_Nhdr note;
	void *addr;

	if (copy_from_oldmem(&addr, &S390_lowcore.vmcore_info, sizeof(addr)))
		return NULL;
	memset(nt_name, 0, sizeof(nt_name));
	if (copy_from_oldmem(&note, addr, sizeof(note)))
		return NULL;
	if (copy_from_oldmem(nt_name, addr + sizeof(note), sizeof(nt_name) - 1))
		return NULL;
	if (strcmp(nt_name, "VMCOREINFO") != 0)
		return NULL;
	vmcoreinfo = kzalloc_panic(note.n_descsz);
	if (copy_from_oldmem(vmcoreinfo, addr + 24, note.n_descsz))
		return NULL;
	*size = note.n_descsz;
	return vmcoreinfo;
}

/*
 * Initialize vmcoreinfo note (new kernel)
 */
static void *nt_vmcoreinfo(void *ptr)
{
	unsigned long size;
	void *vmcoreinfo;

	vmcoreinfo = os_info_old_entry(OS_INFO_VMCOREINFO, &size);
	if (!vmcoreinfo)
		vmcoreinfo = get_vmcoreinfo_old(&size);
	if (!vmcoreinfo)
		return ptr;
	return nt_init(ptr, 0, vmcoreinfo, size, "VMCOREINFO");
}

/*
 * Initialize ELF header (new kernel)
 */
static void *ehdr_init(Elf64_Ehdr *ehdr, int mem_chunk_cnt)
{
	memset(ehdr, 0, sizeof(*ehdr));
	memcpy(ehdr->e_ident, ELFMAG, SELFMAG);
	ehdr->e_ident[EI_CLASS] = ELFCLASS64;
	ehdr->e_ident[EI_DATA] = ELFDATA2MSB;
	ehdr->e_ident[EI_VERSION] = EV_CURRENT;
	memset(ehdr->e_ident + EI_PAD, 0, EI_NIDENT - EI_PAD);
	ehdr->e_type = ET_CORE;
	ehdr->e_machine = EM_S390;
	ehdr->e_version = EV_CURRENT;
	ehdr->e_phoff = sizeof(Elf64_Ehdr);
	ehdr->e_ehsize = sizeof(Elf64_Ehdr);
	ehdr->e_phentsize = sizeof(Elf64_Phdr);
	ehdr->e_phnum = mem_chunk_cnt + 1;
	return ehdr + 1;
}

/*
 * Return CPU count for ELF header (new kernel)
 */
static int get_cpu_cnt(void)
{
	int i, cpus = 0;

	for (i = 0; i < dump_save_areas.count; i++) {
		if (dump_save_areas.areas[i]->sa.pref_reg == 0)
			continue;
		cpus++;
	}
	return cpus;
}

/*
 * Return memory chunk count for ELF header (new kernel)
 */
static int get_mem_chunk_cnt(void)
{
	int cnt = 0;
	u64 idx;

	for_each_dump_mem_range(idx, NUMA_NO_NODE, NULL, NULL, NULL)
		cnt++;
	return cnt;
}

/*
 * Initialize ELF loads (new kernel)
 */
static void loads_init(Elf64_Phdr *phdr, u64 loads_offset)
{
	phys_addr_t start, end;
	u64 idx;

	for_each_dump_mem_range(idx, NUMA_NO_NODE, &start, &end, NULL) {
		phdr->p_filesz = end - start;
		phdr->p_type = PT_LOAD;
		phdr->p_offset = start;
		phdr->p_vaddr = start;
		phdr->p_paddr = start;
		phdr->p_memsz = end - start;
		phdr->p_flags = PF_R | PF_W | PF_X;
		phdr->p_align = PAGE_SIZE;
		phdr++;
	}
}

/*
 * Initialize notes (new kernel)
 */
static void *notes_init(Elf64_Phdr *phdr, void *ptr, u64 notes_offset)
{
	struct save_area_ext *sa_ext;
	void *ptr_start = ptr;
	int i;

	ptr = nt_prpsinfo(ptr);

	for (i = 0; i < dump_save_areas.count; i++) {
		sa_ext = dump_save_areas.areas[i];
		if (sa_ext->sa.pref_reg == 0)
			continue;
		ptr = fill_cpu_elf_notes(ptr, &sa_ext->sa, sa_ext->vx_regs);
	}
	ptr = nt_vmcoreinfo(ptr);
	memset(phdr, 0, sizeof(*phdr));
	phdr->p_type = PT_NOTE;
	phdr->p_offset = notes_offset;
	phdr->p_filesz = (unsigned long) PTR_SUB(ptr, ptr_start);
	phdr->p_memsz = phdr->p_filesz;
	return ptr;
}

/*
 * Create ELF core header (new kernel)
 */
int elfcorehdr_alloc(unsigned long long *addr, unsigned long long *size)
{
	Elf64_Phdr *phdr_notes, *phdr_loads;
	int mem_chunk_cnt;
	void *ptr, *hdr;
	u32 alloc_size;
	u64 hdr_off;

	/* If we are not in kdump or zfcpdump mode return */
	if (!OLDMEM_BASE && ipl_info.type != IPL_TYPE_FCP_DUMP)
		return 0;
	/* If elfcorehdr= has been passed via cmdline, we use that one */
	if (elfcorehdr_addr != ELFCORE_ADDR_MAX)
		return 0;
	/* If we cannot get HSA size for zfcpdump return error */
	if (ipl_info.type == IPL_TYPE_FCP_DUMP && !sclp.hsa_size)
		return -ENODEV;

	/* For kdump, exclude previous crashkernel memory */
	if (OLDMEM_BASE) {
		oldmem_region.base = OLDMEM_BASE;
		oldmem_region.size = OLDMEM_SIZE;
		oldmem_type.total_size = OLDMEM_SIZE;
	}

	mem_chunk_cnt = get_mem_chunk_cnt();

	alloc_size = 0x1000 + get_cpu_cnt() * 0x4a0 +
		mem_chunk_cnt * sizeof(Elf64_Phdr);
	hdr = kzalloc_panic(alloc_size);
	/* Init elf header */
	ptr = ehdr_init(hdr, mem_chunk_cnt);
	/* Init program headers */
	phdr_notes = ptr;
	ptr = PTR_ADD(ptr, sizeof(Elf64_Phdr));
	phdr_loads = ptr;
	ptr = PTR_ADD(ptr, sizeof(Elf64_Phdr) * mem_chunk_cnt);
	/* Init notes */
	hdr_off = PTR_DIFF(ptr, hdr);
	ptr = notes_init(phdr_notes, ptr, ((unsigned long) hdr) + hdr_off);
	/* Init loads */
	hdr_off = PTR_DIFF(ptr, hdr);
	loads_init(phdr_loads, hdr_off);
	*addr = (unsigned long long) hdr;
	elfcorehdr_newmem = hdr;
	*size = (unsigned long long) hdr_off;
	BUG_ON(elfcorehdr_size > alloc_size);
	return 0;
}

/*
 * Free ELF core header (new kernel)
 */
void elfcorehdr_free(unsigned long long addr)
{
	if (!elfcorehdr_newmem)
		return;
	kfree((void *)(unsigned long)addr);
}

/*
 * Read from ELF header
 */
ssize_t elfcorehdr_read(char *buf, size_t count, u64 *ppos)
{
	void *src = (void *)(unsigned long)*ppos;

	src = elfcorehdr_newmem ? src : src - OLDMEM_BASE;
	memcpy(buf, src, count);
	*ppos += count;
	return count;
}

/*
 * Read from ELF notes data
 */
ssize_t elfcorehdr_read_notes(char *buf, size_t count, u64 *ppos)
{
	void *src = (void *)(unsigned long)*ppos;
	int rc;

	if (elfcorehdr_newmem) {
		memcpy(buf, src, count);
	} else {
		rc = copy_from_oldmem(buf, src, count);
		if (rc)
			return rc;
	}
	*ppos += count;
	return count;
}
Commit	Line	Data
60a0c68d MH	1	/*
	2	* S390 kdump implementation
	3	*
	4	* Copyright IBM Corp. 2011
	5	* Author(s): Michael Holzheu <holzheu@linux.vnet.ibm.com>
	6	*/
	7
	8	#include <linux/crash_dump.h>
	9	#include <asm/lowcore.h>
	10	#include <linux/kernel.h>
	11	#include <linux/module.h>
	12	#include <linux/gfp.h>
	13	#include <linux/slab.h>
60a0c68d MH	14	#include <linux/bootmem.h>
60a0c68d MH	15	#include <linux/elf.h>
50be6345	16	#include <linux/memblock.h>
4857d4bb	17	#include <asm/os_info.h>
6b563d8c HC	18	#include <asm/elf.h>
6b563d8c HC	19	#include <asm/ipl.h>
6f79d332	20	#include <asm/sclp.h>
60a0c68d MH	21
	22	#define PTR_ADD(x, y) (((char *) (x)) + ((unsigned long) (y)))
	23	#define PTR_SUB(x, y) (((char *) (x)) - ((unsigned long) (y)))
	24	#define PTR_DIFF(x, y) ((unsigned long)(((char *) (x)) - ((unsigned long) (y))))
	25
50be6345 PH	26	static struct memblock_region oldmem_region;
	27
	28	static struct memblock_type oldmem_type = {
	29	.cnt = 1,
	30	.max = 1,
	31	.total_size = 0,
	32	.regions = &oldmem_region,
	33	};
	34
	35	#define for_each_dump_mem_range(i, nid, p_start, p_end, p_nid) \
fc6daaf9 TL	36	for (i = 0, __next_mem_range(&i, nid, MEMBLOCK_NONE, \
fc6daaf9 TL	37	&memblock.physmem, \
50be6345 PH	38	&oldmem_type, p_start, \
	39	p_end, p_nid); \
	40	i != (u64)ULLONG_MAX; \
fc6daaf9	41	__next_mem_range(&i, nid, MEMBLOCK_NONE, &memblock.physmem,\
50be6345 PH	42	&oldmem_type, \
	43	p_start, p_end, p_nid))
	44
58952942 MH	45	struct dump_save_areas dump_save_areas;
58952942 MH	46
191a2fa0 MH	47	/*
	48	* Return physical address for virtual address
	49	*/
	50	static inline void load_real_addr(void addr)
	51	{
	52	unsigned long real_addr;
	53
	54	asm volatile(
	55	" lra %0,0(%1)\n"
	56	" jz 0f\n"
	57	" la %0,0\n"
	58	"0:"
	59	: "=a" (real_addr) : "a" (addr) : "cc");
	60	return (void *)real_addr;
	61	}
	62
	63	/*
4d3b0664	64	* Copy real to virtual or real memory
191a2fa0	65	*/
4d3b0664	66	static int copy_from_realmem(void dest, void src, size_t count)
191a2fa0	67	{
4d3b0664	68	unsigned long size;
4d3b0664 MH	69
	70	if (!count)
	71	return 0;
	72	if (!is_vmalloc_or_module_addr(dest))
	73	return memcpy_real(dest, src, count);
	74	do {
	75	size = min(count, PAGE_SIZE - (__pa(dest) & ~PAGE_MASK));
	76	if (memcpy_real(load_real_addr(dest), src, size))
	77	return -EFAULT;
	78	count -= size;
	79	dest += size;
	80	src += size;
	81	} while (count);
	82	return 0;
191a2fa0 MH	83	}
191a2fa0 MH	84
97b0f6f9 MH	85	/*
	86	* Pointer to ELF header in new kernel
	87	*/
	88	static void *elfcorehdr_newmem;
	89
60a0c68d	90	/*
6f79d332 MH	91	* Copy one page from zfcpdump "oldmem"
6f79d332 MH	92	*
e657d8fe	93	* For pages below HSA size memory from the HSA is copied. Otherwise
6f79d332 MH	94	* real memory copy is used.
	95	*/
	96	static ssize_t copy_oldmem_page_zfcpdump(char *buf, size_t csize,
	97	unsigned long src, int userbuf)
	98	{
	99	int rc;
	100
37c5f6c8	101	if (src < sclp.hsa_size) {
6f79d332 MH	102	rc = memcpy_hsa(buf, src, csize, userbuf);
	103	} else {
	104	if (userbuf)
	105	rc = copy_to_user_real((void __force __user *) buf,
	106	(void *) src, csize);
	107	else
	108	rc = memcpy_real(buf, (void *) src, csize);
	109	}
	110	return rc ? rc : csize;
	111	}
	112
	113	/*
	114	* Copy one page from kdump "oldmem"
60a0c68d MH	115	*
	116	* For the kdump reserved memory this functions performs a swap operation:
	117	* - [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE] is mapped to [0 - OLDMEM_SIZE].
	118	* - [0 - OLDMEM_SIZE] is mapped to [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE]
	119	*/
6f79d332 MH	120	static ssize_t copy_oldmem_page_kdump(char *buf, size_t csize,
	121	unsigned long src, int userbuf)
	122
60a0c68d	123	{
191a2fa0	124	int rc;
60a0c68d	125
60a0c68d MH	126	if (src < OLDMEM_SIZE)
	127	src += OLDMEM_BASE;
	128	else if (src > OLDMEM_BASE &&
	129	src < OLDMEM_BASE + OLDMEM_SIZE)
	130	src -= OLDMEM_BASE;
	131	if (userbuf)
191a2fa0 MH	132	rc = copy_to_user_real((void __force __user *) buf,
191a2fa0 MH	133	(void *) src, csize);
60a0c68d	134	else
4d3b0664	135	rc = copy_from_realmem(buf, (void *) src, csize);
6f79d332 MH	136	return (rc == 0) ? rc : csize;
	137	}
	138
	139	/*
	140	* Copy one page from "oldmem"
	141	*/
	142	ssize_t copy_oldmem_page(unsigned long pfn, char *buf, size_t csize,
	143	unsigned long offset, int userbuf)
	144	{
	145	unsigned long src;
	146
	147	if (!csize)
	148	return 0;
	149	src = (pfn << PAGE_SHIFT) + offset;
	150	if (OLDMEM_BASE)
	151	return copy_oldmem_page_kdump(buf, csize, src, userbuf);
	152	else
	153	return copy_oldmem_page_zfcpdump(buf, csize, src, userbuf);
60a0c68d MH	154	}
60a0c68d MH	155
23df79da	156	/*
6f79d332	157	* Remap "oldmem" for kdump
23df79da JW	158	*
	159	* For the kdump reserved memory this functions performs a swap operation:
	160	* [0 - OLDMEM_SIZE] is mapped to [OLDMEM_BASE - OLDMEM_BASE + OLDMEM_SIZE]
	161	*/
6f79d332 MH	162	static int remap_oldmem_pfn_range_kdump(struct vm_area_struct *vma,
	163	unsigned long from, unsigned long pfn,
	164	unsigned long size, pgprot_t prot)
23df79da JW	165	{
	166	unsigned long size_old;
	167	int rc;
	168
	169	if (pfn < OLDMEM_SIZE >> PAGE_SHIFT) {
	170	size_old = min(size, OLDMEM_SIZE - (pfn << PAGE_SHIFT));
	171	rc = remap_pfn_range(vma, from,
	172	pfn + (OLDMEM_BASE >> PAGE_SHIFT),
	173	size_old, prot);
	174	if (rc \|\| size == size_old)
	175	return rc;
	176	size -= size_old;
	177	from += size_old;
	178	pfn += size_old >> PAGE_SHIFT;
	179	}
	180	return remap_pfn_range(vma, from, pfn, size, prot);
	181	}
	182
6f79d332 MH	183	/*
	184	* Remap "oldmem" for zfcpdump
	185	*
e657d8fe MH	186	* We only map available memory above HSA size. Memory below HSA size
e657d8fe MH	187	* is read on demand using the copy_oldmem_page() function.
6f79d332 MH	188	*/
	189	static int remap_oldmem_pfn_range_zfcpdump(struct vm_area_struct *vma,
	190	unsigned long from,
	191	unsigned long pfn,
	192	unsigned long size, pgprot_t prot)
	193	{
37c5f6c8	194	unsigned long hsa_end = sclp.hsa_size;
6f79d332 MH	195	unsigned long size_hsa;
6f79d332 MH	196
e657d8fe MH	197	if (pfn < hsa_end >> PAGE_SHIFT) {
e657d8fe MH	198	size_hsa = min(size, hsa_end - (pfn << PAGE_SHIFT));
6f79d332 MH	199	if (size == size_hsa)
	200	return 0;
	201	size -= size_hsa;
	202	from += size_hsa;
	203	pfn += size_hsa >> PAGE_SHIFT;
	204	}
	205	return remap_pfn_range(vma, from, pfn, size, prot);
	206	}
	207
	208	/*
	209	* Remap "oldmem" for kdump or zfcpdump
	210	*/
	211	int remap_oldmem_pfn_range(struct vm_area_struct *vma, unsigned long from,
	212	unsigned long pfn, unsigned long size, pgprot_t prot)
	213	{
	214	if (OLDMEM_BASE)
	215	return remap_oldmem_pfn_range_kdump(vma, from, pfn, size, prot);
	216	else
	217	return remap_oldmem_pfn_range_zfcpdump(vma, from, pfn, size,
	218	prot);
	219	}
	220
60a0c68d MH	221	/*
	222	* Copy memory from old kernel
	223	*/
4857d4bb	224	int copy_from_oldmem(void dest, void src, size_t count)
60a0c68d MH	225	{
	226	unsigned long copied = 0;
	227	int rc;
	228
6f79d332 MH	229	if (OLDMEM_BASE) {
	230	if ((unsigned long) src < OLDMEM_SIZE) {
	231	copied = min(count, OLDMEM_SIZE - (unsigned long) src);
4d3b0664	232	rc = copy_from_realmem(dest, src + OLDMEM_BASE, copied);
6f79d332 MH	233	if (rc)
	234	return rc;
	235	}
	236	} else {
37c5f6c8	237	unsigned long hsa_end = sclp.hsa_size;
e657d8fe MH	238	if ((unsigned long) src < hsa_end) {
e657d8fe MH	239	copied = min(count, hsa_end - (unsigned long) src);
6f79d332 MH	240	rc = memcpy_hsa(dest, (unsigned long) src, copied, 0);
	241	if (rc)
	242	return rc;
	243	}
60a0c68d	244	}
4d3b0664	245	return copy_from_realmem(dest + copied, src + copied, count - copied);
60a0c68d MH	246	}
	247
	248	/*
	249	* Alloc memory and panic in case of ENOMEM
	250	*/
	251	static void *kzalloc_panic(int len)
	252	{
	253	void *rc;
	254
	255	rc = kzalloc(len, GFP_KERNEL);
	256	if (!rc)
	257	panic("s390 kdump kzalloc (%d) failed", len);
	258	return rc;
	259	}
	260
60a0c68d MH	261	/*
	262	* Initialize ELF note
	263	*/
	264	static void nt_init(void buf, Elf64_Word type, void *desc, int d_len,
	265	const char *name)
	266	{
	267	Elf64_Nhdr *note;
	268	u64 len;
	269
	270	note = (Elf64_Nhdr *)buf;
	271	note->n_namesz = strlen(name) + 1;
	272	note->n_descsz = d_len;
	273	note->n_type = type;
	274	len = sizeof(Elf64_Nhdr);
	275
	276	memcpy(buf + len, name, note->n_namesz);
	277	len = roundup(len + note->n_namesz, 4);
	278
	279	memcpy(buf + len, desc, note->n_descsz);
	280	len = roundup(len + note->n_descsz, 4);
	281
	282	return PTR_ADD(buf, len);
	283	}
	284
	285	/*
	286	* Initialize prstatus note
	287	*/
	288	static void nt_prstatus(void ptr, struct save_area *sa)
	289	{
	290	struct elf_prstatus nt_prstatus;
	291	static int cpu_nr = 1;
	292
	293	memset(&nt_prstatus, 0, sizeof(nt_prstatus));
	294	memcpy(&nt_prstatus.pr_reg.gprs, sa->gp_regs, sizeof(sa->gp_regs));
	295	memcpy(&nt_prstatus.pr_reg.psw, sa->psw, sizeof(sa->psw));
	296	memcpy(&nt_prstatus.pr_reg.acrs, sa->acc_regs, sizeof(sa->acc_regs));
	297	nt_prstatus.pr_pid = cpu_nr;
	298	cpu_nr++;
	299
	300	return nt_init(ptr, NT_PRSTATUS, &nt_prstatus, sizeof(nt_prstatus),
	301	"CORE");
	302	}
	303
	304	/*
	305	* Initialize fpregset (floating point) note
	306	*/
	307	static void nt_fpregset(void ptr, struct save_area *sa)
	308	{
	309	elf_fpregset_t nt_fpregset;
	310
	311	memset(&nt_fpregset, 0, sizeof(nt_fpregset));
	312	memcpy(&nt_fpregset.fpc, &sa->fp_ctrl_reg, sizeof(sa->fp_ctrl_reg));
	313	memcpy(&nt_fpregset.fprs, &sa->fp_regs, sizeof(sa->fp_regs));
	314
	315	return nt_init(ptr, NT_PRFPREG, &nt_fpregset, sizeof(nt_fpregset),
	316	"CORE");
	317	}
	318
	319	/*
	320	* Initialize timer note
	321	*/
	322	static void nt_s390_timer(void ptr, struct save_area *sa)
	323	{
	324	return nt_init(ptr, NT_S390_TIMER, &sa->timer, sizeof(sa->timer),
325	KEXEC_CORE_NOTE_NAME);
326	}
327
328	/*
329	* Initialize TOD clock comparator note
330	*/
331	static void nt_s390_tod_cmp(void ptr, struct save_area *sa)
332	{
333	return nt_init(ptr, NT_S390_TODCMP, &sa->clk_cmp,
334	sizeof(sa->clk_cmp), KEXEC_CORE_NOTE_NAME);
335	}
336
337	/*
338	* Initialize TOD programmable register note
339	*/
340	static void nt_s390_tod_preg(void ptr, struct save_area *sa)
341	{
342	return nt_init(ptr, NT_S390_TODPREG, &sa->tod_reg,
343	sizeof(sa->tod_reg), KEXEC_CORE_NOTE_NAME);
344	}
345
346	/*
347	* Initialize control register note
348	*/
349	static void nt_s390_ctrs(void ptr, struct save_area *sa)
350	{
351	return nt_init(ptr, NT_S390_CTRS, &sa->ctrl_regs,
352	sizeof(sa->ctrl_regs), KEXEC_CORE_NOTE_NAME);
353	}
354
355	/*
356	* Initialize prefix register note
357	*/
358	static void nt_s390_prefix(void ptr, struct save_area *sa)
359	{
360	return nt_init(ptr, NT_S390_PREFIX, &sa->pref_reg,
361	sizeof(sa->pref_reg), KEXEC_CORE_NOTE_NAME);
362	}
363
a62bc073 MH	364	/*
	365	* Initialize vxrs high note (full 128 bit VX registers 16-31)
	366	*/
	367	static void nt_s390_vx_high(void ptr, __vector128 *vx_regs)
	368	{
	369	return nt_init(ptr, NT_S390_VXRS_HIGH, &vx_regs[16],
	370	16 * sizeof(__vector128), KEXEC_CORE_NOTE_NAME);
	371	}
	372
	373	/*
	374	* Initialize vxrs low note (lower halves of VX registers 0-15)
	375	*/
	376	static void nt_s390_vx_low(void ptr, __vector128 *vx_regs)
	377	{
	378	Elf64_Nhdr *note;
	379	u64 len;
	380	int i;
	381
	382	note = (Elf64_Nhdr *)ptr;
	383	note->n_namesz = strlen(KEXEC_CORE_NOTE_NAME) + 1;
	384	note->n_descsz = 16 * 8;
	385	note->n_type = NT_S390_VXRS_LOW;
	386	len = sizeof(Elf64_Nhdr);
	387
	388	memcpy(ptr + len, KEXEC_CORE_NOTE_NAME, note->n_namesz);
	389	len = roundup(len + note->n_namesz, 4);
	390
	391	ptr += len;
	392	/* Copy lower halves of SIMD registers 0-15 */
	393	for (i = 0; i < 16; i++) {
3c8e5105	394	memcpy(ptr, &vx_regs[i].u[2], 8);
a62bc073 MH	395	ptr += 8;
	396	}
	397	return ptr;
	398	}
	399
60a0c68d MH	400	/*
	401	* Fill ELF notes for one CPU with save area registers
	402	*/
a62bc073	403	void fill_cpu_elf_notes(void ptr, struct save_area sa, __vector128 vx_regs)
60a0c68d MH	404	{
	405	ptr = nt_prstatus(ptr, sa);
	406	ptr = nt_fpregset(ptr, sa);
	407	ptr = nt_s390_timer(ptr, sa);
	408	ptr = nt_s390_tod_cmp(ptr, sa);
	409	ptr = nt_s390_tod_preg(ptr, sa);
	410	ptr = nt_s390_ctrs(ptr, sa);
	411	ptr = nt_s390_prefix(ptr, sa);
a62bc073 MH	412	if (MACHINE_HAS_VX && vx_regs) {
	413	ptr = nt_s390_vx_low(ptr, vx_regs);
	414	ptr = nt_s390_vx_high(ptr, vx_regs);
	415	}
60a0c68d MH	416	return ptr;
	417	}
	418
	419	/*
	420	* Initialize prpsinfo note (new kernel)
	421	*/
	422	static void nt_prpsinfo(void ptr)
	423	{
	424	struct elf_prpsinfo prpsinfo;
	425
	426	memset(&prpsinfo, 0, sizeof(prpsinfo));
	427	prpsinfo.pr_sname = 'R';
	428	strcpy(prpsinfo.pr_fname, "vmlinux");
	429	return nt_init(ptr, NT_PRPSINFO, &prpsinfo, sizeof(prpsinfo),
	430	KEXEC_CORE_NOTE_NAME);
	431	}
	432
	433	/*
4857d4bb	434	* Get vmcoreinfo using lowcore->vmcore_info (new kernel)
60a0c68d	435	*/
4857d4bb	436	static void get_vmcoreinfo_old(unsigned long size)
60a0c68d MH	437	{
	438	char nt_name[11], *vmcoreinfo;
	439	Elf64_Nhdr note;
	440	void *addr;
	441
	442	if (copy_from_oldmem(&addr, &S390_lowcore.vmcore_info, sizeof(addr)))
4857d4bb	443	return NULL;
60a0c68d MH	444	memset(nt_name, 0, sizeof(nt_name));
60a0c68d MH	445	if (copy_from_oldmem(&note, addr, sizeof(note)))
4857d4bb	446	return NULL;
60a0c68d	447	if (copy_from_oldmem(nt_name, addr + sizeof(note), sizeof(nt_name) - 1))
4857d4bb	448	return NULL;
60a0c68d	449	if (strcmp(nt_name, "VMCOREINFO") != 0)
4857d4bb MH	450	return NULL;
4857d4bb MH	451	vmcoreinfo = kzalloc_panic(note.n_descsz);
60a0c68d	452	if (copy_from_oldmem(vmcoreinfo, addr + 24, note.n_descsz))
4857d4bb MH	453	return NULL;
	454	*size = note.n_descsz;
	455	return vmcoreinfo;
	456	}
	457
	458	/*
	459	* Initialize vmcoreinfo note (new kernel)
	460	*/
	461	static void nt_vmcoreinfo(void ptr)
	462	{
	463	unsigned long size;
	464	void *vmcoreinfo;
	465
	466	vmcoreinfo = os_info_old_entry(OS_INFO_VMCOREINFO, &size);
	467	if (!vmcoreinfo)
	468	vmcoreinfo = get_vmcoreinfo_old(&size);
	469	if (!vmcoreinfo)
60a0c68d	470	return ptr;
4857d4bb	471	return nt_init(ptr, 0, vmcoreinfo, size, "VMCOREINFO");
60a0c68d MH	472	}
	473
	474	/*
	475	* Initialize ELF header (new kernel)
	476	*/
	477	static void ehdr_init(Elf64_Ehdr ehdr, int mem_chunk_cnt)
	478	{
	479	memset(ehdr, 0, sizeof(*ehdr));
	480	memcpy(ehdr->e_ident, ELFMAG, SELFMAG);
	481	ehdr->e_ident[EI_CLASS] = ELFCLASS64;
	482	ehdr->e_ident[EI_DATA] = ELFDATA2MSB;
	483	ehdr->e_ident[EI_VERSION] = EV_CURRENT;
	484	memset(ehdr->e_ident + EI_PAD, 0, EI_NIDENT - EI_PAD);
	485	ehdr->e_type = ET_CORE;
	486	ehdr->e_machine = EM_S390;
	487	ehdr->e_version = EV_CURRENT;
	488	ehdr->e_phoff = sizeof(Elf64_Ehdr);
	489	ehdr->e_ehsize = sizeof(Elf64_Ehdr);
	490	ehdr->e_phentsize = sizeof(Elf64_Phdr);
	491	ehdr->e_phnum = mem_chunk_cnt + 1;
	492	return ehdr + 1;
	493	}
	494
	495	/*
	496	* Return CPU count for ELF header (new kernel)
	497	*/
	498	static int get_cpu_cnt(void)
	499	{
	500	int i, cpus = 0;
	501
58952942	502	for (i = 0; i < dump_save_areas.count; i++) {
a62bc073	503	if (dump_save_areas.areas[i]->sa.pref_reg == 0)
60a0c68d MH	504	continue;
	505	cpus++;
	506	}
	507	return cpus;
	508	}
	509
	510	/*
	511	* Return memory chunk count for ELF header (new kernel)
	512	*/
	513	static int get_mem_chunk_cnt(void)
	514	{
50be6345 PH	515	int cnt = 0;
	516	u64 idx;
	517
	518	for_each_dump_mem_range(idx, NUMA_NO_NODE, NULL, NULL, NULL)
60a0c68d	519	cnt++;
60a0c68d MH	520	return cnt;
	521	}
	522
60a0c68d MH	523	/*
	524	* Initialize ELF loads (new kernel)
	525	*/
50be6345	526	static void loads_init(Elf64_Phdr *phdr, u64 loads_offset)
60a0c68d	527	{
50be6345 PH	528	phys_addr_t start, end;
50be6345 PH	529	u64 idx;
60a0c68d	530
50be6345 PH	531	for_each_dump_mem_range(idx, NUMA_NO_NODE, &start, &end, NULL) {
50be6345 PH	532	phdr->p_filesz = end - start;
60a0c68d	533	phdr->p_type = PT_LOAD;
50be6345 PH	534	phdr->p_offset = start;
	535	phdr->p_vaddr = start;
	536	phdr->p_paddr = start;
	537	phdr->p_memsz = end - start;
60a0c68d MH	538	phdr->p_flags = PF_R \| PF_W \| PF_X;
	539	phdr->p_align = PAGE_SIZE;
	540	phdr++;
	541	}
60a0c68d MH	542	}
	543
	544	/*
	545	* Initialize notes (new kernel)
	546	*/
	547	static void notes_init(Elf64_Phdr phdr, void *ptr, u64 notes_offset)
	548	{
a62bc073	549	struct save_area_ext *sa_ext;
60a0c68d MH	550	void *ptr_start = ptr;
	551	int i;
	552
	553	ptr = nt_prpsinfo(ptr);
	554
58952942	555	for (i = 0; i < dump_save_areas.count; i++) {
a62bc073 MH	556	sa_ext = dump_save_areas.areas[i];
a62bc073 MH	557	if (sa_ext->sa.pref_reg == 0)
60a0c68d	558	continue;
a62bc073	559	ptr = fill_cpu_elf_notes(ptr, &sa_ext->sa, sa_ext->vx_regs);
60a0c68d MH	560	}
	561	ptr = nt_vmcoreinfo(ptr);
	562	memset(phdr, 0, sizeof(*phdr));
	563	phdr->p_type = PT_NOTE;
97b0f6f9	564	phdr->p_offset = notes_offset;
60a0c68d MH	565	phdr->p_filesz = (unsigned long) PTR_SUB(ptr, ptr_start);
	566	phdr->p_memsz = phdr->p_filesz;
	567	return ptr;
	568	}
	569
	570	/*
	571	* Create ELF core header (new kernel)
	572	*/
97b0f6f9	573	int elfcorehdr_alloc(unsigned long long addr, unsigned long long size)
60a0c68d MH	574	{
	575	Elf64_Phdr phdr_notes, phdr_loads;
	576	int mem_chunk_cnt;
	577	void ptr, hdr;
	578	u32 alloc_size;
	579	u64 hdr_off;
	580
6f79d332 MH	581	/* If we are not in kdump or zfcpdump mode return */
6f79d332 MH	582	if (!OLDMEM_BASE && ipl_info.type != IPL_TYPE_FCP_DUMP)
97b0f6f9 MH	583	return 0;
	584	/* If elfcorehdr= has been passed via cmdline, we use that one */
	585	if (elfcorehdr_addr != ELFCORE_ADDR_MAX)
	586	return 0;
e657d8fe	587	/* If we cannot get HSA size for zfcpdump return error */
37c5f6c8	588	if (ipl_info.type == IPL_TYPE_FCP_DUMP && !sclp.hsa_size)
e657d8fe	589	return -ENODEV;
50be6345 PH	590
	591	/* For kdump, exclude previous crashkernel memory */
	592	if (OLDMEM_BASE) {
	593	oldmem_region.base = OLDMEM_BASE;
	594	oldmem_region.size = OLDMEM_SIZE;
	595	oldmem_type.total_size = OLDMEM_SIZE;
	596	}
	597
60a0c68d MH	598	mem_chunk_cnt = get_mem_chunk_cnt();
60a0c68d MH	599
a62bc073	600	alloc_size = 0x1000 + get_cpu_cnt() * 0x4a0 +
60a0c68d MH	601	mem_chunk_cnt * sizeof(Elf64_Phdr);
	602	hdr = kzalloc_panic(alloc_size);
	603	/* Init elf header */
	604	ptr = ehdr_init(hdr, mem_chunk_cnt);
	605	/* Init program headers */
	606	phdr_notes = ptr;
	607	ptr = PTR_ADD(ptr, sizeof(Elf64_Phdr));
	608	phdr_loads = ptr;
	609	ptr = PTR_ADD(ptr, sizeof(Elf64_Phdr) * mem_chunk_cnt);
	610	/* Init notes */
	611	hdr_off = PTR_DIFF(ptr, hdr);
	612	ptr = notes_init(phdr_notes, ptr, ((unsigned long) hdr) + hdr_off);
	613	/* Init loads */
	614	hdr_off = PTR_DIFF(ptr, hdr);
97b0f6f9 MH	615	loads_init(phdr_loads, hdr_off);
	616	*addr = (unsigned long long) hdr;
	617	elfcorehdr_newmem = hdr;
	618	*size = (unsigned long long) hdr_off;
	619	BUG_ON(elfcorehdr_size > alloc_size);
	620	return 0;
60a0c68d MH	621	}
	622
	623	/*
97b0f6f9	624	* Free ELF core header (new kernel)
60a0c68d	625	*/
97b0f6f9	626	void elfcorehdr_free(unsigned long long addr)
60a0c68d	627	{
97b0f6f9 MH	628	if (!elfcorehdr_newmem)
	629	return;
	630	kfree((void *)(unsigned long)addr);
	631	}
	632
	633	/*
	634	* Read from ELF header
	635	*/
	636	ssize_t elfcorehdr_read(char buf, size_t count, u64 ppos)
	637	{
	638	void src = (void )(unsigned long)*ppos;
	639
	640	src = elfcorehdr_newmem ? src : src - OLDMEM_BASE;
	641	memcpy(buf, src, count);
	642	*ppos += count;
	643	return count;
60a0c68d MH	644	}
60a0c68d MH	645
97b0f6f9 MH	646	/*
	647	* Read from ELF notes data
	648	*/
	649	ssize_t elfcorehdr_read_notes(char buf, size_t count, u64 ppos)
	650	{
	651	void src = (void )(unsigned long)*ppos;
	652	int rc;
	653
	654	if (elfcorehdr_newmem) {
	655	memcpy(buf, src, count);
	656	} else {
	657	rc = copy_from_oldmem(buf, src, count);
	658	if (rc)
	659	return rc;
	660	}
	661	*ppos += count;
	662	return count;
	663	}