From 7dbfd9dc812440e749af3d6c494d53c5c60248e0 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 20 May 2012 15:00:53 +0000
Subject: [PATCH]   * don't say a config file is empty if it only contains
 #define, #undef,     #write and/or #include statements (mantis #20504)

git-svn-id: trunk@21345 -
---
 compiler/options.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/options.pas b/compiler/options.pas
index 5d72c37d18..7916762fd5 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -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