Browse Source

* don't write alignment for .comm and .lcomm, it seems to be only
supported by i386-linux

git-svn-id: trunk@6675 -

peter 18 years ago
parent
commit
973c973081
1 changed files with 4 additions and 9 deletions
  1. 4 9
      compiler/aggas.pas

+ 4 - 9
compiler/aggas.pas

@@ -609,9 +609,8 @@ implementation
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(','+tostr(tai_datablock(hp).size));
-                       if not(target_info.system in [system_arm_linux,system_i386_win32,system_arm_wince]) then
-                         asmwrite(','+tostr(last_align));
-                       asmwriteln('');
+                       asmwrite(','+tostr(last_align));
+                       asmln;
                      end
                  end
                else
@@ -625,18 +624,14 @@ implementation
                        asmwrite(#9'.comm'#9);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(','+tostr(tai_datablock(hp).size));
-                       if not(target_info.system in [system_arm_linux,system_i386_win32,system_arm_wince]) then
-                         asmwrite(','+tostr(last_align));
-                       asmwriteln('');
+                       asmln;
                      end
                    else
                      begin
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(','+tostr(tai_datablock(hp).size));
-                       if not(target_info.system in [system_arm_linux,system_i386_win32,system_arm_wince]) then
-                         asmwrite(','+tostr(last_align));
-                       asmwriteln('');
+                       asmln;
                      end;
                  end;
              end;