paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't write alignment for .comm and .lcomm, it seems to be only

Browse Source 
supported by i386-linux

git-svn-id: trunk@6675 -
This commit is contained in:
peter 2007-02-27 18:21:52 +00:00
parent 0ea8f747b1
commit 973c973081
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aggas.pas
View File

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