paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:29:33 +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

11
utils/instantfpc/instantfptools.pas
View File

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