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

* enable to check the existing of environment variables in config files

Browse Source
This commit is contained in:
florian 2023-02-08 21:33:21 +01:00
parent 910fc7215d
commit 7e3bdd501c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/options.pas
View File

@ -3483,7 +3483,11 @@ begin
stopOptions(1);
end;
inc(Level);
skip[level]:=(skip[level-1] or not defined_macro(upper(GetName(opts))));
{ environment variable? }
if (opts[1]='$') and (opts[length(opts)]='$') then
skip[level]:=skip[level-1] or (GetEnvironmentVariable(copy(opts,2,length(opts)-2))='')
else
skip[level]:=(skip[level-1] or not defined_macro(upper(GetName(opts))));
end
else
if (s='IFNDEF') then
@ -3495,7 +3499,11 @@ begin
stopOptions(1);
end;
inc(Level);
skip[level]:=(skip[level-1] or defined_macro(upper(GetName(opts))));
{ environment variable? }
if (opts[1]='$') and (opts[length(opts)]='$') then
skip[level]:=skip[level-1] or (GetEnvironmentVariable(copy(opts,2,length(opts)-2))<>'')
else
skip[level]:=skip[level-1] or defined_macro(upper(GetName(opts)));
end
else
if (s='ELSE') then