StackwalkerAPI support for Linux/ppc64
[dyninst.git] / stackwalk / src / ppc-swk.C
1 /*
2  * Copyright (c) 1996-2009 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as "Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * By your use of Paradyn, you understand and agree that we (or any
12  * other person or entity with proprietary rights in Paradyn) are
13  * under no obligation to provide either maintenance services,
14  * update services, notices of latent defects, or correction of
15  * defects for Paradyn.
16  * 
17  * This library is free software; you can redistribute it and/or
18  * modify it under the terms of the GNU Lesser General Public
19  * License as published by the Free Software Foundation; either
20  * version 2.1 of the License, or (at your option) any later version.
21  * 
22  * This library is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
25  * Lesser General Public License for more details.
26  * 
27  * You should have received a copy of the GNU Lesser General Public
28  * License along with this library; if not, write to the Free Software
29  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
30  */
31
32 #include "stackwalk/h/swk_errors.h"
33 #include "stackwalk/h/procstate.h"
34 #include "stackwalk/h/framestepper.h"
35 #include "stackwalk/h/basetypes.h"
36 #include "stackwalk/h/frame.h"
37 #include "stackwalk/h/walker.h"
38
39 #include "stackwalk/src/sw.h"
40
41 #include "get_trap_instruction.h"
42 using namespace Dyninst;
43 using namespace Dyninst::Stackwalker;
44
45 #if defined(os_linux) || defined(os_bg) && !defined(arch_64bit)
46
47 #define GET_FRAME_BASE(spr) __asm__("or %0, %%r1, %%r1\n" : "=r"(spr))
48 typedef struct {
49    Address out_fp;
50    Address out_ra;
51 } ra_fp_pair_t;
52
53 #elif defined(os_aix)
54
55 #define GET_FRAME_BASE(spr) __asm__("or %0, 1, 1\n" : "=r"(spr))
56 typedef struct {
57    Address out_fp;
58    Address unused;
59    Address out_ra;
60 } ra_fp_pair_t;
61
62 #else
63
64 #error Unknown platform
65
66 #endif
67
68
69 bool ProcSelf::getRegValue(Dyninst::MachRegister reg, THR_ID, Dyninst::MachRegisterVal &val)
70 {
71   ra_fp_pair_t **sp;
72   ra_fp_pair_t *fp_ra;
73
74   GET_FRAME_BASE(sp);
75
76   bool found_reg = false;
77   if (reg.isStackPointer()) {
78     val = (Dyninst::MachRegisterVal) sp;
79     found_reg = true;
80   }
81
82   fp_ra = *sp;
83   if (reg.isFramePointer()) {
84      val = (Dyninst::MachRegisterVal) fp_ra;
85      found_reg = true;
86   }
87
88   if (reg.isPC() || reg == Dyninst::ReturnAddr) {
89      val = fp_ra->out_ra;
90      found_reg = true;
91   }
92
93   sw_printf("[%s:%u] - Returning value %lx for reg %s\n", 
94             __FILE__, __LINE__, val, reg.name());
95   return true;
96 }
97
98 Dyninst::Architecture ProcSelf::getArchitecture()
99 {
100    return Arch_ppc32;
101 }
102
103 bool Walker::checkValidFrame(const Frame & /*in*/, const Frame & /*out*/)
104 {
105    return true;
106 }
107
108 FrameFuncStepperImpl::FrameFuncStepperImpl(Walker *w, FrameStepper *parent_,
109                                            FrameFuncHelper *) :
110    FrameStepper(w),
111    parent(parent_),
112    helper(NULL)
113 {
114 }
115
116 gcframe_ret_t FrameFuncStepperImpl::getCallerFrame(const Frame &in, Frame &out)
117 {
118   Address in_fp, out_sp;
119   bool result;
120   ra_fp_pair_t ra_fp_pair;
121
122   if (!in.getFP())
123     return gcf_stackbottom;
124
125   in_fp = in.getFP();
126
127   out_sp = in_fp;
128   out.setSP(out_sp);
129   
130   result = getProcessState()->readMem(&ra_fp_pair, in_fp, 
131                                       sizeof(ra_fp_pair_t));
132   if (!result) {
133     sw_printf("[%s:%u] - Couldn't read from %lx\n", __FILE__, __LINE__, in_fp);
134     return gcf_error;
135   }
136   out.setFP(ra_fp_pair.out_fp);
137
138   result = getProcessState()->readMem(&ra_fp_pair, ra_fp_pair.out_fp, 
139                                       sizeof(ra_fp_pair_t));
140   if (!result) {
141     sw_printf("[%s:%u] - Couldn't read from %lx\n", __FILE__, __LINE__,
142               ra_fp_pair.out_fp);
143     return gcf_error;
144   }
145   if (!ra_fp_pair.out_ra) {
146     return gcf_stackbottom;
147   }
148
149   out.setRA(ra_fp_pair.out_ra);
150
151   return gcf_success;
152 }
153  
154 unsigned FrameFuncStepperImpl::getPriority() const
155 {
156    return frame_priority;
157 }
158
159 FrameFuncStepperImpl::~FrameFuncStepperImpl()
160 {
161 }
162
163 WandererHelper::WandererHelper(ProcessState *proc_) :
164    proc(proc_)
165 {
166 }
167
168 bool WandererHelper::isPrevInstrACall(Address, Address&)
169 {
170    sw_printf("[%s:%u] - Unimplemented on this platform!\n");
171    assert(0);
172    return false;
173 }
174
175 bool WandererHelper::isPCInFunc(Address, Address)
176 {
177    sw_printf("[%s:%u] - Unimplemented on this platform!\n");
178    assert(0);
179    return false;
180 }
181
182 WandererHelper::~WandererHelper()
183 {
184 }
185
186 gcframe_ret_t DyninstInstrStepperImpl::getCallerFrameArch(const Frame &/*in*/, Frame &/*out*/, 
187                                                           Address /*base*/, Address /*lib_base*/,
188                                                           unsigned /*size*/, unsigned /*stack_height*/)
189 {
190   return gcf_not_me;
191 }
192
193 namespace Dyninst {
194   namespace Stackwalker {
195
196     void getTrapInstruction(char *buffer, unsigned buf_size, 
197                             unsigned &actual_len, bool include_return)
198     {
199       assert(buf_size >= 4);
200       buffer[0] = 0x7d;
201       buffer[1] = 0x82;
202       buffer[2] = 0x10;
203       buffer[3] = 0x08;
204       actual_len = 4;
205       if (include_return)
206       {   
207         assert(buf_size >= 8);
208         buffer[4] = 0x4e;
209         buffer[5] = 0x80;
210         buffer[6] = 0x00;
211         buffer[7] = 0x20;
212         actual_len = 8;
213         return;
214       }
215   
216       assert(buf_size >= 1);
217       actual_len = 1;
218       return;
219     }
220   }
221 }
222