paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

instantfpc: environment option INSTANTFPCOPTIONS

Browse Source 
git-svn-id: trunk@18996 -
This commit is contained in:
Mattias Gaertner 2011-09-06 20:54:30 +00:00
parent 927d080ab2
commit 117a874ba5
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/instantfpc/instantfpc.pas
View File

@ -25,7 +25,7 @@ uses
Classes, SysUtils, InstantFPTools; Classes, SysUtils, InstantFPTools;
const const
Version = '1.0'; Version = '1.1';
Procedure Usage; Procedure Usage;
@ -49,6 +49,8 @@ begin
writeln(' If compilation was successful the program is executed.'); writeln(' If compilation was successful the program is executed.');
writeln(' If the compiler options contains -B the program is always'); writeln(' If the compiler options contains -B the program is always');
writeln(' compiled.'); writeln(' compiled.');
writeln(' If the environment option INSTANTFPCOPTIONS is set it is');
writeln(' passed to the compiler as first parameters.');
writeln; writeln;
writeln('instantfpc --get-cache'); writeln('instantfpc --get-cache');
writeln(' Prints cache directory to stdout.'); writeln(' Prints cache directory to stdout.');

2
utils/instantfpc/instantfptools.pas
View File

@ -238,7 +238,7 @@ var
p: String; p: String;
i : integer; i : integer;
begin begin
Result:=''; Result:=GetEnvironmentVariable('INSTANTFPCOPTIONS');
I:=1; I:=1;
While (I<=ParamCount) and (Copy(ParamStr(i),1,1)='-') do While (I<=ParamCount) and (Copy(ParamStr(i),1,1)='-') do
begin begin