Преглед на файлове

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

git-svn-id: trunk@45285 -
nickysn преди 5 години
родител
ревизия
997184778a
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      compiler/ogbase.pas

+ 1 - 1
compiler/ogbase.pas

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