浏览代码

* fixed linux compile

git-svn-id: trunk@5117 -
peter 19 年之前
父节点
当前提交
d21842fe61
共有 2 个文件被更改,包括 2 次插入2 次删除
  1. 1 1
      compiler/globals.pas
  2. 1 1
      compiler/options.pas

+ 1 - 1
compiler/globals.pas

@@ -1108,7 +1108,7 @@ implementation
 {$else macos}
           p:=GetEnvPchar('PATH');
 {$endif macos}
-          FindFilePChar(hs1,p,exepath);
+          FindFilePChar(hs1,p,false,exepath);
           FreeEnvPChar(p);
           exepath:=ExtractFilePath(exepath);
         end;

+ 1 - 1
compiler/options.pas

@@ -2134,7 +2134,7 @@ begin
   fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false);
   if fpcdir='' then
     begin
-      if PathExists('/usr/local/lib/fpc/'+version_string) then
+      if PathExists('/usr/local/lib/fpc/'+version_string,true) then
         fpcdir:='/usr/local/lib/fpc/'+version_string+'/'
       else
         fpcdir:='/usr/lib/fpc/'+version_string+'/';