paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-30 17:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TreeView: Fix compilation in FPC 3.3.1 after change in FreeAndNil in commit 3df8de199470da796a9c00fc01f7ed6c3a07dc18

Browse Source
This commit is contained in:
wp_xyz 2025-05-14 16:39:18 +02:00
parent 8001f45c6a
commit 4fd9cec6c7
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerworkthreads.pas
View File

@ -1364,7 +1364,10 @@ begin
CB := nil;
try
if FEvalFlags * [defNoTypeInfo, defSimpleTypeInfo, defFullTypeInfo] = [defNoTypeInfo] then
FreeAndNil(FResText);
begin
FResText := '';
// FreeAndNil(FResText);
end;
if (FCallback <> nil) then begin
// All to local vars, because SELF may be destroyed before/while the callback happens

2
lcl/include/treeview.inc
View File

@ -783,7 +783,7 @@ procedure TTreeNode.FreeAllNodeData;
var
i: Integer;
begin
FreeAndNil(FData);
FreeAndNil(TObject(FData));
for i:=0 to Count-1 do
Items[i].FreeAllNodeData;
end;