Browse Source

- reverted r1733, which caused all local procedures to become global in case
PIC was used. This was probably a workaround for a code generator bug,
which is no longer required

git-svn-id: trunk@21921 -

Jonas Maebe 13 years ago
parent
commit
5e93f6b70f
1 changed files with 1 additions and 6 deletions
  1. 1 6
      compiler/psub.pas

+ 1 - 6
compiler/psub.pas

@@ -1884,12 +1884,7 @@ implementation
             if (not current_module.in_interface) then
             if (not current_module.in_interface) then
               include(pdflags,pd_implemen);
               include(pdflags,pd_implemen);
             if (not current_module.is_unit) or
             if (not current_module.is_unit) or
-               create_smartlink or
-              {
-                taking addresses of static procedures goes wrong
-                if they aren't global when pic is used (FK)
-              }
-              (cs_create_pic in current_settings.moduleswitches) then
+               create_smartlink then
               include(pd.procoptions,po_global);
               include(pd.procoptions,po_global);
             pd.forwarddef:=false;
             pd.forwarddef:=false;
           end;
           end;