Преглед на файлове

* fixed searching fpc.cfg on {$ifdef need_path_search} OS'es

git-svn-id: trunk@6237 -
Jonas Maebe преди 18 години
родител
ревизия
2ea611e069
променени са 1 файла, в които са добавени 4 реда и са изтрити 4 реда
  1. 4 4
      compiler/globals.pas

+ 4 - 4
compiler/globals.pas

@@ -1039,14 +1039,14 @@ implementation
        p   : pchar;
        p   : pchar;
 {$endif need_path_search}
 {$endif need_path_search}
      begin
      begin
-       exepath:=GetEnvironmentVariable('PPC_EXEC_PATH');
-       if exepath='' then
+       localexepath:=GetEnvironmentVariable('PPC_EXEC_PATH');
+       if localexepath='' then
          begin
          begin
            exeName := FixFileName(system.paramstr(0));
            exeName := FixFileName(system.paramstr(0));
-           exepath := ExtractFilePath(exeName);
+           localexepath := ExtractFilePath(exeName);
          end;
          end;
 {$ifdef need_path_search}
 {$ifdef need_path_search}
-       if exepath='' then
+       if localexepath='' then
         begin
         begin
           hs1 := ExtractFileName(exeName);
           hs1 := ExtractFileName(exeName);
           ChangeFileExt(hs1,source_info.exeext);
           ChangeFileExt(hs1,source_info.exeext);