paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

instantfpc: fixed compilation for 2.4.4

Browse Source 
git-svn-id: trunk@18029 -
This commit is contained in:
Mattias Gaertner 2011-07-28 06:56:40 +00:00
parent ad94e5e719
commit 391f268bbb
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/instantfpc/instantfptools.pas
View File

@ -145,9 +145,7 @@ var
StartPos: LongInt; StartPos: LongInt;
Dir: String; Dir: String;
CompFile: String; CompFile: String;
i: Integer;
Param: String;
begin begin
Result:=CmdCompiler; Result:=CmdCompiler;
if (Result<>'') then if (Result<>'') then
@ -166,9 +164,9 @@ begin
{$ELSE} {$ELSE}
CompFile:='fpc'; CompFile:='fpc';
{$ENDIF} {$ENDIF}
Result:=ExeSearch(CompFile);
Path:=GetEnvironmentVariable('PATH'); Path:=GetEnvironmentVariable('PATH');
{ if PATH<>'' then begin {$IFDEF VER2_4}
if PATH<>'' then begin
p:=1; p:=1;
while p<=length(Path) do begin while p<=length(Path) do begin
StartPos:=p; StartPos:=p;
@ -181,7 +179,10 @@ begin
inc(p); inc(p);
end; end;
end; end;
} {$ELSE}
Result:=ExeSearch(CompFile);
{$ENDIF}
if (Result='') then if (Result='') then
begin begin
writeln('Error: '+CompFile+' not found in PATH'); writeln('Error: '+CompFile+' not found in PATH');