paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* write .type and .size only for target that support it

Browse Source 
git-svn-id: trunk@1956 -
This commit is contained in:
peter 2005-12-15 11:39:23 +00:00
parent cea0af646c
commit 1e1ea0c3b6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aggas.pas
View File

@ -475,8 +475,10 @@ 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));
if (tf_needs_symbol_type in target_info.flags) then
asmwriteln(#9'.type '+Tai_datablock(hp).sym.name+',@object');
if (tf_needs_symbol_size in target_info.flags) and (Tai_datablock(hp).sym.size > 0) then
asmwriteln(#9'.size '+Tai_datablock(hp).sym.name+','+tostr(Tai_datablock(hp).size));
asmwrite(Tai_datablock(hp).sym.name);
asmwriteln(':');
asmwriteln(#9'.zero '+tostr(Tai_datablock(hp).size));