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

ide: don't explicitly set Modified, SessionModified flags (fixes issue #0009814)

Browse Source 
git-svn-id: trunk@19891 -
This commit is contained in:
paul 2009-05-10 03:12:07 +00:00
parent 9a9530c43e
commit c688af0189
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/project.pp
View File

@ -4190,7 +4190,6 @@ begin
end; end;
if CompilerOptions.Modified then if CompilerOptions.Modified then
begin begin
Modified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn(['TProject.SomethingModified CompilerOptions']); DebugLn(['TProject.SomethingModified CompilerOptions']);
{$ENDIF} {$ENDIF}
@ -4199,7 +4198,6 @@ begin
for i := 0 to UnitCount - 1 do for i := 0 to UnitCount - 1 do
if (Units[i].IsPartOfProject) and Units[i].Modified then if (Units[i].IsPartOfProject) and Units[i].Modified then
begin begin
Modified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename); DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename);
{$ENDIF} {$ENDIF}
@ -4219,7 +4217,6 @@ begin
begin begin
if Units[i].SessionModified then if Units[i].SessionModified then
begin begin
SessionModified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Session ',Units[i].Filename); DebugLn('TProject.SomethingModified Session ',Units[i].Filename);
{$ENDIF} {$ENDIF}
@ -4227,7 +4224,6 @@ begin
end; end;
if (not Units[i].IsPartOfProject) and Units[i].Modified then if (not Units[i].IsPartOfProject) and Units[i].Modified then
begin begin
SessionModified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename); DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename);
{$ENDIF} {$ENDIF}