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