Fixes to stackwalking through signal handlers
[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
38 #include "stackwalk/src/sw.h"
39
40 #include "get_trap_instruction.h"
41 using namespace Dyninst;
42 using namespace Dyninst::Stackwalker;
43
44 bool ProcSelf::getRegValue(Dyninst::MachRegister reg, THR_ID, Dyninst::MachRegisterVal &val)
45 {
46   register Dyninst::MachRegisterVal **sp;
47   Dyninst::MachRegisterVal *fp_ra;
48
49   __asm__("or %0, %%r1, %%r1\n"
50           : "=r"(sp));
51
52   if (reg == Dyninst::MachRegStackBase) {
53      val = (Dyninst::MachRegisterVal) sp;
54   }
55
56   fp_ra = *sp;
57   if (reg == Dyninst::MachRegFrameBase) 
58   {
59      val = fp_ra[0];
60   }
61
62   if (reg == Dyninst::MachRegPC) 
63   {
64      val = fp_ra[1];
65   }
66
67   sw_printf("[%s:%u] - Returning value %lx for reg %u\n", 
68             __FILE__, __LINE__, val, reg);
69   return true;
70 }
71
72 FrameFuncStepperImpl::FrameFuncStepperImpl(Walker *w, FrameStepper *parent_,
73                                            FrameFuncHelper *) :
74    FrameStepper(w),
75    parent(parent_),
76    helper(NULL)
77 {
78 }
79
80 gcframe_ret_t FrameFuncStepperImpl::getCallerFrame(const Frame &in, Frame &out)
81 {
82   Address in_fp, out_sp;
83   bool result;
84   struct {
85     Address out_fp;
86     Address out_ra;
87   } ra_fp_pair;
88
89   if (!in.getFP())
90     return gcf_stackbottom;
91
92   in_fp = in.getFP();
93
94   //TODO: Mutatee word size
95   out_sp = in_fp;
96   out.setSP(out_sp);
97   
98   result = getProcessState()->readMem(&ra_fp_pair, in_fp, 
99                                       sizeof(ra_fp_pair));
100   if (!result) {
101     sw_printf("[%s:%u] - Couldn't read from %lx\n", __FILE__, __LINE__, in_fp);
102     return gcf_error;
103   }
104   out.setFP(ra_fp_pair.out_fp);
105
106   result = getProcessState()->readMem(&ra_fp_pair, ra_fp_pair.out_fp, 
107                                       sizeof(ra_fp_pair));
108   if (!result) {
109     sw_printf("[%s:%u] - Couldn't read from %lx\n", __FILE__, __LINE__,
110               ra_fp_pair.out_fp);
111     return gcf_error;
112   }
113   if (!ra_fp_pair.out_ra) {
114     return gcf_stackbottom;
115   }
116
117
118   out.setRA(ra_fp_pair.out_ra);
119
120
121   return gcf_success;
122 }
123  
124 unsigned FrameFuncStepperImpl::getPriority() const
125 {
126    return frame_priority;
127 }
128
129 FrameFuncStepperImpl::~FrameFuncStepperImpl()
130 {
131 }
132
133 StepperWanderer::StepperWanderer(Walker *, WandererHelper *, FrameFuncHelper *) :
134    FrameStepper(NULL)
135 {
136    sw_printf("[%s:%u] - Error,  Wanderer used on unsupported platform\n",
137              __FILE__, __LINE__);
138    assert(0);
139 }
140
141 gcframe_ret_t StepperWanderer::getCallerFrame(const Frame &, Frame &)
142 {
143    sw_printf("[%s:%u] - Error,  Wanderer used on unsupported platform\n",
144              __FILE__, __LINE__);
145    assert(0);
146 }
147
148 unsigned StepperWanderer::getPriority() const
149 {
150    sw_printf("[%s:%u] - Error,  Wanderer used on unsupported platform\n",
151              __FILE__, __LINE__);
152    assert(0);
153    return 0;
154 }
155
156 StepperWanderer::~StepperWanderer()
157 {
158 }
159
160 WandererHelper::WandererHelper(ProcessState *proc_) :
161    proc(proc_)
162 {
163 }
164
165 bool WandererHelper::isPrevInstrACall(Address, Address&)
166 {
167    sw_printf("[%s:%u] - Unimplemented on this platform!\n");
168    assert(0);
169    return false;
170 }
171
172 bool WandererHelper::isPCInFunc(Address, Address)
173 {
174    sw_printf("[%s:%u] - Unimplemented on this platform!\n");
175    assert(0);
176    return false;
177 }
178
179 WandererHelper::~WandererHelper()
180 {
181 }
182
183
184 namespace Dyninst {
185   namespace Stackwalker {
186
187     void getTrapInstruction(char *buffer, unsigned buf_size, 
188                             unsigned &actual_len, bool include_return)
189     {
190       assert(buf_size >= 4);
191       buffer[0] = 0x7d;
192       buffer[1] = 0x82;
193       buffer[2] = 0x10;
194       buffer[3] = 0x08;
195       actual_len = 4;
196       if (include_return)
197       {   
198         assert(buf_size >= 8);
199         buffer[4] = 0x4e;
200         buffer[5] = 0x80;
201         buffer[6] = 0x00;
202         buffer[7] = 0x20;
203         actual_len = 8;
204         return;
205       }
206   
207       assert(buf_size >= 1);
208       actual_len = 1;
209       return;
210     }
211   }
212 }