Browse Source

Don't try to export generic symbols.

pkgutil.pas:
  * exportabstractrecordsymproc: do not export generic type symbols or their nested symbols

git-svn-id: branches/svenbarth/packages@28904 -
svenbarth 10 years ago
parent
commit
93b8531ae1
1 changed files with 3 additions and 0 deletions
  1. 3 0
      compiler/pkgutil.pas

+ 3 - 0
compiler/pkgutil.pas

@@ -100,6 +100,9 @@ implementation
               recorddef:
                 begin
                   def:=tabstractrecorddef(ttypesym(sym).typedef);
+                  { don't export generics or their nested types }
+                  if df_generic in def.defoptions then
+                    exit;
                   def.symtable.symlist.foreachcall(@exportabstractrecordsymproc,def.symtable);
                 end;
             end;