From 1e1ea0c3b6691c1ed31c6ae67d64dd79b045b894 Mon Sep 17 00:00:00 2001 From: peter Date: Thu, 15 Dec 2005 11:39:23 +0000 Subject: [PATCH] * write .type and .size only for target that support it git-svn-id: trunk@1956 - --- compiler/aggas.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/aggas.pas b/compiler/aggas.pas index ab0a3c2f29..2b7ec69fa3 100644 --- a/compiler/aggas.pas +++ b/compiler/aggas.pas @@ -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));