paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazbuild: clean up

Browse Source 
git-svn-id: trunk@30799 -
This commit is contained in:
mattias 2011-05-18 16:50:57 +00:00
parent e92aaad1e8
commit 4cc4707c44
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/environmentopts.pp
View File

@ -348,7 +348,7 @@ type
procedure Load(OnlyDesktop:boolean);
procedure Save(OnlyDesktop:boolean);
property Filename: string read FFilename write SetFilename;
procedure CreateEnvironmentConfig;
procedure CreateConfig;
procedure GetDefaultFPCSourceDirectory;
function IsDebuggerClassDefined: boolean;
function GetTestBuildDirectory: string;
@ -887,7 +887,7 @@ begin
inherited DoAfterWrite(Restore);
end;
procedure TEnvironmentOptions.CreateEnvironmentConfig;
procedure TEnvironmentOptions.CreateConfig;
var
ConfFileName: string;
begin

2
ide/lazbuild.lpr
View File

@ -796,7 +796,7 @@ begin
if EnvironmentOptions<>nil then exit;
EnvironmentOptions:=TEnvironmentOptions.Create;
with EnvironmentOptions do begin
CreateEnvironmentConfig;
CreateConfig;
Load(false);
if Application.HasOption('language') then begin
debugln('TLazBuildApplication.Init overriding language with command line: ',

2
ide/main.pp
View File

@ -1255,7 +1255,7 @@ begin
OnBeforeRead := @DoEnvironmentOptionsBeforeRead;
OnBeforeWrite := @DoEnvironmentOptionsBeforeWrite;
OnAfterWrite := @DoEnvironmentOptionsAfterWrite;
SetLazarusDefaultFilename;
CreateConfig;
Load(false);
if Application.HasOption('language') then
begin