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