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

objcdef: remove duplicate variant start check

Browse Source
This commit is contained in:
Jonas Maebe 2022-06-05 23:00:39 +02:00
parent 76e3cfc38f
commit 5d02c65425
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/objcdef.pas
View File

@ -123,8 +123,6 @@ implementation
end; end;
if (varindex<0) then if (varindex<0) then
internalerror(2009081805); internalerror(2009081805);
if (tfieldvarsym(variantstarts[varindex]).fieldoffset<>field.fieldoffset) then
internalerror(2009081804);
{ variant at the same level as a previous one } { variant at the same level as a previous one }
variantstarts.count:=varindex+1; variantstarts.count:=varindex+1;