paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Minor optimization. Remove a parameter from procedure GetMainUnit.

Browse Source 
git-svn-id: trunk@59040 -
This commit is contained in:
juha 2018-09-17 12:03:41 +00:00
parent b3b559273c
commit 1259c8e10a
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourcefilemanager.pas
View File

@ -295,8 +295,7 @@ function SaveEditorChangesToCodeCache(AEditor: TSourceEditorInterface): boolean;
//save project
function ShowSaveProjectAsDialog(UseMainSourceFile: boolean): TModalResult;
function SaveProjectInfo(var Flags: TSaveFlags): TModalResult;
procedure GetMainUnit(out MainUnitInfo: TUnitInfo;
out MainUnitSrcEdit: TSourceEditor; UpdateModified: boolean);
procedure GetMainUnit(out MainUnitInfo: TUnitInfo; out MainUnitSrcEdit: TSourceEditor);
procedure SaveSrcEditorProjectSpecificSettings(AnEditorInfo: TUnitEditorInfo);
procedure SaveSourceEditorProjectSpecificSettings;
procedure UpdateProjectResourceInfo;
@ -7371,7 +7370,7 @@ begin
UpdateSourceNames;
// find mainunit
GetMainUnit(MainUnitInfo,MainUnitSrcEdit,true);
GetMainUnit(MainUnitInfo, MainUnitSrcEdit);
// save project specific settings of the source editor
SaveSourceEditorProjectSpecificSettings;
@ -7439,15 +7438,14 @@ begin
end;
end;
procedure GetMainUnit(out MainUnitInfo: TUnitInfo;
out MainUnitSrcEdit: TSourceEditor; UpdateModified: boolean);
procedure GetMainUnit(out MainUnitInfo: TUnitInfo; out MainUnitSrcEdit: TSourceEditor);
begin
MainUnitSrcEdit:=nil;
if Project1.MainUnitID>=0 then begin
MainUnitInfo:=Project1.MainUnitInfo;
if MainUnitInfo.OpenEditorInfoCount > 0 then begin
MainUnitSrcEdit := TSourceEditor(MainUnitInfo.OpenEditorInfo[0].EditorComponent);
if UpdateModified and MainUnitSrcEdit.Modified then
if MainUnitSrcEdit.Modified then
MainUnitSrcEdit.UpdateCodeBuffer;
end;
end else
@ -7670,7 +7668,7 @@ begin
// change main source
if (Project1.MainUnitID >= 0) then
begin
GetMainUnit(MainUnitInfo, MainUnitSrcEdit, true);
GetMainUnit(MainUnitInfo, MainUnitSrcEdit);
if not Project1.ProjResources.RenameDirectives(MainUnitInfo.Filename,NewProgramFN)
then begin
DebugLn(['ShowSaveProjectAsDialog failed renaming directives Old="',MainUnitInfo.Filename,'" New="',NewProgramFN,'"']);