arch/s390/kernel/stacktrace.c

   1 /*
   2  * arch/s390/kernel/stacktrace.c
   3  *
   4  * Stack trace management functions
   5  *
   6  *  Copyright (C) IBM Corp. 2006
   7  *  Author(s): Heiko Carstens <heiko.carstens@de.ibm.com>
   8  */
   9
  10 #include <linux/sched.h>
  11 #include <linux/stacktrace.h>
  12 #include <linux/kallsyms.h>
  13
  14 static unsigned long save_context_stack(struct stack_trace *trace,
  15                                         unsigned int *skip,
  16                                         unsigned long sp,
  17                                         unsigned long low,
  18                                         unsigned long high)
  19 {
  20         struct stack_frame *sf;
  21         struct pt_regs *regs;
  22         unsigned long addr;
  23
  24         while(1) {
  25                 sp &= PSW_ADDR_INSN;
  26                 if (sp < low || sp > high)
  27                         return sp;
  28                 sf = (struct stack_frame *)sp;
  29                 while(1) {
  30                         addr = sf->gprs[8] & PSW_ADDR_INSN;
  31                         if (!(*skip))
  32                                 trace->entries[trace->nr_entries++] = addr;
  33                         else
  34                                 (*skip)--;
  35                         if (trace->nr_entries >= trace->max_entries)
  36                                 return sp;
  37                         low = sp;
  38                         sp = sf->back_chain & PSW_ADDR_INSN;
  39                         if (!sp)
  40                                 break;
  41                         if (sp <= low || sp > high - sizeof(*sf))
  42                                 return sp;
  43                         sf = (struct stack_frame *)sp;
  44                 }
  45                 /* Zero backchain detected, check for interrupt frame. */
  46                 sp = (unsigned long)(sf + 1);
  47                 if (sp <= low || sp > high - sizeof(*regs))
  48                         return sp;
  49                 regs = (struct pt_regs *)sp;
  50                 addr = regs->psw.addr & PSW_ADDR_INSN;
  51                 if (!(*skip))
  52                         trace->entries[trace->nr_entries++] = addr;
  53                 else
  54                         (*skip)--;
  55                 if (trace->nr_entries >= trace->max_entries)
  56                         return sp;
  57                 low = sp;
  58                 sp = regs->gprs[15];
  59         }
  60 }
  61
  62 void save_stack_trace(struct stack_trace *trace, struct task_struct *task)
  63 {
  64         register unsigned long sp asm ("15");
  65         unsigned long orig_sp, new_sp;
  66
  67         orig_sp = sp & PSW_ADDR_INSN;
  68
  69         new_sp = save_context_stack(trace, &trace->skip, orig_sp,
  70                                 S390_lowcore.panic_stack - PAGE_SIZE,
  71                                 S390_lowcore.panic_stack);
  72         if ((new_sp != orig_sp) && !trace->all_contexts)
  73                 return;
  74         new_sp = save_context_stack(trace, &trace->skip, new_sp,
  75                                 S390_lowcore.async_stack - ASYNC_SIZE,
  76                                 S390_lowcore.async_stack);
  77         if ((new_sp != orig_sp) && !trace->all_contexts)
  78                 return;
  79         if (task)
  80                 save_context_stack(trace, &trace->skip, new_sp,
  81                                    (unsigned long) task_stack_page(task),
  82                                    (unsigned long) task_stack_page(task) + THREAD_SIZE);
  83         else
  84                 save_context_stack(trace, &trace->skip, new_sp,
  85                                    S390_lowcore.thread_info,
  86                                    S390_lowcore.thread_info + THREAD_SIZE);
  87         return;
  88 }