Browse Source

+ call ApplyAsmSymbolRestrictions for symbols that should be exported from ar files

git-svn-id: trunk@45285 -
nickysn 5 years ago
parent
commit
997184778a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ogbase.pas

+ 1 - 1
compiler/ogbase.pas

@@ -1710,7 +1710,7 @@ implementation
         { export globals and common symbols, this is needed
           for .a files }
         if p.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN,AB_COMMON] then
-         FWriter.writesym(p.name);
+         FWriter.writesym(ApplyAsmSymbolRestrictions(p.name));
       end;
 
     procedure TObjOutput.WriteSectionContent(Data:TObjData);