paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

pkgutil.pas, insert_export:

Browse Source 
* only export the symbol name with the indirect suffix (on Windows the indirect ones will be generated in the module that does the importing on other system's they're not needed anyway)

git-svn-id: trunk@33966 -
This commit is contained in:
svenbarth 2016-06-12 12:50:20 +00:00
parent 22b0553be3
commit a4cfa64d96
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pkgutil.pas
View File

@ -181,10 +181,7 @@ implementation
begin
if publiconly and not (vo_is_public in tstaticvarsym(sym).varoptions) then
exit;
if target_info.system in systems_indirect_var_imports then
varexport(tsym(sym).mangledname)
else
varexport(tsym(sym).mangledname+suffix_indirect);
varexport(tsym(sym).mangledname);
end;
else
begin