paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 05:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed arm-linux

Browse Source 
git-svn-id: trunk@6654 -
This commit is contained in:
florian 2007-02-25 20:44:55 +00:00
parent da23643459
commit e3204bb902
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aggas.pas
View File

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