paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 12:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Ensure Snapshot Watches are enabled

Browse Source 
git-svn-id: trunk@32155 -
This commit is contained in:
martin 2011-09-02 14:16:03 +00:00
parent 92cd19f574
commit d909440b1a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/debugger.pp
View File

@ -41,7 +41,7 @@ unit Debugger;
interface interface
uses uses
TypInfo, Classes, SysUtils, Laz_XMLCfg, math, TypInfo, Classes, SysUtils, Laz_XMLCfg, math, FileUtil,
LCLProc, IDEProcs, DebugUtils, maps; LCLProc, IDEProcs, DebugUtils, maps;
type type
@ -7222,6 +7222,7 @@ begin
TCurrentWatchValueList(FValueList).SnapShot := nil; TCurrentWatchValueList(FValueList).SnapShot := nil;
end else begin end else begin
FSnapShot.Assign(self); FSnapShot.Assign(self);
FSnapShot.Enabled := True; // Snapshots are always enabled
TCurrentWatchValueList(FValueList).SnapShot := FSnapShot.FValueList; TCurrentWatchValueList(FValueList).SnapShot := FSnapShot.FValueList;
end; end;
end; end;
@ -7917,7 +7918,7 @@ begin
then FArguments.Assign(AnArguments); then FArguments.Assign(AnArguments);
FFunctionName := AFunctionName; FFunctionName := AFunctionName;
FSource := ASource; FSource := ASource;
FFullFileName := AFullFileName; FFullFileName := TrimFilename(AFullFileName);
FLine := ALine; FLine := ALine;
FState := AState; FState := AState;
end; end;