/* $FreeBSD$ */
#ifndef __LP64__
#error "this file must be compiled for LP64."
#endif

#define __ELF_WORD_SIZE 32
#define _MACHINE_ELF_WANT_32BIT
#define	_WANT_LWPINFO32

#include <sys/procfs.h>

#define	ELFCORE_COMPAT_32	1
#include "elfcore.c"

static void
elf_convert_gregset(elfcore_gregset_t *rd, struct reg *rs)
{
#ifdef __amd64__
	rd->r_gs = rs->r_gs;
	rd->r_fs = rs->r_fs;
	rd->r_es = rs->r_es;
	rd->r_ds = rs->r_ds;
	rd->r_edi = rs->r_rdi;
	rd->r_esi = rs->r_rsi;
	rd->r_ebp = rs->r_rbp;
	rd->r_ebx = rs->r_rbx;
	rd->r_edx = rs->r_rdx;
	rd->r_ecx = rs->r_rcx;
	rd->r_eax = rs->r_rax;
	rd->r_eip = rs->r_rip;
	rd->r_cs = rs->r_cs;
	rd->r_eflags = rs->r_rflags;
	rd->r_esp = rs->r_rsp;
	rd->r_ss = rs->r_ss;
#elif defined(__aarch64__)
	int i;

	for (i = 0; i < 13; i++)
		rd->r[i] = rs->x[i];
	rd->r_sp = rs->x[13];
	rd->r_lr = rs->x[14];
	rd->r_pc = rs->elr;
	rd->r_cpsr = rs->spsr;
#elif defined(__powerpc64__)
	int i;

	for (i = 0; i < 32; i++)
		rd->fixreg[i] = rs->fixreg[i];
	rd->lr = rs->lr;
	rd->cr = rs->cr;
	rd->xer = rs->xer;
	rd->ctr = rs->ctr;
	rd->pc = rs->pc;
#else
#error Unsupported architecture
#endif
}

static void
elf_convert_fpregset(elfcore_fpregset_t *rd, struct fpreg *rs)
{
#ifdef __amd64__
	/* XXX this is wrong... */
	memcpy(rd, rs, sizeof(*rd));
#elif defined(__aarch64__)
	/* ARM64TODO */
#elif defined(__powerpc64__)
	memcpy(rd, rs, sizeof(*rd));
#else
#error Unsupported architecture
#endif
}

static void
elf_convert_siginfo(struct siginfo32 *sid, siginfo_t *sis)
{

	bzero(sid, sizeof(*sid));
	sid->si_signo = sis->si_signo;
	sid->si_errno = sis->si_errno;
	sid->si_code = sis->si_code;
	sid->si_pid = sis->si_pid;
	sid->si_uid = sis->si_uid;
	sid->si_status = sis->si_status;
	sid->si_addr = (uintptr_t)sis->si_addr;
#if _BYTE_ORDER == _BIG_ENDIAN
	if (sis->si_value.sival_int == 0)
		sid->si_value.sival_ptr = (uintptr_t)sis->si_value.sival_ptr;
	else
#endif
		sid->si_value.sival_int = sis->si_value.sival_int;
	sid->si_timerid = sis->si_timerid;
	sid->si_overrun = sis->si_overrun;
}

static void
elf_convert_lwpinfo(struct ptrace_lwpinfo32 *pld, struct ptrace_lwpinfo *pls)
{

	pld->pl_lwpid = pls->pl_lwpid;
	pld->pl_event = pls->pl_event;
	pld->pl_flags = pls->pl_flags;
	pld->pl_sigmask = pls->pl_sigmask;
	pld->pl_siglist = pls->pl_siglist;
	elf_convert_siginfo(&pld->pl_siginfo, &pls->pl_siginfo);
	memcpy(pld->pl_tdname, pls->pl_tdname, sizeof(pld->pl_tdname));
	pld->pl_child_pid = pls->pl_child_pid;
	pld->pl_syscall_code = pls->pl_syscall_code;
	pld->pl_syscall_narg = pls->pl_syscall_narg;
}