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

* call DefaultReplacements for #WRITE and #INCLUDE, resolves #28315

Browse Source 
git-svn-id: trunk@31263 -
This commit is contained in:
florian 2015-08-02 20:45:49 +00:00
parent 9a55e8fa3c
commit 29ba426fcc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/options.pas
View File

@ -2674,6 +2674,7 @@ begin
if (s='WRITE') then if (s='WRITE') then
begin begin
Delete(opts,1,1); Delete(opts,1,1);
DefaultReplacements(opts);
WriteLn(opts); WriteLn(opts);
Option_read:=true; Option_read:=true;
end end
@ -2681,6 +2682,7 @@ begin
if (s='INCLUDE') then if (s='INCLUDE') then
begin begin
Delete(opts,1,1); Delete(opts,1,1);
DefaultReplacements(opts);
Interpret_file(opts); Interpret_file(opts);
Option_read:=true; Option_read:=true;
end end