Forráskód Böngészése

pkgutil.pas, insert_export:
* 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 -

svenbarth 9 éve
szülő
commit
a4cfa64d96
1 módosított fájl, 1 hozzáadás és 4 törlés
  1. 1 4
      compiler/pkgutil.pas

+ 1 - 4
compiler/pkgutil.pas

@@ -181,10 +181,7 @@ implementation
           begin
           begin
             if publiconly and not (vo_is_public in tstaticvarsym(sym).varoptions) then
             if publiconly and not (vo_is_public in tstaticvarsym(sym).varoptions) then
               exit;
               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;
           end;
         else
         else
           begin
           begin