paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 16:12:57 +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 //save project
function ShowSaveProjectAsDialog(UseMainSourceFile: boolean): TModalResult; function ShowSaveProjectAsDialog(UseMainSourceFile: boolean): TModalResult;
function SaveProjectInfo(var Flags: TSaveFlags): TModalResult; function SaveProjectInfo(var Flags: TSaveFlags): TModalResult;
procedure GetMainUnit(out MainUnitInfo: TUnitInfo; procedure GetMainUnit(out MainUnitInfo: TUnitInfo; out MainUnitSrcEdit: TSourceEditor);
out MainUnitSrcEdit: TSourceEditor; UpdateModified: boolean);
procedure SaveSrcEditorProjectSpecificSettings(AnEditorInfo: TUnitEditorInfo); procedure SaveSrcEditorProjectSpecificSettings(AnEditorInfo: TUnitEditorInfo);
procedure SaveSourceEditorProjectSpecificSettings; procedure SaveSourceEditorProjectSpecificSettings;
procedure UpdateProjectResourceInfo; procedure UpdateProjectResourceInfo;
@ -7371,7 +7370,7 @@ begin
UpdateSourceNames; UpdateSourceNames;
// find mainunit // find mainunit
GetMainUnit(MainUnitInfo,MainUnitSrcEdit,true); GetMainUnit(MainUnitInfo, MainUnitSrcEdit);
// save project specific settings of the source editor // save project specific settings of the source editor
SaveSourceEditorProjectSpecificSettings; SaveSourceEditorProjectSpecificSettings;
@ -7439,15 +7438,14 @@ begin
end; end;
end; end;
procedure GetMainUnit(out MainUnitInfo: TUnitInfo; procedure GetMainUnit(out MainUnitInfo: TUnitInfo; out MainUnitSrcEdit: TSourceEditor);
out MainUnitSrcEdit: TSourceEditor; UpdateModified: boolean);
begin begin
MainUnitSrcEdit:=nil; MainUnitSrcEdit:=nil;
if Project1.MainUnitID>=0 then begin if Project1.MainUnitID>=0 then begin
MainUnitInfo:=Project1.MainUnitInfo; MainUnitInfo:=Project1.MainUnitInfo;
if MainUnitInfo.OpenEditorInfoCount > 0 then begin if MainUnitInfo.OpenEditorInfoCount > 0 then begin
MainUnitSrcEdit := TSourceEditor(MainUnitInfo.OpenEditorInfo[0].EditorComponent); MainUnitSrcEdit := TSourceEditor(MainUnitInfo.OpenEditorInfo[0].EditorComponent);
if UpdateModified and MainUnitSrcEdit.Modified then if MainUnitSrcEdit.Modified then
MainUnitSrcEdit.UpdateCodeBuffer; MainUnitSrcEdit.UpdateCodeBuffer;
end; end;
end else end else
@ -7670,7 +7668,7 @@ begin
// change main source // change main source
if (Project1.MainUnitID >= 0) then if (Project1.MainUnitID >= 0) then
begin begin
GetMainUnit(MainUnitInfo, MainUnitSrcEdit, true); GetMainUnit(MainUnitInfo, MainUnitSrcEdit);
if not Project1.ProjResources.RenameDirectives(MainUnitInfo.Filename,NewProgramFN) if not Project1.ProjResources.RenameDirectives(MainUnitInfo.Filename,NewProgramFN)
then begin then begin
DebugLn(['ShowSaveProjectAsDialog failed renaming directives Old="',MainUnitInfo.Filename,'" New="',NewProgramFN,'"']); DebugLn(['ShowSaveProjectAsDialog failed renaming directives Old="',MainUnitInfo.Filename,'" New="',NewProgramFN,'"']);