Forráskód Böngészése

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

git-svn-id: trunk@1931 -

florian 19 éve
szülő
commit
fb8e885a94
1 módosított fájl, 3 hozzáadás és 1 törlés
  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;