瀏覽代碼

First try to find compiler in same directory for vppc64

Pierre Muller 2 周之前
父節點
當前提交
b68203a4ae
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/utils/vppcx64.pp

+ 4 - 1
compiler/utils/vppcx64.pp

@@ -127,7 +127,10 @@ begin
       CompilerName:=DefaultCompilerName;
     end;
 
-  FullCompilerName:=filesearch(CompilerName,Dir+PathSep+GetEnvironmentVariable('PATH'));
+  if FileExists(Dir+CompilerName) then
+    FullCompilerName:=Dir+CompilerName
+  else
+    FullCompilerName:=filesearch(CompilerName,Dir+PathSep+GetEnvironmentVariable('PATH'));
 
   if FullCompilerName='' then
     begin