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

* open config files read only so they can be open by multiple compilers at once

Browse Source 
git-svn-id: trunk@23254 -
This commit is contained in:
florian 2012-12-31 14:13:05 +00:00
parent eaeb63f86d
commit c9d8047113
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

@ -2102,6 +2102,7 @@ var
line, line,
level : longint; level : longint;
option_read : boolean; option_read : boolean;
oldfilemode : byte;
begin begin
{ avoid infinite loop } { avoid infinite loop }
Inc(FileLevel); Inc(FileLevel);
@ -2116,10 +2117,13 @@ begin
end; end;
{ open file } { open file }
Message1(option_using_file,filename); Message1(option_using_file,filename);
oldfilemode:=filemode;
filemode:=0;
assign(f,ExpandFileName(filename)); assign(f,ExpandFileName(filename));
{$push}{$I-} {$push}{$I-}
reset(f); reset(f);
{$pop} {$pop}
filemode:=oldfilemode;
if ioresult<>0 then if ioresult<>0 then
begin begin
Message1(option_unable_open_file,filename); Message1(option_unable_open_file,filename);