Browse Source

First try to find compiler in same directory for vppc64

Pierre Muller 2 tuần trước cách đây
mục cha
commit
b68203a4ae
1 tập tin đã thay đổi với 4 bổ sung1 xóa
  1. 4 1
      compiler/utils/vppcx64.pp

+ 4 - 1
compiler/utils/vppcx64.pp

@@ -127,7 +127,10 @@ begin
       CompilerName:=DefaultCompilerName;
       CompilerName:=DefaultCompilerName;
     end;
     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
   if FullCompilerName='' then
     begin
     begin