215 lines
5.9 KiB
C
215 lines
5.9 KiB
C
/*
|
|
* Support for 32-bit Linux for S390 ELF binaries.
|
|
*
|
|
* Copyright (C) 2000 IBM Deutschland Entwicklung GmbH, IBM Corporation
|
|
* Author(s): Gerhard Tonn (ton@de.ibm.com)
|
|
*
|
|
* Heavily inspired by the 32-bit Sparc compat code which is
|
|
* Copyright (C) 1995, 1996, 1997, 1998 David S. Miller (davem@redhat.com)
|
|
* Copyright (C) 1995, 1996, 1997, 1998 Jakub Jelinek (jj@ultra.linux.cz)
|
|
*/
|
|
|
|
#define __ASMS390_ELF_H
|
|
|
|
#include <linux/time.h>
|
|
|
|
/*
|
|
* These are used to set parameters in the core dumps.
|
|
*/
|
|
#define ELF_CLASS ELFCLASS32
|
|
#define ELF_DATA ELFDATA2MSB
|
|
#define ELF_ARCH EM_S390
|
|
|
|
/*
|
|
* This is used to ensure we don't load something for the wrong architecture.
|
|
*/
|
|
#define elf_check_arch(x) \
|
|
(((x)->e_machine == EM_S390 || (x)->e_machine == EM_S390_OLD) \
|
|
&& (x)->e_ident[EI_CLASS] == ELF_CLASS)
|
|
|
|
/* ELF register definitions */
|
|
#define NUM_GPRS 16
|
|
#define NUM_FPRS 16
|
|
#define NUM_ACRS 16
|
|
|
|
/* For SVR4/S390 the function pointer to be registered with `atexit` is
|
|
passed in R14. */
|
|
#define ELF_PLAT_INIT(_r, load_addr) \
|
|
do { \
|
|
_r->gprs[14] = 0; \
|
|
} while(0)
|
|
|
|
#define USE_ELF_CORE_DUMP
|
|
#define ELF_EXEC_PAGESIZE 4096
|
|
|
|
/* This is the location that an ET_DYN program is loaded if exec'ed. Typical
|
|
use of this is to invoke "./ld.so someprog" to test out a new version of
|
|
the loader. We need to make sure that it is out of the way of the program
|
|
that it will "exec", and that there is sufficient room for the brk. */
|
|
|
|
#define ELF_ET_DYN_BASE (TASK_SIZE / 3 * 2)
|
|
|
|
/* Wow, the "main" arch needs arch dependent functions too.. :) */
|
|
|
|
/* regs is struct pt_regs, pr_reg is elf_gregset_t (which is
|
|
now struct_user_regs, they are different) */
|
|
|
|
#define ELF_CORE_COPY_REGS(pr_reg, regs) dump_regs32(regs, &pr_reg);
|
|
|
|
#define ELF_CORE_COPY_TASK_REGS(tsk, regs) dump_task_regs32(tsk, regs)
|
|
|
|
#define ELF_CORE_COPY_FPREGS(tsk, fpregs) dump_task_fpu(tsk, fpregs)
|
|
|
|
/* This yields a mask that user programs can use to figure out what
|
|
instruction set this CPU supports. */
|
|
|
|
#define ELF_HWCAP (0)
|
|
|
|
/* This yields a string that ld.so will use to load implementation
|
|
specific libraries for optimization. This is more specific in
|
|
intent than poking at uname or /proc/cpuinfo.
|
|
|
|
For the moment, we have only optimizations for the Intel generations,
|
|
but that could change... */
|
|
|
|
#define ELF_PLATFORM (NULL)
|
|
|
|
#define SET_PERSONALITY(ex, ibcs2) \
|
|
do { \
|
|
if (ibcs2) \
|
|
set_personality(PER_SVR4); \
|
|
else if (current->personality != PER_LINUX32) \
|
|
set_personality(PER_LINUX); \
|
|
set_thread_flag(TIF_31BIT); \
|
|
} while (0)
|
|
|
|
#include "compat_linux.h"
|
|
|
|
typedef _s390_fp_regs32 elf_fpregset_t;
|
|
|
|
typedef struct
|
|
{
|
|
|
|
_psw_t32 psw;
|
|
__u32 gprs[__NUM_GPRS];
|
|
__u32 acrs[__NUM_ACRS];
|
|
__u32 orig_gpr2;
|
|
} s390_regs32;
|
|
typedef s390_regs32 elf_gregset_t;
|
|
|
|
static inline int dump_regs32(struct pt_regs *ptregs, elf_gregset_t *regs)
|
|
{
|
|
int i;
|
|
|
|
memcpy(®s->psw.mask, &ptregs->psw.mask, 4);
|
|
memcpy(®s->psw.addr, (char *)&ptregs->psw.addr + 4, 4);
|
|
for (i = 0; i < NUM_GPRS; i++)
|
|
regs->gprs[i] = ptregs->gprs[i];
|
|
save_access_regs(regs->acrs);
|
|
regs->orig_gpr2 = ptregs->orig_gpr2;
|
|
return 1;
|
|
}
|
|
|
|
static inline int dump_task_regs32(struct task_struct *tsk, elf_gregset_t *regs)
|
|
{
|
|
struct pt_regs *ptregs = task_pt_regs(tsk);
|
|
int i;
|
|
|
|
memcpy(®s->psw.mask, &ptregs->psw.mask, 4);
|
|
memcpy(®s->psw.addr, (char *)&ptregs->psw.addr + 4, 4);
|
|
for (i = 0; i < NUM_GPRS; i++)
|
|
regs->gprs[i] = ptregs->gprs[i];
|
|
memcpy(regs->acrs, tsk->thread.acrs, sizeof(regs->acrs));
|
|
regs->orig_gpr2 = ptregs->orig_gpr2;
|
|
return 1;
|
|
}
|
|
|
|
static inline int dump_task_fpu(struct task_struct *tsk, elf_fpregset_t *fpregs)
|
|
{
|
|
if (tsk == current)
|
|
save_fp_regs((s390_fp_regs *) fpregs);
|
|
else
|
|
memcpy(fpregs, &tsk->thread.fp_regs, sizeof(elf_fpregset_t));
|
|
return 1;
|
|
}
|
|
|
|
#include <asm/processor.h>
|
|
#include <asm/pgalloc.h>
|
|
#include <linux/module.h>
|
|
#include <linux/elfcore.h>
|
|
#include <linux/binfmts.h>
|
|
#include <linux/compat.h>
|
|
|
|
#define elf_prstatus elf_prstatus32
|
|
struct elf_prstatus32
|
|
{
|
|
struct elf_siginfo pr_info; /* Info associated with signal */
|
|
short pr_cursig; /* Current signal */
|
|
u32 pr_sigpend; /* Set of pending signals */
|
|
u32 pr_sighold; /* Set of held signals */
|
|
pid_t pr_pid;
|
|
pid_t pr_ppid;
|
|
pid_t pr_pgrp;
|
|
pid_t pr_sid;
|
|
struct compat_timeval pr_utime; /* User time */
|
|
struct compat_timeval pr_stime; /* System time */
|
|
struct compat_timeval pr_cutime; /* Cumulative user time */
|
|
struct compat_timeval pr_cstime; /* Cumulative system time */
|
|
elf_gregset_t pr_reg; /* GP registers */
|
|
int pr_fpvalid; /* True if math co-processor being used. */
|
|
};
|
|
|
|
#define elf_prpsinfo elf_prpsinfo32
|
|
struct elf_prpsinfo32
|
|
{
|
|
char pr_state; /* numeric process state */
|
|
char pr_sname; /* char for pr_state */
|
|
char pr_zomb; /* zombie */
|
|
char pr_nice; /* nice val */
|
|
u32 pr_flag; /* flags */
|
|
u16 pr_uid;
|
|
u16 pr_gid;
|
|
pid_t pr_pid, pr_ppid, pr_pgrp, pr_sid;
|
|
/* Lots missing */
|
|
char pr_fname[16]; /* filename of executable */
|
|
char pr_psargs[ELF_PRARGSZ]; /* initial part of arg list */
|
|
};
|
|
|
|
#include <linux/highuid.h>
|
|
|
|
/*
|
|
#define init_elf_binfmt init_elf32_binfmt
|
|
*/
|
|
|
|
#undef start_thread
|
|
#define start_thread start_thread31
|
|
|
|
static inline void start_thread31(struct pt_regs *regs, unsigned long new_psw,
|
|
unsigned long new_stackp)
|
|
{
|
|
set_fs(USER_DS);
|
|
regs->psw.mask = psw_user32_bits;
|
|
regs->psw.addr = new_psw;
|
|
regs->gprs[15] = new_stackp;
|
|
crst_table_downgrade(current->mm, 1UL << 31);
|
|
}
|
|
|
|
MODULE_DESCRIPTION("Binary format loader for compatibility with 32bit Linux for S390 binaries,"
|
|
" Copyright 2000 IBM Corporation");
|
|
MODULE_AUTHOR("Gerhard Tonn <ton@de.ibm.com>");
|
|
|
|
#undef MODULE_DESCRIPTION
|
|
#undef MODULE_AUTHOR
|
|
|
|
#undef cputime_to_timeval
|
|
#define cputime_to_timeval cputime_to_compat_timeval
|
|
static inline void
|
|
cputime_to_compat_timeval(const cputime_t cputime, struct compat_timeval *value)
|
|
{
|
|
value->tv_usec = cputime % 1000000;
|
|
value->tv_sec = cputime / 1000000;
|
|
}
|
|
|
|
#include "../../../fs/binfmt_elf.c"
|
|
|