paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:07:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: simplified code

Browse Source 
git-svn-id: trunk@50724 -
This commit is contained in:
mattias 2015-12-09 22:58:43 +00:00
parent b48a3ea89e
commit 75f2d2c3a2
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/buildlazdialog.pas
View File

@ -951,13 +951,9 @@ begin
fs:=TFileStreamUTF8.Create(Filename,fmCreate);
try
if fExtraOptions<>'' then begin
{$IFDEF MSWindows}
// Under Windows FPC expects console codepage for command line params
// 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));
end;
finally