paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 03:50:57 +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 } { for cross unit type aliases this might happen }
if def.owner<>symtable then if def.owner<>symtable then
exit; exit;
def.symtable.SymList.ForEachCall(@exportabstractrecordsymproc,def.symtable);
{ don't export generics or their nested types } { don't export generics or their nested types }
if df_generic in def.defoptions then if df_generic in def.defoptions then
exit; exit;
def.symtable.SymList.ForEachCall(@exportabstractrecordsymproc,def.symtable);
if (def.typ=objectdef) and (oo_has_vmt in tobjectdef(def).objectoptions) then if (def.typ=objectdef) and (oo_has_vmt in tobjectdef(def).objectoptions) then
begin begin
hp:=texported_item.create; hp:=texported_item.create;