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

* fix for Mantis #35670: when a unused dummy symbol is found for a non-generic procedure/function, hide that dummy symbol and create a new symbol for the procedure/function

Browse Source 
+ added tests

git-svn-id: trunk@42329 -
This commit is contained in:
svenbarth 2019-07-05 14:12:16 +00:00
parent d0eddbcbb9
commit 2e4d8e36a5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -1050,6 +1050,16 @@ implementation
HideSym(srsym); HideSym(srsym);
searchagain:=true; searchagain:=true;
end end
else if (srsym.typ=typesym) and
(sp_generic_dummy in srsym.symoptions) and
(ttypesym(srsym).typedef.typ=undefineddef) then
begin
{ this is a generic dummy symbol that has not yet
been used; so we rename the dummy symbol and continue
as if nothing happened }
hidesym(srsym);
searchagain:=true;
end
else else
begin begin
{ we use a different error message for tp7 so it looks more compatible } { we use a different error message for tp7 so it looks more compatible }