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

* darwin only supports .align, no .balign

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-04 21:08:59 +00:00
parent 7f911c2f4a
commit 8f33050b86
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/aggas.pas
View File

@ -417,9 +417,19 @@ var
ait_align : ait_align :
begin begin
AsmWrite(#9'.balign '+tostr(tai_align(hp).aligntype)); if target_info.system <> system_powerpc_darwin then
if tai_align(hp).use_op then begin
AsmWrite(','+tostr(tai_align(hp).fillop)); AsmWrite(#9'.balign '+tostr(tai_align(hp).aligntype));
if tai_align(hp).use_op then
AsmWrite(','+tostr(tai_align(hp).fillop))
end
else
begin
{ darwin as only supports .align }
if not ispowerof2(tai_align(hp).aligntype,i) then
internalerror(2003010305);
AsmWrite(#9'.align '+tostr(i));
end;
AsmLn; AsmLn;
end; end;
@ -835,7 +845,10 @@ var
end. end.
{ {
$Log$ $Log$
Revision 1.40 2004-01-03 13:51:05 jonas Revision 1.41 2004-01-04 21:08:59 jonas
* darwin only supports .align, no .balign
Revision 1.40 2004/01/03 13:51:05 jonas
+ support exported procedures for linuxppc + support exported procedures for linuxppc
* refuse to compile systems/t_linux.pas if processor-specific support * refuse to compile systems/t_linux.pas if processor-specific support
for exported procedures is absent for exported procedures is absent