paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed .toc section label generation

Browse Source 
git-svn-id: trunk@3673 -
This commit is contained in:
tom_at_work 2006-05-25 20:00:48 +00:00
parent 9ff47fa9a8
commit da95ffc4f3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/aggas.pas
View File

@ -287,6 +287,7 @@ implementation
if not(target_info.system in [system_powerpc_darwin,system_i386_darwin]) and if not(target_info.system in [system_powerpc_darwin,system_i386_darwin]) and
use_smartlink_section and use_smartlink_section and
(aname<>'') and (aname<>'') and
(atype <> sec_toc) and
(atype<>sec_bss) then (atype<>sec_bss) then
result:=secname+'.'+aname result:=secname+'.'+aname
else else