Update of /cvsroot/wxdsgn/wxdevcpp/source
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6075
Modified Files:
Tag: VC_Debugger
debugger.pas
Log Message:
Set the stack frame context for GDB as well.
Index: debugger.pas
===================================================================
RCS file: /cvsroot/wxdsgn/wxdevcpp/source/debugger.pas,v
retrieving revision 1.12.2.20
retrieving revision 1.12.2.21
diff -u -d -r1.12.2.20 -r1.12.2.21
--- debugger.pas 8 Nov 2006 04:18:17 -0000 1.12.2.20
+++ debugger.pas 11 Nov 2006 07:08:23 -0000 1.12.2.21
@@ -299,6 +299,7 @@
procedure Pause; override;
procedure Next; override;
procedure Step; override;
+ procedure SetContext(frame: Integer); override;
function GetVariableHint(name: string): string; override;
//Low-level stuff
@@ -2457,6 +2458,12 @@
fBusy := False;
end;
+procedure TGDBDebugger.SetContext(frame: Integer);
+begin
+ QueueCommand('frame', IntToStr(frame));
+ RefreshContext([cdLocals, cdWatches]);
+end;
+
initialization
Breakpoints := TList.Create;
|
