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

* Allow hidden units to be found when replaying generic

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-03-06 18:43:53 +01:00
parent 5529c589ee
commit b31bf50369
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pgenutil.pas
View File

@ -2702,6 +2702,8 @@ uses
unitsyms : TFPHashObjectList;
sym : tsym;
i : Integer;
n : string;
begin
if not assigned(genericdef) then
internalerror(200705151);
@ -2728,7 +2730,12 @@ uses
begin
sym:=tsym(hmodule.globalsymtable.symlist[i]);
if sym.typ=unitsym then
unitsyms.add(upper(sym.realname),sym);
begin
n:=sym.realname;
if (Copy(n,1,7)='$hidden') then
Delete(n,1,7);
unitsyms.add(upper(n),sym);
end;
end;
{ add all units if we are specializing inside the current unit (as the
generic could have been declared in the implementation part), but load