paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed r2970 (% instead of #)

Browse Source 
git-svn-id: trunk@2977 -
This commit is contained in:
Jonas Maebe 2006-03-19 20:41:36 +00:00
parent 6ad5dff9e8
commit d56857e998
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aggas.pas
View File

@ -589,7 +589,7 @@ implementation
if (target_info.system <> system_arm_linux) then if (target_info.system <> system_arm_linux) then
sepChar := '@' sepChar := '@'
else else
sepChar := '#'; sepChar := '%';
if (tf_needs_symbol_type in target_info.flags) then if (tf_needs_symbol_type in target_info.flags) then
asmwriteln(#9'.type '+Tai_datablock(hp).sym.name+','+sepChar+'object'); asmwriteln(#9'.type '+Tai_datablock(hp).sym.name+','+sepChar+'object');
if (tf_needs_symbol_size in target_info.flags) and (tai_datablock(hp).size > 0) then if (tf_needs_symbol_size in target_info.flags) and (tai_datablock(hp).size > 0) then