Browse Source

* Add Mac OS X exception again

git-svn-id: trunk@776 -
daniel 20 years ago
parent
commit
e9f8903be4
1 changed files with 26 additions and 28 deletions
  1. 26 28
      compiler/aggas.pas

+ 26 - 28
compiler/aggas.pas

@@ -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}