Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

/*
 *  linux/arch/or32/kernel/traps.c
 *
 *  or32 version
 *    author(s): Matjaz Breskvar (phoenix@bsemi.com)
 *
 *  derived from cris, i386, m68k, ppc, sh ports.
 *
 *  changes:
 *  18. 11. 2003: Matjaz Breskvar (phoenix@bsemi.com)
 *    initial port to or32 architecture
 *
 *  based on: linux/arch/cris/kernel/traps.c
 *  Copyright (C) 2000,2001 Axis Communications AB
 *
 *  Authors:   Bjorn Wesen
 *  	       Hans-Peter Nilsson
 *
 *  Here we handle the break vectors not used by the system call 
 *  mechanism, as well as some general stack/register dumping 
 *  things.
 *
 */
 
 
#include <linux/init.h>
#include <linux/sched.h>
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/kmod.h>
#include <linux/string.h>
#include <linux/errno.h>
#include <linux/ptrace.h>
#include <linux/timer.h>
#include <linux/mm.h>
#include <linux/kallsyms.h>
#include <asm/uaccess.h>
 
#include <asm/system.h>
#include <asm/segment.h>
#include <asm/io.h>
#include <asm/pgtable.h>
 
/* __PHX__ asm/hw_irq.h missing */
// #include <linux/irq.h>
 
extern char _etext, _stext;
 
int kstack_depth_to_print = 0x180;
 
static inline int valid_stack_ptr(struct thread_info *tinfo, void *p)
{
	return	p > (void *)tinfo &&
		p < (void *)tinfo + THREAD_SIZE - 3;
}
 
void show_trace(struct task_struct *task, unsigned long * stack)
{
	struct thread_info *context;
	unsigned long addr;
 
 
	context = (struct thread_info *)
		((unsigned long)stack & (~(THREAD_SIZE - 1)));
 
	while (valid_stack_ptr(context, stack)) {
		addr = *stack++;
		if (__kernel_text_address(addr)) {
			printk(" [<%08lx>]", addr);
			print_symbol(" %s", addr);
			printk("\n");
		}
	}
	printk(" =======================\n");
}
 
/* displays a short stack trace */
void show_stack(struct task_struct *task, unsigned long *esp)
{
	unsigned long addr, *stack;
	int i;
 
	// debugging aid: "show_stack(NULL);" prints the
	// back trace for this cpu.
 
	if(esp==NULL)
		esp=(unsigned long*)&esp;
 
	stack = esp;
 
	printk("Stack dump [0x%08lx]:\n", (unsigned long)esp);
	for(i = 0; i < kstack_depth_to_print; i++) {
		if (kstack_end(stack))
			break;
		if (__get_user (addr, stack)) {
			/* This message matches "failing address" marked
			   s390 in ksymoops, so lines containing it will
			   not be filtered out by ksymoops.  */
			printk ("Failing address 0x%lx\n", (unsigned long)stack);
			break;
		}
		stack++;
 
		printk("sp + %02d: 0x%08lx\n", i*4, addr);
	}
	printk("\n");
 
	show_trace(task, esp);
 
	return;
}
 
void show_trace_task(struct task_struct *tsk)
{
	/* 
	 * __PHX__: TODO: SysRq-T trace dump... 
	 */
}
 
/*
 * The architecture-independent backtrace generator
 */
void dump_stack(void)
{
	unsigned long stack;
 
	show_stack(current, &stack);
}
 
void show_registers(struct pt_regs *regs)
{
	int i;
	int in_kernel = 1;
	unsigned long esp;
 
	esp = (unsigned long) (&regs->sp);
	if (user_mode(regs))
		in_kernel = 0;
 
	printk("CPU #: %d\n"
	       "   PC: %08lx    SR: %08lx    SP: %08lx\n",
	       smp_processor_id(), regs->pc, regs->sr, regs->sp);
	printk("GPR00: %08lx GPR01: %08lx GPR02: %08lx GPR03: %08lx\n",
	       0L, regs->sp, regs->gprs[0], regs->gprs[1]);
	printk("GPR04: %08lx GPR05: %08lx GPR06: %08lx GPR07: %08lx\n",
	       regs->gprs[2], regs->gprs[3], regs->gprs[4], regs->gprs[5]);
	printk("GPR08: %08lx GPR09: %08lx GPR10: %08lx GPR11: %08lx\n",
	       regs->gprs[6], regs->gprs[7], regs->gprs[8], regs->gprs[9]);
	printk("GPR12: %08lx GPR13: %08lx GPR14: %08lx GPR15: %08lx\n",
	       regs->gprs[10], regs->gprs[11], regs->gprs[12], regs->gprs[13]);
	printk("GPR16: %08lx GPR17: %08lx GPR18: %08lx GPR19: %08lx\n",
	       regs->gprs[14], regs->gprs[15], regs->gprs[16], regs->gprs[17]);
	printk("GPR20: %08lx GPR21: %08lx GPR22: %08lx GPR23: %08lx\n",
	       regs->gprs[18], regs->gprs[19], regs->gprs[20], regs->gprs[21]);
	printk("GPR24: %08lx GPR25: %08lx GPR26: %08lx GPR27: %08lx\n",
	       regs->gprs[22], regs->gprs[23], regs->gprs[24], regs->gprs[25]);
	printk("GPR28: %08lx GPR29: %08lx GPR30: %08lx GPR31: %08lx\n",
	       regs->gprs[26], regs->gprs[27], regs->gprs[28], regs->gprs[29]);
	printk("  RES: %08lx oGPR3: %08lx syscallno: %08lx\n",
	       regs->result, regs->orig_gpr3, regs->syscallno);
 
	printk("Process %s (pid: %d, stackpage=%08lx)\n",
	       current->comm, current->pid, (unsigned long)current);
	/*
	 * When in-kernel, we also print out the stack and code at the
	 * time of the fault..
	 */
	if (in_kernel) {
 
		printk("\nStack: ");
		show_stack(NULL, (unsigned long*)esp);
 
		printk("\nCode: ");
		if(regs->pc < PAGE_OFFSET)
			goto bad;
 
		for(i=-24;i<24;i++)
		{
			unsigned char c;
			if(__get_user(c, &((unsigned char*)regs->pc)[i])) {
bad:
				printk(" Bad PC value.");
				break;
			}
 
			if (i == 0)
			  printk("(%02x) ", c);
			else
			  printk("%02x ", c);
 		}
	}
	printk("\n");
}	
 
void nommu_dump_state(struct pt_regs *regs, 
		      unsigned long ea, unsigned long vector)
{
	int i;
	unsigned long addr, stack = regs->sp;
 
	printk("\n\r[nommu_dump_state] :: ea %lx, vector %lx\n\r",
	       ea, vector);
 
	printk("CPU #: %d\n"
	       "   PC: %08lx    SR: %08lx    SP: %08lx\n",
	       0, regs->pc, regs->sr, regs->sp);
	printk("GPR00: %08lx GPR01: %08lx GPR02: %08lx GPR03: %08lx\n",
	       0L, regs->sp, regs->gprs[0], regs->gprs[1]);
	printk("GPR04: %08lx GPR05: %08lx GPR06: %08lx GPR07: %08lx\n",
	       regs->gprs[2], regs->gprs[3], regs->gprs[4], regs->gprs[5]);
	printk("GPR08: %08lx GPR09: %08lx GPR10: %08lx GPR11: %08lx\n",
	       regs->gprs[6], regs->gprs[7], regs->gprs[8], regs->gprs[9]);
	printk("GPR12: %08lx GPR13: %08lx GPR14: %08lx GPR15: %08lx\n",
	       regs->gprs[10], regs->gprs[11], regs->gprs[12], regs->gprs[13]);
	printk("GPR16: %08lx GPR17: %08lx GPR18: %08lx GPR19: %08lx\n",
	       regs->gprs[14], regs->gprs[15], regs->gprs[16], regs->gprs[17]);
	printk("GPR20: %08lx GPR21: %08lx GPR22: %08lx GPR23: %08lx\n",
	       regs->gprs[18], regs->gprs[19], regs->gprs[20], regs->gprs[21]);
	printk("GPR24: %08lx GPR25: %08lx GPR26: %08lx GPR27: %08lx\n",
	       regs->gprs[22], regs->gprs[23], regs->gprs[24], regs->gprs[25]);
	printk("GPR28: %08lx GPR29: %08lx GPR30: %08lx GPR31: %08lx\n",
	       regs->gprs[26], regs->gprs[27], regs->gprs[28], regs->gprs[29]);
	printk("  RES: %08lx oGPR3: %08lx syscallno: %08lx\n",
	       regs->result, regs->orig_gpr3, regs->syscallno);
 
	printk("Process %s (pid: %d, stackpage=%08lx)\n",
	       ((struct task_struct*)(__pa(current)))->comm, 
	       ((struct task_struct*)(__pa(current)))->pid,
	       (unsigned long)current);
 
	printk("\nStack: ");
	printk("Stack dump [0x%08lx]:\n", (unsigned long)stack);
	for(i = 0; i < kstack_depth_to_print; i++) {
		if (((long) stack & (THREAD_SIZE-1)) == 0)
			break;
		stack++;
 
		printk("%lx :: sp + %02d: 0x%08lx\n", stack, i*4, 
		       *((unsigned long*)(__pa(stack))));
	}
	printk("\n");
 
	printk("Call Trace:   ");
	i = 1;
	while (((long) stack & (THREAD_SIZE-1)) != 0) {
		addr = *((unsigned long*)__pa(stack));
		stack++;
 
		if (kernel_text_address(addr)) {
			if (i && ((i % 6) == 0))
				printk("\n ");
			printk(" [<%08lx>]", addr);
			i++;
		}
	}
	printk("\n");
 
	printk("\nCode: ");
 
	for(i=-24;i<24;i++)
	{
		unsigned char c;
		c = ((unsigned char*)(__pa(regs->pc)))[i];
 
		if (i == 0)
			printk("(%02x) ", c);
		else
			printk("%02x ", c);
	}
	printk("\n");
}
 
 
/* This is normally the 'Oops' routine */
void die(const char * str, struct pt_regs * regs, long err)
{
 
	console_verbose();
	printk("\n%s#: %04lx\n", str, err & 0xffff);
	show_registers(regs);
#ifdef CONFIG_JUMP_UPON_UNHANDLED_EXCEPTION
	printk("\n\nUNHANDLED_EXCEPTION: entering infinite loop\n");
 
	/* shut down interrupts */
	local_irq_disable();
 
/*
 * this doesn't work
 *
 */
#if 0
	/* stop the simulator */
	__asm__ __volatile__(
		"l.nop   1                     ;"
		"l.ori   r3,r0,0x8001          ;"
                "l.mtspr r0,r3,64              ;" /* SPR_ESR_BASE */
                "l.movhi r3,hi(0xf0000100)     ;"
                "l.ori   r3,r3,lo(0xf0000100)  ;"
                "l.mtspr r0,r3,32              ;" /* SPR_EPCR_BASE */
		"l.nop   1                     ;"
		"l.nop   1                     ;"
		"l.nop   1                     ;"
		"l.nop   1                     ;"
                "l.rfe");
#endif
 
	__asm__ __volatile__(
		"l.nop   1");
	for (;;)
		;
#endif
	do_exit(SIGSEGV);
}
 
/* This is normally the 'Oops' routine */
void die_if_kernel(const char * str, struct pt_regs * regs, long err)
{
	if(user_mode(regs))
		return;
 
	die(str, regs, err);
}
 
void unhandled_exception(struct pt_regs *regs, int ea, int vector)
{
	printk("Unable to handle exception at EA =0x%x, vector 0x%x",
	       	ea, vector);
	die("Oops", regs, 9);
}
 
void __init trap_init(void)
{
	/* Nothing needs to be done */
}