mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 09:49:22 +02:00
IDE/lazbuild: write idemake.cfg in Windows system codepage, bug #29157
git-svn-id: trunk@50719 -
This commit is contained in:
parent
e41b4463fa
commit
f9b481b253
@ -951,7 +951,13 @@ begin
|
|||||||
fs:=TFileStreamUTF8.Create(Filename,fmCreate);
|
fs:=TFileStreamUTF8.Create(Filename,fmCreate);
|
||||||
try
|
try
|
||||||
if fExtraOptions<>'' then begin
|
if fExtraOptions<>'' then begin
|
||||||
OptionsAsText:=BreakExtraOptions;
|
{$IFDEF MSWindows}
|
||||||
|
// Under Windows FPC expects console codepage for command line params
|
||||||
|
// and system codepage in config files
|
||||||
|
OptionsAsText:=UTF8ToWinCP(BreakExtraOptions);
|
||||||
|
{$ELSE}
|
||||||
|
OptionsAsText:=UTF8ToSys(BreakExtraOptions);
|
||||||
|
{$ENDIF}
|
||||||
fs.Write(OptionsAsText[1],length(OptionsAsText));
|
fs.Write(OptionsAsText[1],length(OptionsAsText));
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
Loading…
Reference in New Issue
Block a user