
/*
 *  include/asm-s390/ptrace.h
 *
 *  S390 version
 *    Copyright (C) 1999 IBM Deutschland Entwicklung GmbH, IBM Corporation
 *    Author(s): Denis Joseph Barrow (djbarrow@de.ibm.com,barrow_dj@yahoo.com)
 */

#ifndef _S390_PTRACE_H
#define _S390_PTRACE_H
#include <asm/s390-regs-common.h>
#include <asm/current.h>
#include <linux/types.h>
#include <asm/setup.h>
#include <linux/stddef.h>


#define S390_REGS   \
S390_REGS_COMMON    \
__u32 orig_gpr2;

typedef struct
{
	S390_REGS
} s390_regs;

struct pt_regs 
{
	S390_REGS
	__u32 trap;
};

#if CONFIG_REMOTE_DEBUG
typedef struct
{
	S390_REGS
	__u32 trap;
	__u32 crs[16];
	s390_fp_regs fp_regs;
} gdb_pt_regs;
#endif


typedef struct
{
			__u32   cr[3];
} per_cr_words  __attribute__((packed));

#define PER_EM_MASK 0xE8000000
typedef	struct
{
	unsigned    em_branching:1;
	unsigned    em_instruction_fetch:1;
	/* Switching on storage alteration automatically fixes
	   the storage alteration event bit in the users std. */
	unsigned    em_storage_alteration:1;
	unsigned    em_gpr_alt_unused:1;
	unsigned    em_store_real_address:1;
	unsigned    :3;
	unsigned    branch_addr_ctl:1;
	unsigned    :1;
	unsigned    storage_alt_space_ctl:1;
	unsigned    :5;
	unsigned    :16;
	__u32   starting_addr;
	__u32   ending_addr;
} per_cr_bits  __attribute__((packed));

typedef struct
{
	__u16          perc_atmid;          /* 0x096 */
	__u32          address;             /* 0x098 */
	__u8           access_id;           /* 0x0a1 */
} per_lowcore_words  __attribute__((packed));

typedef struct
{
	unsigned       perc_branching:1;               /* 0x096 */
	unsigned       perc_instruction_fetch:1;
	unsigned       perc_storage_alteration:1;
	unsigned       perc_gpr_alt_unused:1;
	unsigned       perc_store_real_address:1;
	unsigned       :3;
	unsigned       :1;
	unsigned       atmid:5;
	unsigned       si:2;
	__u32          address;              /* 0x098 */
	unsigned       :4;                   /* 0x0a1 */
	unsigned       access_id:4;           
} per_lowcore_bits __attribute__((packed));

typedef struct
{
	union
	{
		per_cr_words   words;
		per_cr_bits    bits;
	} control_regs  __attribute__((packed));
	/* Use these flags instead of setting em_instruction_fetch */
	/* directly they are used so that single stepping can be */
	/* switched on & off while not affecting other tracing */
	unsigned  single_step:1;
	unsigned  instruction_fetch:1;
	unsigned  :30;
	/* These addresses are copied into cr10 & cr11 if single stepping
	   is switched off */
	__u32     starting_addr;
	__u32     ending_addr;
	union
	{
		per_lowcore_words words;
		per_lowcore_bits  bits;
	} lowcore; 
} per_struct __attribute__((packed));



/* this struct defines the way the registers are stored on the
   stack during a system call. If you change the pt_regs structure,
   you'll need to change user.h too. 

   N.B. if you modify the pt_regs struct the strace command also has to be
   modified & recompiled  ( just wait till we have gdb going ).

*/

struct user_regs_struct
{
	S390_REGS
	s390_fp_regs fp_regs;
/* These per registers are in here so that gdb can modify them itself
 * as there is no "official" ptrace interface for hardware watchpoints.
 * this is the way intel does it
 */
	per_struct per_info;
	addr_t  ieee_instruction_pointer; 
	/* Used to give failing instruction back to user for ieee exceptions */
};

typedef struct user_regs_struct user_regs_struct;

typedef struct pt_regs pt_regs;

#ifdef __KERNEL__
#define user_mode(regs) ((regs)->psw.mask & PSW_PROBLEM_STATE)
#define instruction_pointer(regs) ((regs)->psw.addr)
extern void show_regs(struct pt_regs * regs);
extern char *task_show_regs(struct task_struct *task, char *buffer);
#endif





#define FIX_PSW(addr) ((unsigned long)(addr)|0x80000000UL)

#define MULT_PROCPTR_TYPES    ((CONFIG_BINFMT_ELF)&&(CONFIG_BINFMT_TOC))

typedef struct
{
  long addr;
  long toc;
} routine_descriptor;
extern void fix_routine_descriptor_regs(routine_descriptor *rdes,pt_regs *regs);
extern __inline__ void 
fix_routine_descriptor_regs(routine_descriptor *rdes,pt_regs *regs)
{
  regs->psw.addr=FIX_PSW(rdes->addr);
  regs->gprs[12]=rdes->toc;
}

/*
 * Compiler optimisation should save this stuff from being non optimal
 * & remove uneccessary code ( isnt gcc great DJB. )
 */

/*I'm just using this an indicator of what binformat we are using
 * (DJB) N.B. this needs to stay a macro unfortunately as I am otherwise
 * dereferencing incomplete pointer types in with load_toc_binary
 */
#if MULT_PROCPTR_TYPES
#define uses_routine_descriptors() \
(current->binfmt->load_binary==load_toc_binary)
#else
#if CONFIG_BINFMT_TOC
#define uses_routine_descriptors() 1
#else
#define uses_routine_descriptors() 0
#endif
#endif

#define pt_off(ptreg)   offsetof(user_regs_struct,ptreg)
enum
{
	PT_PSWMASK=pt_off(psw.mask),
	PT_PSWADDR=pt_off(psw.addr),
	PT_GPR0=pt_off(gprs[0]),
	PT_GPR1=pt_off(gprs[1]),
	PT_GPR2=pt_off(gprs[2]),
	PT_GPR3=pt_off(gprs[3]),
	PT_GPR4=pt_off(gprs[4]),
	PT_GPR5=pt_off(gprs[5]),
	PT_GPR6=pt_off(gprs[6]),
	PT_GPR7=pt_off(gprs[7]),
	PT_GPR8=pt_off(gprs[8]),
	PT_GPR9=pt_off(gprs[9]),
	PT_GPR10=pt_off(gprs[10]),
	PT_GPR11=pt_off(gprs[11]),
	PT_GPR12=pt_off(gprs[12]),
	PT_GPR13=pt_off(gprs[13]),
	PT_GPR14=pt_off(gprs[14]),
	PT_GPR15=pt_off(gprs[15]),
        PT_ACR0=pt_off(acrs[0]),
        PT_ACR1=pt_off(acrs[1]),
        PT_ACR2=pt_off(acrs[2]),
        PT_ACR3=pt_off(acrs[3]),
        PT_ACR4=pt_off(acrs[4]),
        PT_ACR5=pt_off(acrs[5]),
        PT_ACR6=pt_off(acrs[6]),
        PT_ACR7=pt_off(acrs[7]),
        PT_ACR8=pt_off(acrs[8]),
        PT_ACR9=pt_off(acrs[9]),
        PT_ACR10=pt_off(acrs[10]),
        PT_ACR11=pt_off(acrs[11]),
        PT_ACR12=pt_off(acrs[12]),
        PT_ACR13=pt_off(acrs[13]),
        PT_ACR14=pt_off(acrs[14]),
        PT_ACR15=pt_off(acrs[15]),
	PT_ORIGGPR2=pt_off(orig_gpr2),
	PT_FPC=pt_off(fp_regs.fpc),
/*
 *      A nasty fact of life that the ptrace api
 *      only supports passing of longs.
 */
	PT_FPR0_HI=pt_off(fp_regs.fprs[0].fp.hi),
	PT_FPR0_LO=pt_off(fp_regs.fprs[0].fp.lo),
	PT_FPR1_HI=pt_off(fp_regs.fprs[1].fp.hi),
	PT_FPR1_LO=pt_off(fp_regs.fprs[1].fp.lo),
	PT_FPR2_HI=pt_off(fp_regs.fprs[2].fp.hi),
	PT_FPR2_LO=pt_off(fp_regs.fprs[2].fp.lo),
	PT_FPR3_HI=pt_off(fp_regs.fprs[3].fp.hi),
	PT_FPR3_LO=pt_off(fp_regs.fprs[3].fp.lo),
	PT_FPR4_HI=pt_off(fp_regs.fprs[4].fp.hi),
	PT_FPR4_LO=pt_off(fp_regs.fprs[4].fp.lo),
	PT_FPR5_HI=pt_off(fp_regs.fprs[5].fp.hi),
	PT_FPR5_LO=pt_off(fp_regs.fprs[5].fp.lo),
	PT_FPR6_HI=pt_off(fp_regs.fprs[6].fp.hi),
	PT_FPR6_LO=pt_off(fp_regs.fprs[6].fp.lo),
	PT_FPR7_HI=pt_off(fp_regs.fprs[7].fp.hi),
	PT_FPR7_LO=pt_off(fp_regs.fprs[7].fp.lo),
	PT_FPR8_HI=pt_off(fp_regs.fprs[8].fp.hi),
	PT_FPR8_LO=pt_off(fp_regs.fprs[8].fp.lo),
	PT_FPR9_HI=pt_off(fp_regs.fprs[9].fp.hi),
	PT_FPR9_LO=pt_off(fp_regs.fprs[9].fp.lo),
	PT_FPR10_HI=pt_off(fp_regs.fprs[10].fp.hi),
	PT_FPR10_LO=pt_off(fp_regs.fprs[10].fp.lo),
	PT_FPR11_HI=pt_off(fp_regs.fprs[11].fp.hi),
	PT_FPR11_LO=pt_off(fp_regs.fprs[11].fp.lo),
	PT_FPR12_HI=pt_off(fp_regs.fprs[12].fp.hi),
	PT_FPR12_LO=pt_off(fp_regs.fprs[12].fp.lo),
	PT_FPR13_HI=pt_off(fp_regs.fprs[13].fp.hi),
	PT_FPR13_LO=pt_off(fp_regs.fprs[13].fp.lo),
	PT_FPR14_HI=pt_off(fp_regs.fprs[14].fp.hi),
	PT_FPR14_LO=pt_off(fp_regs.fprs[14].fp.lo),
	PT_FPR15_HI=pt_off(fp_regs.fprs[15].fp.hi),
	PT_FPR15_LO=pt_off(fp_regs.fprs[15].fp.lo),
	PT_CR_9=pt_off(per_info.control_regs.words.cr[0]),
	PT_CR_10=pt_off(per_info.control_regs.words.cr[1]),
	PT_CR_11=pt_off(per_info.control_regs.words.cr[2]),
	PT_IEEE_IP=pt_off(ieee_instruction_pointer),
	PT_LASTOFF=PT_IEEE_IP,
	PT_ENDREGS=sizeof(user_regs_struct)-1
};

#define PTRACE_AREA \
__u32 len;          \
addr_t  kernel_addr; \
addr_t  process_addr;

typedef struct
{
	 PTRACE_AREA
} ptrace_area;

/*
  390 specific non posix ptrace requests
  I chose unusual values so they are unlikely to clash with future ptrace definitions.
 */
#define PTRACE_PEEKUSR_AREA           0x5000
#define PTRACE_POKEUSR_AREA           0x5001
#define PTRACE_PEEKTEXT_AREA	      0x5002
#define PTRACE_PEEKDATA_AREA	      0x5003
#define PTRACE_POKETEXT_AREA	      0x5004
#define PTRACE_POKEDATA_AREA 	      0x5005
/* PT_PROT definition is loosely based on hppa bsd definition in gdb/hppab-nat.c */
#define PTRACE_PROT                       21

typedef enum
{
	ptprot_set_access_watchpoint,
	ptprot_set_write_watchpoint,
	ptprot_disable_watchpoint
} ptprot_flags;

typedef struct
{
	addr_t           lowaddr;
	addr_t           hiaddr;
	ptprot_flags     prot;
} ptprot_area;                     
#endif














