paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 15:56:00 +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; CB := nil;
try try
if FEvalFlags * [defNoTypeInfo, defSimpleTypeInfo, defFullTypeInfo] = [defNoTypeInfo] then if FEvalFlags * [defNoTypeInfo, defSimpleTypeInfo, defFullTypeInfo] = [defNoTypeInfo] then
FreeAndNil(FResText); begin
FResText := '';
// FreeAndNil(FResText);
end;
if (FCallback <> nil) then begin if (FCallback <> nil) then begin
// All to local vars, because SELF may be destroyed before/while the callback happens // 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 var
i: Integer; i: Integer;
begin begin
FreeAndNil(FData); FreeAndNil(TObject(FData));
for i:=0 to Count-1 do for i:=0 to Count-1 do
Items[i].FreeAllNodeData; Items[i].FreeAllNodeData;
end; end;