/*
   * include/asm-parisc/processor.h
   *
   * Copyright (C) 1994 Linus Torvalds
   * Copyright (C) 2001 Grant Grundler
   */
  
  #ifndef __ASM_PARISC_PROCESSOR_H
  #define __ASM_PARISC_PROCESSOR_H
  
  #ifndef __ASSEMBLY__
  #include <linux/config.h>
  #include <linux/threads.h>

  #include <linux/spinlock_types.h>

  
  #include <asm/hardware.h>
  #include <asm/page.h>
  #include <asm/pdc.h>
  #include <asm/ptrace.h>
  #include <asm/types.h>
  #include <asm/system.h>
  #endif /* __ASSEMBLY__ */
  
  #define KERNEL_STACK_SIZE 	(4*PAGE_SIZE)
  
  /*
   * Default implementation of macro that returns current
   * instruction pointer ("program counter").
   */
  
  /* We cannot use MFIA as it was added for PA2.0 - prumpf
  
     At one point there were no "0f/0b" type local symbols in gas for
     PA-RISC.  This is no longer true, but this still seems like the
     nicest way to implement this. */
  
  #define current_text_addr() ({ void *pc; __asm__("
  \tblr 0,%0
  \tnop":"=r" (pc)); pc; })
  
  #define TASK_SIZE               (current->thread.task_size)
  #define TASK_UNMAPPED_BASE      (current->thread.map_base)
  
  #define DEFAULT_TASK_SIZE32	(0xFFF00000UL)
  #define DEFAULT_MAP_BASE32	(0x40000000UL)
  
  #ifdef __LP64__
  #define DEFAULT_TASK_SIZE       (MAX_ADDRESS-0xf000000)
  #define DEFAULT_MAP_BASE        (0x200000000UL)
  #else
  #define DEFAULT_TASK_SIZE	DEFAULT_TASK_SIZE32
  #define DEFAULT_MAP_BASE	DEFAULT_MAP_BASE32
  #endif
  
  #ifndef __ASSEMBLY__
  
  /*
   * Data detected about CPUs at boot time which is the same for all CPU's.
   * HP boxes are SMP - ie identical processors.
   *
   * FIXME: some CPU rev info may be processor specific...
   */
  struct system_cpuinfo_parisc {
  	unsigned int	cpu_count;
  	unsigned int	cpu_hz;
  	unsigned int	hversion;
  	unsigned int	sversion;
  	enum cpu_type	cpu_type;
  
  	struct {
  		struct pdc_model model;
  		unsigned long versions;
  		unsigned long cpuid;
  		unsigned long capabilities;
  		char   sys_model_name[81]; /* PDC-ROM returnes this model name */
  	} pdc;
  
  	char		*cpu_name;	/* e.g. "PA7300LC (PCX-L2)" */
  	char		*family_name;	/* e.g. "1.1e" */
  };
  
  
  /* Per CPU data structure - ie varies per CPU.  */
  struct cpuinfo_parisc {
  	unsigned long it_value;     /* Interval Timer at last timer Intr */
  	unsigned long it_delta;     /* Interval delta (tic_10ms / HZ * 100) */
  	unsigned long irq_count;    /* number of IRQ's since boot */
  	unsigned long irq_max_cr16; /* longest time to handle a single IRQ */
  	unsigned long cpuid;        /* aka slot_number or set to NO_PROC_ID */
  	unsigned long hpa;          /* Host Physical address */
  	unsigned long txn_addr;     /* MMIO addr of EIR or id_eid */
  #ifdef CONFIG_SMP
  	spinlock_t lock;            /* synchronization for ipi's */
  	unsigned long pending_ipi;  /* bitmap of type ipi_message_type */
  	unsigned long ipi_count;    /* number ipi Interrupts */
  #endif
  	unsigned long bh_count;     /* number of times bh was invoked */
  	unsigned long prof_counter; /* per CPU profiling support */
  	unsigned long prof_multiplier;	/* per CPU profiling support */
  	unsigned long fp_rev;
  	unsigned long fp_model;
  	unsigned int state;
  	struct parisc_device *dev;
  	unsigned long loops_per_jiffy;
  };
  
  extern struct system_cpuinfo_parisc boot_cpu_data;
  extern struct cpuinfo_parisc cpu_data[NR_CPUS];
  #define current_cpu_data cpu_data[smp_processor_id()]
  
  #define CPU_HVERSION ((boot_cpu_data.hversion >> 4) & 0x0FFF)
  
  typedef struct {
  	int seg;  
  } mm_segment_t;
  
  #define ARCH_MIN_TASKALIGN	8
  
  struct thread_struct {
  	struct pt_regs regs;
  	unsigned long  task_size;
  	unsigned long  map_base;
  	unsigned long  flags;
  }; 
  
  /* Thread struct flags. */

  #define PARISC_UAC_NOPRINT	(1UL << 0)	/* see prctl and unaligned.c */
  #define PARISC_UAC_SIGBUS	(1UL << 1)

  #define PARISC_KERNEL_DEATH	(1UL << 31)	/* see die_if_kernel()... */

  #define PARISC_UAC_SHIFT	0
  #define PARISC_UAC_MASK		(PARISC_UAC_NOPRINT|PARISC_UAC_SIGBUS)
  
  #define SET_UNALIGN_CTL(task,value)                                       \
          ({                                                                \
          (task)->thread.flags = (((task)->thread.flags & ~PARISC_UAC_MASK) \
                                  | (((value) << PARISC_UAC_SHIFT) &        \
                                     PARISC_UAC_MASK));                     \
          0;                                                                \
          })
  
  #define GET_UNALIGN_CTL(task,addr)                                        \
          ({                                                                \
          put_user(((task)->thread.flags & PARISC_UAC_MASK)                 \
                   >> PARISC_UAC_SHIFT, (int __user *) (addr));             \
          })

  #define INIT_THREAD { \

  	.regs = {	.gr	= { 0, }, \
  			.fr	= { 0, }, \
  			.sr	= { 0, }, \
  			.iasq	= { 0, }, \
  			.iaoq	= { 0, }, \
  			.cr27	= 0, \

  		}, \

  	.task_size	= DEFAULT_TASK_SIZE, \
  	.map_base	= DEFAULT_MAP_BASE, \
  	.flags		= 0 \

  	}
  
  /*
   * Return saved PC of a blocked thread.  This is used by ps mostly.
   */
  
  unsigned long thread_saved_pc(struct task_struct *t);
  void show_trace(struct task_struct *task, unsigned long *stack);
  
  /*
   * Start user thread in another space.
   *
   * Note that we set both the iaoq and r31 to the new pc. When
   * the kernel initially calls execve it will return through an
   * rfi path that will use the values in the iaoq. The execve
   * syscall path will return through the gateway page, and
   * that uses r31 to branch to.
   *
   * For ELF we clear r23, because the dynamic linker uses it to pass
   * the address of the finalizer function.
   *
   * We also initialize sr3 to an illegal value (illegal for our
   * implementation, not for the architecture).
   */
  typedef unsigned int elf_caddr_t;
  
  #define start_thread_som(regs, new_pc, new_sp) do {	\
  	unsigned long *sp = (unsigned long *)new_sp;	\
  	__u32 spaceid = (__u32)current->mm->context;	\
  	unsigned long pc = (unsigned long)new_pc;	\
  	/* offset pc for priv. level */			\
  	pc |= 3;					\
  							\
  	set_fs(USER_DS);				\
  	regs->iasq[0] = spaceid;			\
  	regs->iasq[1] = spaceid;			\
  	regs->iaoq[0] = pc;				\
  	regs->iaoq[1] = pc + 4;                         \
  	regs->sr[2] = LINUX_GATEWAY_SPACE;              \
  	regs->sr[3] = 0xffff;				\
  	regs->sr[4] = spaceid;				\
  	regs->sr[5] = spaceid;				\
  	regs->sr[6] = spaceid;				\
  	regs->sr[7] = spaceid;				\
  	regs->gr[ 0] = USER_PSW;                        \
  	regs->gr[30] = ((new_sp)+63)&~63;		\
  	regs->gr[31] = pc;				\
  							\
  	get_user(regs->gr[26],&sp[0]);			\
  	get_user(regs->gr[25],&sp[-1]); 		\
  	get_user(regs->gr[24],&sp[-2]); 		\
  	get_user(regs->gr[23],&sp[-3]); 		\
  } while(0)
  
  /* The ELF abi wants things done a "wee bit" differently than
   * som does.  Supporting this behavior here avoids
   * having our own version of create_elf_tables.
   *
   * Oh, and yes, that is not a typo, we are really passing argc in r25
   * and argv in r24 (rather than r26 and r25).  This is because that's
   * where __libc_start_main wants them.
   *
   * Duplicated from dl-machine.h for the benefit of readers:
   *
   *  Our initial stack layout is rather different from everyone else's
   *  due to the unique PA-RISC ABI.  As far as I know it looks like
   *  this:
  
     -----------------------------------  (user startup code creates this frame)
     |         32 bytes of magic       |
     |---------------------------------|
     | 32 bytes argument/sp save area  |
     |---------------------------------| (bprm->p)
     |	    ELF auxiliary info	     |
     |         (up to 28 words)        |
     |---------------------------------|
     |		   NULL		     |
     |---------------------------------|
     |	   Environment pointers	     |
     |---------------------------------|
     |		   NULL		     |
     |---------------------------------|
     |        Argument pointers        |
     |---------------------------------| <- argv
     |          argc (1 word)          |
     |---------------------------------| <- bprm->exec (HACK!)
     |         N bytes of slack        |
     |---------------------------------|
     |	filename passed to execve    |
     |---------------------------------| (mm->env_end)
     |           env strings           |
     |---------------------------------| (mm->env_start, mm->arg_end)
     |           arg strings           |
     |---------------------------------|
     | additional faked arg strings if |
     | we're invoked via binfmt_script |
     |---------------------------------| (mm->arg_start)
     stack base is at TASK_SIZE - rlim_max.
  
  on downward growing arches, it looks like this:
     stack base at TASK_SIZE
     | filename passed to execve
     | env strings
     | arg strings
     | faked arg strings
     | slack
     | ELF
     | envps
     | argvs
     | argc
  
   *  The pleasant part of this is that if we need to skip arguments we
   *  can just decrement argc and move argv, because the stack pointer
   *  is utterly unrelated to the location of the environment and
   *  argument vectors.
   *
   * Note that the S/390 people took the easy way out and hacked their
   * GCC to make the stack grow downwards.
   *
   * Final Note: For entry from syscall, the W (wide) bit of the PSW
   * is stuffed into the lowest bit of the user sp (%r30), so we fill
   * it in here from the current->personality
   */
  
  #ifdef __LP64__
  #define USER_WIDE_MODE	(personality(current->personality) == PER_LINUX)
  #else
  #define USER_WIDE_MODE	0
  #endif
  
  #define start_thread(regs, new_pc, new_sp) do {		\
  	elf_addr_t *sp = (elf_addr_t *)new_sp;		\
  	__u32 spaceid = (__u32)current->mm->context;	\
  	elf_addr_t pc = (elf_addr_t)new_pc | 3;		\
  	elf_caddr_t *argv = (elf_caddr_t *)bprm->exec + 1;	\
  							\
  	set_fs(USER_DS);				\
  	regs->iasq[0] = spaceid;			\
  	regs->iasq[1] = spaceid;			\
  	regs->iaoq[0] = pc;				\
  	regs->iaoq[1] = pc + 4;                         \
  	regs->sr[2] = LINUX_GATEWAY_SPACE;              \
  	regs->sr[3] = 0xffff;				\
  	regs->sr[4] = spaceid;				\
  	regs->sr[5] = spaceid;				\
  	regs->sr[6] = spaceid;				\
  	regs->sr[7] = spaceid;				\
  	regs->gr[ 0] = USER_PSW | (USER_WIDE_MODE ? PSW_W : 0); \
  	regs->fr[ 0] = 0LL;                            	\
  	regs->fr[ 1] = 0LL;                            	\
  	regs->fr[ 2] = 0LL;                            	\
  	regs->fr[ 3] = 0LL;                            	\
  	regs->gr[30] = (((unsigned long)sp + 63) &~ 63) | (USER_WIDE_MODE ? 1 : 0); \
  	regs->gr[31] = pc;				\
  							\
  	get_user(regs->gr[25], (argv - 1));		\
  	regs->gr[24] = (long) argv;			\
  	regs->gr[23] = 0;				\
  } while(0)
  
  struct task_struct;
  struct mm_struct;
  
  /* Free all resources held by a thread. */
  extern void release_thread(struct task_struct *);
  extern int kernel_thread(int (*fn)(void *), void * arg, unsigned long flags);
  
  /* Prepare to copy thread state - unlazy all lazy status */
  #define prepare_to_copy(tsk)	do { } while (0)
  
  extern void map_hpux_gateway_page(struct task_struct *tsk, struct mm_struct *mm);
  
  extern unsigned long get_wchan(struct task_struct *p);
  
  #define KSTK_EIP(tsk)	((tsk)->thread.regs.iaoq[0])
  #define KSTK_ESP(tsk)	((tsk)->thread.regs.gr[30])
  
  
  /*
   * PA 2.0 defines data prefetch instructions on page 6-11 of the Kane book.
   * In addition, many implementations do hardware prefetching of both
   * instructions and data.
   *
   * PA7300LC (page 14-4 of the ERS) also implements prefetching by a load
   * to gr0 but not in a way that Linux can use.  If the load would cause an
   * interruption (eg due to prefetching 0), it is suppressed on PA2.0
   * processors, but not on 7300LC.
   */
  #ifdef  CONFIG_PREFETCH
  #define ARCH_HAS_PREFETCH
  #define ARCH_HAS_PREFETCHW
  
  extern inline void prefetch(const void *addr)
  {
  	__asm__("ldw 0(%0), %%r0" : : "r" (addr));
  }
  
  extern inline void prefetchw(const void *addr)
  {
  	__asm__("ldd 0(%0), %%r0" : : "r" (addr));
  }
  #endif
  
  #define cpu_relax()	barrier()
  
  #endif /* __ASSEMBLY__ */
  
  #endif /* __ASM_PARISC_PROCESSOR_H */