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

Don't try to export generics.

Browse Source 
pkgutil.pas, exportabstractrecorddef:
  * if it's a generic then leave before iterating the nested types

git-svn-id: trunk@33963 -
This commit is contained in:
svenbarth 2016-06-12 09:25:22 +00:00
parent 580cf73e64
commit fa4690eef8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pkgutil.pas
View File

@ -135,10 +135,10 @@ implementation
{ for cross unit type aliases this might happen }
if def.owner<>symtable then
exit;
def.symtable.SymList.ForEachCall(@exportabstractrecordsymproc,def.symtable);
{ don't export generics or their nested types }
if df_generic in def.defoptions then
exit;
def.symtable.SymList.ForEachCall(@exportabstractrecordsymproc,def.symtable);
if (def.typ=objectdef) and (oo_has_vmt in tobjectdef(def).objectoptions) then
begin
hp:=texported_item.create;