Bladeren bron

* 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
+ added tests

git-svn-id: trunk@42329 -

svenbarth 6 jaren geleden
bovenliggende
commit
2e4d8e36a5
1 gewijzigde bestanden met toevoegingen van 10 en 0 verwijderingen
  1. 10 0
      compiler/pdecsub.pas

+ 10 - 0
compiler/pdecsub.pas

@@ -1050,6 +1050,16 @@ implementation
                              HideSym(srsym);
                              searchagain:=true;
                            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
                           begin
                             {  we use a different error message for tp7 so it looks more compatible }