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

* if a symbol is not part of a symtable then assume it's from the current module

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-06 12:49:57 +01:00
parent b5ab81c983
commit 897f0e1784
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pgenutil.pas
View File

@ -94,7 +94,10 @@ uses
prettynamepart : ansistring;
module : tmodule;
begin
module:=find_module_from_symtable(paramtype.owner);
if assigned(paramtype.owner) then
module:=find_module_from_symtable(paramtype.owner)
else
module:=current_module;
if not assigned(module) then
internalerror(2016112802);
namepart:='_$'+hexstr(module.moduleid,8)+'$$'+paramtype.unique_id_str;
@ -2678,7 +2681,10 @@ uses
current_module.extendeddefs:=TFPHashObjectList.create(true);
current_module.genericdummysyms:=tfphashobjectlist.create(true);
symtablestack:=tdefawaresymtablestack.create;
hmodule:=find_module_from_symtable(genericdef.owner);
if not assigned(genericdef.owner) then
hmodule:=current_module
else
hmodule:=find_module_from_symtable(genericdef.owner);
if hmodule=nil then
internalerror(200705152);
{ collect all unit syms in the generic's unit as we need to establish