Forráskód Böngészése

* 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...)

git-svn-id: trunk@34531 -
svenbarth 9 éve
szülő
commit
531829c072
1 módosított fájl, 7 hozzáadás és 1 törlés
  1. 7 1
      compiler/pexpr.pas

+ 7 - 1
compiler/pexpr.pas

@@ -2882,7 +2882,13 @@ implementation
                if assigned(srsym) and
                    not (
                      (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
                      (token in [_LT, _LSHARPBRACKET])
                    ) then