|
@@ -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);
|