summaryrefslogtreecommitdiff
path: root/compiler/optdead.pas
diff options
context:
space:
mode:
authorjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2012-04-11 18:04:16 +0000
committerjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2012-04-11 18:04:16 +0000
commit1e880417a241d8a8e1fc39cd3ae947863ee1f9c9 (patch)
treedd055c1e24630096a36a3c3b268999c3f7e76b69 /compiler/optdead.pas
parent6a781df311485cc0ce5f0b66359c345c3fffaf63 (diff)
downloadfpc-1e880417a241d8a8e1fc39cd3ae947863ee1f9c9.tar.gz
* code symbols start with a dot on AIX just like on linux/ppc64
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20813 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/optdead.pas')
-rw-r--r--compiler/optdead.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/optdead.pas b/compiler/optdead.pas
index 4867b97600..815eba1bdf 100644
--- a/compiler/optdead.pas
+++ b/compiler/optdead.pas
@@ -305,7 +305,7 @@ const
{ on Linux/ppc64, there is an extra '.' at the start
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);
if failiferror(fsymtypepos<=0) then
exit;