* fixed -OWsymbolliveness for linux/ppc64 (exported function symbol names

start with a '.' there)

git-svn-id: trunk@12347 -
This commit is contained in:
Jonas Maebe 2008-12-12 12:22:38 +00:00
parent d357fb8936
commit dae90242e4

View File

@ -302,6 +302,11 @@ const
result:=false;
fsymtypepos:=pos(' ',line)+1;
fsymnamepos:=fsymtypepos+2;
{ on Linux/ppc64, there is an extra '.' at the start
of public function names
}
if (target_info.system=system_powerpc64_linux) then
inc(fsymnamepos);
if failiferror(fsymtypepos<=0) then
exit;
{ make sure there's room for the name }