paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 00:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #29772

Browse Source 
git-svn-id: trunk@33151 -
This commit is contained in:
michael 2016-03-05 13:41:26 +00:00
parent 81c4fe28bf
commit 4ed0c07ea3
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/instantfpc/instantfpc.pas
View File

@ -29,9 +29,11 @@ const
// 1.3 compile in a separate directory, so that parallel invocations do not overwrite link.res files
Procedure Usage;
Procedure Usage(Err : string);
begin
if (Err<>'') then
Writeln('Error : ',Err);
writeln('instantfpc '+Version);
writeln;
writeln('Run pascal source files as scripts.');
@ -76,7 +78,7 @@ begin
writeln;
writeln(' -B');
writeln(' Always recompile.');
Halt(0);
Halt(Ord(Err<>''));
end;
Procedure DisplayCache;
@ -108,7 +110,7 @@ begin
Halt(1);
end
else if p='-h' then
usage
usage('')
else if p='--get-cache' then
DisplayCache
else if copy(p,1,11)='--compiler=' then
@ -167,12 +169,8 @@ begin
end;
end;
if (Filename='') then
begin
writeln('missing source file');
Halt(1);
end;
Usage('Missing source file');
CheckSourceName(Filename);
Src:=TStringList.Create;
try
Src.LoadFromFile(Filename);