qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-29 23:52:22 +00:00
Code Issues Projects Releases Packages Wiki Activity

[qwaq] Implement source-level stepping

Browse source 
Now the debugger stops only when the source line has changed or the
statement address is stuck.
This commit is contained in:
Bill Currie 2020-04-02 13:07:50 +09:00
parent 7e51f26b10
commit ea1e85905c
2 changed files with 55 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ruamoko/qwaq/debugger/debugger.h
View file

@ -17,6 +17,8 @@
@interface Debugger : Object
{
qdb_target_t target;
qdb_event_t event;
qdb_state_t last_state;
Window *source_window;
ScrollBar *source_scrollbar;

54
ruamoko/qwaq/debugger/debugger.r
View file

@ -138,6 +138,7 @@ proxy_event (Debugger *self, id proxy, qwaq_event_t *event)
switch (event.key.code) {
case QFK_F7:
qdb_set_trace (self.target, 1);
self.last_state = qdb_get_state (self.target);
qdb_continue (self.target);
return 1;
}
@ -152,7 +153,7 @@ proxy_event (Debugger *self, id proxy, qwaq_event_t *event)
}
}
-handleDebugEvent
-stop:(prdebug_t)reason
{
if (!file_proxy) {
[self setup];
@ -162,4 +163,55 @@ proxy_event (Debugger *self, id proxy, qwaq_event_t *event)
return self;
}
-trace
{
qdb_state_t state = qdb_get_state (target);
// stop only if the progs have not advanced (may be a broken jump)
// or the progs have advanced to a different source line
if (last_state.staddr != state.staddr
&& last_state.func == state.func
&& last_state.file == state.file
&& last_state.line == state.line) {
last_state = state;
qdb_continue (self.target);
return self;
}
[self stop:prd_trace];
return self;
}
-handleDebugEvent
{
if (qdb_get_event (target, &event)) {
switch (event.what) {
case prd_none:
break; // shouldn't happen
case prd_trace:
[self trace];
break;
case prd_breakpoint:
case prd_watchpoint:
[self stop:event.what];
break;
case prd_subenter:
[self stop:event.what];
break;
case prd_subexit:
[self stop:event.what];
break;
case prd_terminate:
wprintf(stdscr, "Program ended: %d\n", event.exit_code);
[self stop:event.what];
break;
case prd_runerror:
case prd_error:
wprintf(stdscr, "%s\n", event.message);
[self stop:event.what];
break;
}
}
return self;
}
@end