paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 20:49:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Result needs to be assigned when doing FindInFieldTable

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-10 10:32:44 +02:00
parent 4cae231a52
commit cc20d1fe06
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/reader.inc
View File

@ -1956,7 +1956,7 @@ begin
Result:=FindInFieldTable(Root);
if (Result=nil) and assigned(LookupRoot) and (LookupRoot<>Root) then
FindInFieldTable(LookupRoot);
Result:=FindInFieldTable(LookupRoot);
if (Result=nil) and assigned(OnFindComponentClassEx) then
OnFindComponentClassEx(Self, AName, anUnitName, AClassName, Result);