瀏覽代碼

Don't try to export generics.

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

git-svn-id: trunk@33963 -
svenbarth 9 年之前
父節點
當前提交
fa4690eef8
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/pkgutil.pas

+ 1 - 1
compiler/pkgutil.pas

@@ -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;