paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix access violation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-17 14:11:42 +02:00
parent 0e24cef774
commit 0d9412ffbe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/classes.pas
View File

@ -8695,7 +8695,7 @@ begin
if (Result=nil) then begin
PersistentClass := GetClass(AClassName);
if PersistentClass.InheritsFrom(TComponent) then
if Assigned(PersistentClass) and PersistentClass.InheritsFrom(TComponent) then
Result := TComponentClass(PersistentClass);
end;