瀏覽代碼

+ also look for 'gnm' (necessary for e.g. solaris)

git-svn-id: trunk@12348 -
Jonas Maebe 16 年之前
父節點
當前提交
dcf7412ea4
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      compiler/optdead.pas

+ 3 - 0
compiler/optdead.pas

@@ -351,6 +351,9 @@ const
     begin { twpodeadcodeinfofromexternallinker }
     begin { twpodeadcodeinfofromexternallinker }
       { try nm }
       { try nm }
       symbolprogfound:=findutil('nm',nmfullname,symbolprogfullpath);
       symbolprogfound:=findutil('nm',nmfullname,symbolprogfullpath);
+      { gnu-nm (e.g., on solaris) }
+      if not symbolprogfound then
+        symbolprogfound:=findutil('gnm',nmfullname,symbolprogfullpath);
       if not symbolprogfound then
       if not symbolprogfound then
         begin
         begin
           { try objdump }
           { try objdump }