paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 02:18:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger, IDE: prevent dangling pointer in Source-Hint watch-eval.

Browse Source
This commit is contained in:
Martin 2024-01-18 17:00:25 +01:00
parent 934017d583
commit 4d3adb3870
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -193,6 +193,7 @@ type
procedure LazInstancesStartNewInstance(const aFiles: TStrings;
var Result: TStartNewInstanceResult; var outSourceWindowHandle: HWND);
procedure LazInstancesGetOpenedProjectFileName(var outProjectFileName: string);
procedure HintWatchFreed(Sender: TObject);
procedure HintWatchValidityChanged(Sender: TObject);
procedure DlgDebugInfoHelpRequested(Sender: TObject; AModalResult: TModalResult; var ACanClose: Boolean);
@ -11547,6 +11548,11 @@ begin
CodeExplorerView.CurrentCodeBufferChanged;
end;
procedure TMainIDE.HintWatchFreed(Sender: TObject);
begin
FHintWatchData.WatchValue := nil;
end;
procedure TMainIDE.HintWatchValidityChanged(Sender: TObject);
var
p: SizeInt;
@ -11709,6 +11715,7 @@ begin
if CStack <> nil then
st := CStack.CurrentIndex;
FHintWatchData.WatchValue := aWatch.Values[tid, st] as TCurrentWatchValue;
FHintWatchData.WatchValue.AddFreeNotification(@HintWatchFreed);
FHintWatchData.WatchValue.OnValidityChanged := @HintWatchValidityChanged;
FHintWatchData.WatchValue.Value;
HintWatchValidityChanged(FHintWatchData.WatchValue);