From 29ba426fcc889f7d3651837e9ddd73569b9e7a46 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 2 Aug 2015 20:45:49 +0000
Subject: [PATCH] * call DefaultReplacements for #WRITE and #INCLUDE, resolves
 #28315

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

diff --git a/compiler/options.pas b/compiler/options.pas
index 390675bb85..55a6bd622f 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -2674,6 +2674,7 @@ begin
                if (s='WRITE') then
                 begin
                   Delete(opts,1,1);
+                  DefaultReplacements(opts);
                   WriteLn(opts);
                   Option_read:=true;
                 end
@@ -2681,6 +2682,7 @@ begin
                if (s='INCLUDE') then
                 begin
                   Delete(opts,1,1);
+                  DefaultReplacements(opts);
                   Interpret_file(opts);
                   Option_read:=true;
                 end