paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 14:09:26 +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
uses
TypInfo, Classes, SysUtils, Laz_XMLCfg, math,
TypInfo, Classes, SysUtils, Laz_XMLCfg, math, FileUtil,
LCLProc, IDEProcs, DebugUtils, maps;
type
@ -7222,6 +7222,7 @@ begin
TCurrentWatchValueList(FValueList).SnapShot := nil;
end else begin
FSnapShot.Assign(self);
FSnapShot.Enabled := True; // Snapshots are always enabled
TCurrentWatchValueList(FValueList).SnapShot := FSnapShot.FValueList;
end;
end;
@ -7917,7 +7918,7 @@ begin
then FArguments.Assign(AnArguments);
FFunctionName := AFunctionName;
FSource := ASource;
FFullFileName := AFullFileName;
FFullFileName := TrimFilename(AFullFileName);
FLine := ALine;
FState := AState;
end;