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

* don't say a config file is empty if it only contains #define, #undef,

Browse Source 
#write and/or #include statements (mantis #20504)

git-svn-id: trunk@21345 -
This commit is contained in:
Jonas Maebe 2012-05-20 15:00:53 +00:00
parent eb7e192226
commit 7dbfd9dc81
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/options.pas
View File

@ -2200,6 +2200,7 @@ begin
tmp:= GetName(opts);
if tmp <> '' then
def_system_macro(tmp);
Option_read:=true;
end
else
if (s='UNDEF') then
@ -2208,18 +2209,21 @@ begin
tmp:= GetName(opts);
if tmp <> '' then
undef_system_macro(tmp);
Option_read:=true;
end
else
if (s='WRITE') then
begin
Delete(opts,1,1);
WriteLn(opts);
Option_read:=true;
end
else
if (s='INCLUDE') then
begin
Delete(opts,1,1);
Interpret_file(opts);
Option_read:=true;
end;
end;
end