From 973c973081dc6b01a8ffed7343f6798336b682a5 Mon Sep 17 00:00:00 2001 From: peter Date: Tue, 27 Feb 2007 18:21:52 +0000 Subject: [PATCH] * don't write alignment for .comm and .lcomm, it seems to be only supported by i386-linux git-svn-id: trunk@6675 - --- compiler/aggas.pas | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/compiler/aggas.pas b/compiler/aggas.pas index c0b2b1bb94..ee87ed2075 100644 --- a/compiler/aggas.pas +++ b/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;