paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't export types that have been merely renamed (and thus are part of another unit and potentially another package altogether)

Browse Source 
git-svn-id: trunk@34340 -
This commit is contained in:
svenbarth 2016-08-19 13:29:33 +00:00
parent 1c696b0e77
commit f1cdb5c4e9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pkgutil.pas
View File

@ -168,7 +168,10 @@ implementation
procedure export_typedef(def:tdef;symtable:tsymtable;global:boolean); procedure export_typedef(def:tdef;symtable:tsymtable;global:boolean);
begin begin
if not (global or is_class(def)) or (df_internal in def.defoptions) then if not (global or is_class(def)) or
(df_internal in def.defoptions) or
{ happens with type renaming declarations ("abc = xyz") }
(def.owner<>symtable) then
exit; exit;
if ds_rtti_table_written in def.defstates then if ds_rtti_table_written in def.defstates then
exportname(def.rtti_mangledname(fullrtti)); exportname(def.rtti_mangledname(fullrtti));