paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:09:17 +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); stopOptions(1);
end; end;
inc(Level); 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 end
else else
if (s='IFNDEF') then if (s='IFNDEF') then
@ -3495,7 +3499,11 @@ begin
stopOptions(1); stopOptions(1);
end; end;
inc(Level); 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 end
else else
if (s='ELSE') then if (s='ELSE') then