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

ide: options dialog: fix crash on loading compiler configuration (issue #0015739)

Browse Source 
git-svn-id: trunk@23974 -
This commit is contained in:
paul 2010-03-13 16:28:17 +00:00
parent 617f9118af
commit 393b9de9d9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/frames/compiler_path_options.pas
View File

@ -160,9 +160,11 @@ end;
procedure TCompilerPathOptionsFrame.DoLoadSave(Sender: TObject);
var
OldOptions: TBaseCompilerOptions;
Options: TBaseCompilerOptions;
ImportExportResult: TImportExportOptionsResult;
begin
OldOptions := FCompilerOpts;
Options := TBaseCompilerOptionsClass(FCompilerOpts.ClassType).Create(FCompilerOpts.Owner);
try
DoSaveSettings(Options);
@ -172,6 +174,7 @@ begin
if Assigned(OnLoadIDEOptions) then
OnLoadIDEOptions(Self, Options);
end;
Options := OldOptions;
finally
Options.Free;
end;