Browse Source

* fixed -OWsymbolliveness for linux/ppc64 (exported function symbol names
start with a '.' there)

git-svn-id: trunk@12347 -

Jonas Maebe 16 năm trước cách đây
mục cha
commit
dae90242e4
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  1. 5 0
      compiler/optdead.pas

+ 5 - 0
compiler/optdead.pas

@@ -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 }