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

* Darwin fixes

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-01 18:16:10 +00:00
parent 563f7ba253
commit bd53954c88
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aggas.pas
View File

@ -288,6 +288,9 @@ var
'.debug_frame' '.debug_frame'
); );
begin begin
if (target_info.system = system_powerpc_darwin) and
(atype = sec_bss) then
atype := sec_code;
if use_smartlink_section and if use_smartlink_section and
(atype<>sec_bss) and (atype<>sec_bss) and
(aname<>'') then (aname<>'') then
@ -302,7 +305,8 @@ var
s : string; s : string;
begin begin
AsmLn; AsmLn;
AsmWrite('.section '); if (target_info.system <> system_powerpc_darwin) then
AsmWrite('.section ');
s:=sectionname(atype,aname); s:=sectionname(atype,aname);
AsmWrite(s); AsmWrite(s);
if copy(s,1,4)='.gnu' then if copy(s,1,4)='.gnu' then
@ -962,7 +966,10 @@ var
end. end.
{ {
$Log$ $Log$
Revision 1.55 2004-06-20 08:55:28 florian Revision 1.56 2004-07-01 18:16:10 jonas
* Darwin fixes
Revision 1.55 2004/06/20 08:55:28 florian
* logs truncated * logs truncated
Revision 1.54 2004/06/16 20:07:06 florian Revision 1.54 2004/06/16 20:07:06 florian