paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 12:45:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid range check error in TVMTBuilder.intf_optimize_vtbls by early bailing out if a class has no interfaces

Browse Source
This commit is contained in:
florian 2024-04-21 19:26:01 +02:00
parent 88ab9576b1
commit c3a3cfe80f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nobj.pas
View File

@ -680,6 +680,8 @@ implementation
cji: boolean; cji: boolean;
begin begin
ImplIntfCount:=_class.ImplementedInterfaces.count; ImplIntfCount:=_class.ImplementedInterfaces.count;
if ImplIntfCount=0 then
exit;
SetLength(compats,ImplIntfCount); SetLength(compats,ImplIntfCount);
SetLength(aequals,ImplIntfCount); SetLength(aequals,ImplIntfCount);
SetLength(impls,ImplIntfCount); SetLength(impls,ImplIntfCount);