Просмотр исходного кода

Do not set usesectionprogbits and usesectionflags to true for solaris assembler

Pierre Muller 3 лет назад
Родитель
Сommit
4a8b2fb284
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      compiler/aggas.pas

+ 2 - 1
compiler/aggas.pas

@@ -565,7 +565,8 @@ implementation
              writer.AsmWrite('.section ');
              writer.AsmWrite('.section ');
              { sectionname may rename those sections, so we do not write flags/progbits for them,
              { sectionname may rename those sections, so we do not write flags/progbits for them,
                the assembler will ignore them/spite out a warning anyways }
                the assembler will ignore them/spite out a warning anyways }
-             if not(atype in [sec_data,sec_rodata,sec_rodata_norel]) then
+             if not(atype in [sec_data,sec_rodata,sec_rodata_norel]) and
+                not(asminfo^.id=as_solaris_as) then
                begin
                begin
                  usesectionflags:=true;
                  usesectionflags:=true;
                  usesectionprogbits:=true;
                  usesectionprogbits:=true;