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

* don't check for a duplicate internal symbol in inherited symtables

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-05 19:36:49 +01:00
parent 3ca3c7a606
commit ac4df2b066
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symtable.pas
View File

@ -1987,8 +1987,10 @@ implementation
{ procsym and propertysym have special code
to override values in inherited classes. For other
symbols check for duplicates }
if not(sym.typ in [procsym,propertysym]) then
symbols check for duplicates (but for internal symbols only in this
symtable, not the whole hierarchy) }
if not(sym.typ in [procsym,propertysym]) and
not (sp_internal in tsym(sym).symoptions) then
begin
{ but private ids can be reused }
hsym:=search_struct_member(tobjectdef(defowner),hashedid.id);