paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* win32 doesn't like the lcomm with two parameters either

Browse Source 
git-svn-id: trunk@6657 -
This commit is contained in:
florian 2007-02-25 21:19:44 +00:00
parent 821e6abae1
commit bc73129bea
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aggas.pas
View File

@ -609,7 +609,7 @@ 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]) then if not(target_info.system in [system_arm_linux,system_i386_win32]) then
asmwrite(','+tostr(last_align)); asmwrite(','+tostr(last_align));
asmwriteln(''); asmwriteln('');
end end
@ -625,7 +625,8 @@ 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));
asmwrite(','+tostr(last_align)); if not(target_info.system in [system_arm_linux,system_i386_win32]) then
asmwrite(','+tostr(last_align));
asmwriteln(''); asmwriteln('');
end end
else else
@ -633,7 +634,7 @@ 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]) then if not(target_info.system in [system_arm_linux,system_i386_win32]) then
asmwrite(','+tostr(last_align)); asmwrite(','+tostr(last_align));
asmwriteln(''); asmwriteln('');
end; end;