paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 05:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add Mac OS X exception again

Browse Source 
git-svn-id: trunk@776 -
This commit is contained in:
daniel 2005-08-01 06:44:28 +00:00
parent 94447481c1
commit e9f8903be4
1 changed files with 26 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
compiler/aggas.pas
View File

@ -513,41 +513,39 @@ var
ait_datablock :
begin
if Tai_datablock(hp).is_global then
begin
asmwrite(#9'.globl ');
asmwriteln(Tai_datablock(hp).sym.name);
end;
asmwrite(Tai_datablock(hp).sym.name);
asmwriteln(':');
asmwriteln(#9'.space '+tostr(Tai_datablock(hp).size));
{$ifdef disabled}
if (target_info.system <> system_powerpc_darwin) or
not tai_datablock(hp).is_global then
if target_info.system=system_powerpc_darwin then
begin
if tai_datablock(hp).is_global then
AsmWrite(#9'.comm'#9)
begin
asmwrite('.globl ');
asmwriteln(tai_datablock(hp).sym.name);
asmwriteln('.data');
asmwrite('.zerofill __DATA, __common, ');
asmwrite(tai_datablock(hp).sym.name);
asmwriteln(', '+tostr(tai_datablock(hp).size)+','+tostr(last_align));
if not(lastSectype in [sec_data,sec_none]) then
writesection(lastSectype,'');
end
else
AsmWrite(#9'.lcomm'#9);
AsmWrite(tai_datablock(hp).sym.name);
AsmWrite(','+tostr(tai_datablock(hp).size));
if (target_info.system = system_powerpc_darwin) { and
not(tai_datablock(hp).is_global)} then
AsmWrite(','+tostr(last_align));
AsmWriteln('');
begin
asmwrite(#9'.lcomm'#9);
asmwrite(tai_datablock(hp).sym.name);
asmwrite(','+tostr(tai_datablock(hp).size));
asmwrite(','+tostr(last_align));
asmwriteln('');
end
end
else
begin
AsmWrite('.globl ');
AsmWriteln(tai_datablock(hp).sym.name);
AsmWriteln('.data');
AsmWrite('.zerofill __DATA, __common, ');
AsmWrite(tai_datablock(hp).sym.name);
AsmWriteln(', '+tostr(tai_datablock(hp).size)+','+tostr(last_align));
if not(lasTSectype in [sec_data,sec_none]) then
WriteSection(lasTSectype,'');
if Tai_datablock(hp).is_global then
begin
asmwrite(#9'.globl ');
asmwriteln(Tai_datablock(hp).sym.name);
end;
asmwrite(Tai_datablock(hp).sym.name);
asmwriteln(':');
asmwriteln(#9'.space '+tostr(Tai_datablock(hp).size));
end;
{$endif}
end;
{$ifndef cpu64bit}