1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
/* -*- linux-c -*-
* s390 stack tracing functions
*
* This file is part of systemtap, and is free software. You can
* redistribute it and/or modify it under the terms of the GNU General
* Public License (GPL); either version 2, or (at your option) any
* later version.
*/
static unsigned long
__stp_show_stack (unsigned long sp, unsigned long low,
unsigned long high, int verbose)
{
struct stack_frame *sf;
struct pt_regs *regs;
unsigned long ip;
while (1) {
sp = sp & PSW_ADDR_INSN;
/* fixme: verify this is a kernel stack */
if (sp < low || sp > high - sizeof(*sf))
return sp;
sf = (struct stack_frame *) sp;
ip = sf->gprs[8] & PSW_ADDR_INSN;
if (verbose)
_stp_printf("[%p] [%p] ", (int64_t)sp, (int64_t)ip);
_stp_print_addr((int64_t)ip, verbose, NULL, NULL);
/* Follow the back_chain */
while (1) {
low = sp;
sp = sf->back_chain & PSW_ADDR_INSN;
if (!sp)
break;
if (sp <= low || sp > high - sizeof(*sf))
return sp;
sf = (struct stack_frame *) sp;
ip = sf->gprs[8] & PSW_ADDR_INSN;
if (verbose)
_stp_printf("[%p] [%p] ", (int64_t)sp, (int64_t)ip);
_stp_print_addr((int64_t)ip, verbose, NULL, NULL);
}
/* Zero backchain detected, check for interrupt frame. */
sp = (unsigned long) (sf + 1);
if (sp <= low || sp > high - sizeof(*regs))
return sp;
regs = (struct pt_regs *) sp;
if (verbose)
_stp_printf("[%p] [%p] ", (int64_t)sp, (int64_t)ip);
_stp_print_addr((int64_t)ip, verbose, NULL, NULL);
low = sp;
sp = regs->gprs[15];
}
}
#ifndef ASYNC_SIZE
#define ASYNC_SIZE (PAGE_SIZE << 2)
#endif
static void __stp_stack_print (struct pt_regs *regs,
int verbose, int levels)
{
unsigned long *_sp = (unsigned long *)®_SP(regs);
unsigned long sp = (unsigned long)_sp;
// unsigned long sp = (unsigned long)*_sp;
sp = __stp_show_stack(sp,
S390_lowcore.async_stack - ASYNC_SIZE,
S390_lowcore.async_stack, verbose);
#ifdef CONFIG_THREAD_INFO_IN_TASK
/* FIXME: Note that this CONFIG_THREAD_INFO_IN_TASK
* code is untested, since the s390 uses the dwarf
* unwinder so this code doesn't get called. */
__stp_show_stack(sp, ((unsigned long)current->stack),
(((unsigned long)current->stack)
+ THREAD_SIZE), verbose);
#else
__stp_show_stack(sp,
S390_lowcore.thread_info,
S390_lowcore.thread_info + THREAD_SIZE, verbose);
#endif
}
|
