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

* code symbols start with a dot on AIX just like on linux/ppc64

Browse Source 
git-svn-id: trunk@20813 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:04:16 +00:00
parent 44bd889b9b
commit 909f99b4c7
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/optdead.pas
View File

@ -305,7 +305,7 @@ const
{ on Linux/ppc64, there is an extra '.' at the start { on Linux/ppc64, there is an extra '.' at the start
of public function names of public function names
} }
if (target_info.system=system_powerpc64_linux) then if (target_info.system in ([system_powerpc64_linux]+systems_aix)) then
inc(fsymnamepos); inc(fsymnamepos);
if failiferror(fsymtypepos<=0) then if failiferror(fsymtypepos<=0) then
exit; exit;