Rev 3100 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3100 | Rev 3108 | ||
---|---|---|---|
Line 41... | Line 41... | ||
41 | 41 | ||
42 | #include "../../../cons.h" |
42 | #include "../../../cons.h" |
43 | #include "../../../main.h" |
43 | #include "../../../main.h" |
44 | #include "../../../breakpoint.h" |
44 | #include "../../../breakpoint.h" |
45 | #include "../../../include/arch.h" |
45 | #include "../../../include/arch.h" |
- | 46 | #include "../../../genarch/idec/idec.h" |
|
46 | 47 | ||
47 | #define OPCODE_BREAK 0x0000000d |
48 | #define OPCODE_BREAK 0x0000000d |
48 | 49 | ||
49 | static istate_t istate; |
50 | static istate_t istate; |
50 | 51 | ||
Line 123... | Line 124... | ||
123 | bstore_initialize(&dt->arch.next[1]); |
124 | bstore_initialize(&dt->arch.next[1]); |
124 | } |
125 | } |
125 | 126 | ||
126 | int arch_breakpoint_set(breakpoint_t *b) |
127 | int arch_breakpoint_set(breakpoint_t *b) |
127 | { |
128 | { |
128 | bstore_initialize(&b->arch.bs); |
- | |
129 | bstore_initialize(&b->arch.next_bs[0]); |
- | |
130 | bstore_initialize(&b->arch.next_bs[1]); |
129 | return idec_breakpoint_set(b); |
131 | - | ||
132 | return bstore_push(&b->arch.bs, b->addr, OPCODE_BREAK); |
- | |
133 | } |
130 | } |
134 | 131 | ||
135 | int arch_breakpoint_remove(breakpoint_t *b) |
132 | int arch_breakpoint_remove(breakpoint_t *b) |
136 | { |
133 | { |
137 | return bstore_pop(&b->arch.bs); |
134 | return idec_breakpoint_remove(b); |
138 | } |
135 | } |
139 | 136 | ||
140 | static int islot_read(uintptr_t addr, uint32_t *instr) |
137 | static int islot_read(uintptr_t addr, uint32_t *instr) |
141 | { |
138 | { |
142 | int rc; |
139 | int rc; |
Line 161... | Line 158... | ||
161 | } |
158 | } |
162 | 159 | ||
163 | return -1; |
160 | return -1; |
164 | } |
161 | } |
165 | 162 | ||
166 | static int get_reg(int reg_no, uint32_t *value) |
163 | static int get_reg(dthread_t *dt, int reg_no, uint32_t *value) |
167 | { |
164 | { |
- | 165 | int rc; |
|
- | 166 | ||
168 | cons_printf("get_reg...\n"); |
167 | cons_printf("get_reg...\n"); |
169 | 168 | ||
170 | if (reg_no == 0) { |
169 | if (reg_no == 0) { |
171 | *value = 0; |
170 | *value = 0; |
172 | return 0; |
171 | return 0; |
173 | } |
172 | } |
174 | 173 | ||
- | 174 | rc = udebug_regs_read(app_phone, dt->hash, &istate); |
|
- | 175 | if (rc < 0) return rc; |
|
- | 176 | ||
175 | /* FIXME: ugly */ |
177 | /* FIXME: ugly */ |
176 | *value = ((uint32_t *)&istate)[reg_no - 1]; |
178 | *value = ((uint32_t *)&istate)[reg_no - 1]; |
177 | printf("get_reg ok (0x%08x)\n", *value); |
179 | printf("get_reg ok (0x%08x)\n", *value); |
178 | 180 | ||
179 | return 0; |
181 | return 0; |
Line 181... | Line 183... | ||
181 | 183 | ||
182 | /** Get address of the instruction that will be executed after the current one. |
184 | /** Get address of the instruction that will be executed after the current one. |
183 | * |
185 | * |
184 | * Assumptions: addr == PC, *addr is not covered by a BREAK. |
186 | * Assumptions: addr == PC, *addr is not covered by a BREAK. |
185 | * |
187 | * |
- | 188 | * @param dt Dthread on which to operate. |
|
186 | * @param addr Address of an instruction. |
189 | * @param addr Address of an instruction. |
187 | * @param buffer Buffer for storing up to 2 addresses. |
190 | * @param buffer Buffer for storing up to 2 addresses. |
188 | * @return Number of stored addresses or negative error code. |
191 | * @return Number of stored addresses or negative error code. |
189 | */ |
192 | */ |
190 | static int get_next_addr(uintptr_t addr, uintptr_t *buffer) |
193 | int get_next_addr(dthread_t *dt, uintptr_t addr, uintptr_t *buffer) |
191 | { |
194 | { |
192 | /* TODO: J[AL]R, branches and delay slots */ |
195 | /* TODO: J[AL]R, branches and delay slots */ |
193 | uint32_t instr; |
196 | uint32_t instr; |
194 | int32_t offset; |
197 | int32_t offset; |
195 | op_t op; |
198 | op_t op; |
Line 237... | Line 240... | ||
237 | n = 1; |
240 | n = 1; |
238 | break; |
241 | break; |
239 | case OP_JR: |
242 | case OP_JR: |
240 | case OP_JALR: |
243 | case OP_JALR: |
241 | /* Register jump */ |
244 | /* Register jump */ |
242 | rc = get_reg((instr >> 21) & 0x1f, &buffer[0]); |
245 | rc = get_reg(dt, (instr >> 21) & 0x1f, &buffer[0]); |
243 | n = 1; |
246 | n = 1; |
244 | break; |
247 | break; |
245 | default: |
248 | default: |
246 | /* Regular instruction */ |
249 | /* Regular instruction */ |
247 | buffer[0] = addr + 4; |
250 | buffer[0] = addr + 4; |
Line 250... | Line 253... | ||
250 | } |
253 | } |
251 | 254 | ||
252 | return n; |
255 | return n; |
253 | } |
256 | } |
254 | 257 | ||
255 | static void _ev_breakpoint(thash_t thread_hash) |
- | |
256 | { |
- | |
257 | breakpoint_t *b; |
- | |
258 | dthread_t *dt; |
- | |
259 | int rc, n_next, i; |
- | |
260 | uint32_t epc; |
- | |
261 | uintptr_t brk_addr; |
- | |
262 | uintptr_t next_addr[2]; |
- | |
263 | uint32_t brkp; |
- | |
264 | - | ||
265 | brkp = OPCODE_BREAK; |
- | |
266 | - | ||
267 | cons_printf("arch_event_breakpoint\n"); |
- | |
268 | - | ||
269 | rc = udebug_regs_read(app_phone, thread_hash, &istate); |
- | |
270 | cons_printf("udebug_regs_read -> %d\n", rc); |
- | |
271 | epc = istate_get_pc(&istate); |
- | |
272 | cons_printf("EPC was 0x%08x\n", epc); |
- | |
273 | brk_addr = epc; |
- | |
274 | - | ||
275 | dt = dthread_get(); |
- | |
276 | - | ||
277 | if (active_bkpt != NULL) { |
- | |
278 | assert(active_bkpt->arch.bs.address == brk_addr); |
- | |
279 | b = active_bkpt; |
- | |
280 | - | ||
281 | /* A breakpoint-restoring BRK has been hit */ |
- | |
282 | cons_printf("restoring breakpoint %d\n", b->id); |
- | |
283 | for (i = 0; i < b->arch.n_next; ++i) { |
- | |
284 | rc = bstore_pop(&b->arch.next_bs[i]); |
- | |
285 | if (rc != 0) return; |
- | |
286 | } |
- | |
287 | - | ||
288 | rc = bstore_push(&b->arch.bs, b->addr, OPCODE_BREAK); |
- | |
289 | if (rc != 0) return; |
- | |
290 | active_bkpt = NULL; |
- | |
291 | return; |
- | |
292 | } |
- | |
293 | - | ||
294 | b = breakpoint_find_by_addr(brk_addr); |
- | |
295 | if (b == NULL) { |
- | |
296 | cons_printf("Unrecognized breakpoint at 0x%lx\n", brk_addr); |
- | |
297 | } |
- | |
298 | - | ||
299 | /* A breakpoint has been hit */ |
- | |
300 | cons_printf("breakpoint_hit...\n"); |
- | |
301 | breakpoint_hit(b); |
- | |
302 | - | ||
303 | /* While in breakpoint_hit(), singlestep was activated */ |
- | |
304 | if (dt->arch.singlestep) return; |
- | |
305 | - | ||
306 | cons_printf("move breakpoint\b"); |
- | |
307 | rc = bstore_pop(&b->arch.bs); |
- | |
308 | if (rc != 0) return; |
- | |
309 | - | ||
310 | n_next = get_next_addr(brk_addr, next_addr); |
- | |
311 | if (n_next < 0) return; |
- | |
312 | - | ||
313 | /* |
- | |
314 | * There could be another breakpoint at next_addr, |
- | |
315 | * but that's okay. We'll pop the active breakpoint bs |
- | |
316 | * before doing anything else. |
- | |
317 | */ |
- | |
318 | for (i = 0; i < n_next; ++i) { |
- | |
319 | rc = bstore_push(&b->arch.next_bs[i], next_addr[i], |
- | |
320 | OPCODE_BREAK); |
- | |
321 | if (rc != 0) return; |
- | |
322 | } |
- | |
323 | b->arch.n_next = n_next; |
- | |
324 | - | ||
325 | active_bkpt = b; |
- | |
326 | b->active = true; |
- | |
327 | - | ||
328 | cons_printf("end_hit...\n"); |
- | |
329 | } |
- | |
330 | - | ||
331 | - | ||
332 | static void _ev_singlestep(thash_t thread_hash) |
- | |
333 | { |
- | |
334 | dthread_t *dt; |
- | |
335 | int rc, i; |
- | |
336 | uint32_t epc; |
- | |
337 | int brk_addr; |
- | |
338 | uint32_t brkp; |
- | |
339 | - | ||
340 | dt = dthread_get(); |
- | |
341 | - | ||
342 | assert(active_bkpt == NULL); |
- | |
343 | assert(dt->arch.singlestep); |
- | |
344 | brkp = OPCODE_BREAK; |
- | |
345 | - | ||
346 | cons_printf("arch_event_breakpoint\n"); |
- | |
347 | - | ||
348 | rc = udebug_regs_read(app_phone, thread_hash, &istate); |
- | |
349 | cons_printf("udebug_regs_read -> %d\n", rc); |
- | |
350 | epc = istate_get_pc(&istate); |
- | |
351 | cons_printf("EPC was 0x%08x\n", epc); |
- | |
352 | brk_addr = epc; |
- | |
353 | - | ||
354 | if (dt->arch.cur.valid) { |
- | |
355 | cons_printf("restore breakpoint BREAK\n"); |
- | |
356 | rc = bstore_pop(&dt->arch.cur); |
- | |
357 | } |
- | |
358 | - | ||
359 | cons_printf("\nclear singlestep BREAKs\n"); |
- | |
360 | for (i = 0; i < dt->arch.n_next; ++i) { |
- | |
361 | rc = bstore_pop(&dt->arch.next[i]); |
- | |
362 | if (rc != 0) return; |
- | |
363 | } |
- | |
364 | - | ||
365 | dt->arch.singlestep = false; |
- | |
366 | - | ||
367 | singlestep_hit(); |
- | |
368 | } |
- | |
369 | - | ||
370 | - | ||
371 | void arch_event_breakpoint(thash_t thread_hash) |
258 | void arch_event_breakpoint(thash_t thread_hash) |
372 | { |
259 | { |
373 | dthread_t *dt; |
- | |
374 | - | ||
375 | dt = dthread_get(); |
- | |
376 | if (dt->arch.singlestep) { |
- | |
377 | _ev_singlestep(thread_hash); |
- | |
378 | } else { |
- | |
379 | _ev_breakpoint(thread_hash); |
260 | idec_event_breakpoint(thread_hash); |
380 | } |
- | |
381 | } |
261 | } |
382 | 262 | ||
383 | void arch_event_trap(dthread_t *dt) |
263 | void arch_event_trap(dthread_t *dt) |
384 | { |
264 | { |
385 | /* Unused */ |
265 | /* Unused */ |
Line 391... | Line 271... | ||
391 | /* TODO */ |
271 | /* TODO */ |
392 | } |
272 | } |
393 | 273 | ||
394 | void arch_singlestep(dthread_t *dt) |
274 | void arch_singlestep(dthread_t *dt) |
395 | { |
275 | { |
396 | int rc, i; |
- | |
397 | uint32_t epc; |
- | |
398 | breakpoint_t *b; |
- | |
399 | uint32_t old_instr; |
- | |
400 | uintptr_t next_addr[2]; |
- | |
401 | int n_next; |
- | |
402 | - | ||
403 | assert(active_bkpt == NULL); |
- | |
404 | assert(dt->arch.singlestep == false); |
- | |
405 | - | ||
406 | cons_printf("arch_singlestep(dt)\n"); |
- | |
407 | rc = udebug_regs_read(app_phone, dt->hash, &istate); |
- | |
408 | cons_printf("udebug_regs_read -> %d\n", rc); |
- | |
409 | epc = istate_get_pc(&istate); |
- | |
410 | cons_printf("EPC was 0x%08x\n", epc); |
- | |
411 | - | ||
412 | cons_printf("initial set singlestep\n"); |
- | |
413 | b = breakpoint_find_by_addr(epc); |
- | |
414 | if (b != NULL) { |
- | |
415 | /* Cover breakpoint with old instruction */ |
- | |
416 | old_instr = b->arch.bs.value; |
- | |
417 | rc = bstore_push(&dt->arch.cur, epc, old_instr); |
- | |
418 | if (rc < 0) return; |
- | |
419 | } |
- | |
420 | - | ||
421 | n_next = get_next_addr(epc, next_addr); |
- | |
422 | if (n_next < 0) return; |
- | |
423 | - | ||
424 | /* Cover next instruction(s) with BREAK */ |
- | |
425 | for (i = 0; i < n_next; ++i) { |
- | |
426 | rc = bstore_push(&dt->arch.next[i], next_addr[i], OPCODE_BREAK); |
- | |
427 | if (rc != 0) return; |
- | |
428 | } |
- | |
429 | dt->arch.n_next = n_next; |
- | |
430 | - | ||
431 | dt->arch.singlestep = true; |
276 | idec_singlestep(dt); |
432 | dthread_resume(dt); |
- | |
433 | } |
277 | } |
434 | 278 | ||
435 | /** @} |
279 | /** @} |
436 | */ |
280 | */ |