paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:10:45 +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(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;