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

* don't check for hints if we have a specialization with the same name as the to be used generic (though since the typedef would be errordef it wouldn't print anything anyway...)

Browse Source 
git-svn-id: trunk@34531 -
This commit is contained in:
svenbarth 2016-09-16 15:15:19 +00:00
parent 50f2aab0ef
commit 531829c072
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pexpr.pas
View File

@ -2882,7 +2882,13 @@ implementation
if assigned(srsym) and if assigned(srsym) and
not ( not (
(srsym.typ=typesym) and (srsym.typ=typesym) and
(ttypesym(srsym).typedef.typ in [recorddef,objectdef,arraydef,procvardef,undefineddef]) and (
(ttypesym(srsym).typedef.typ in [recorddef,objectdef,arraydef,procvardef,undefineddef]) or
(
(ttypesym(srsym).typedef.typ=errordef) and
(sp_generic_dummy in srsym.symoptions)
)
) and
not (sp_generic_para in srsym.symoptions) and not (sp_generic_para in srsym.symoptions) and
(token in [_LT, _LSHARPBRACKET]) (token in [_LT, _LSHARPBRACKET])
) then ) then