Browse Source

+ write data block size and type
* changed .space to .zero

git-svn-id: trunk@1931 -

florian 19 years ago
parent
commit
fb8e885a94
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/aggas.pas

+ 3 - 1
compiler/aggas.pas

@@ -470,9 +470,11 @@ implementation
                        asmwrite(#9'.globl ');
                        asmwriteln(Tai_datablock(hp).sym.name);
                      end;
+                   asmwriteln(#9'.type '+Tai_datablock(hp).sym.name+',@object');
+                   asmwriteln(#9'.size '+Tai_datablock(hp).sym.name+','+tostr(Tai_datablock(hp).size));
                    asmwrite(Tai_datablock(hp).sym.name);
                    asmwriteln(':');
-                   asmwriteln(#9'.space '+tostr(Tai_datablock(hp).size));
+                   asmwriteln(#9'.zero '+tostr(Tai_datablock(hp).size));
                  end;
              end;