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

IDE: fixed uninitialized values

Browse Source 
git-svn-id: trunk@42387 -
This commit is contained in:
mattias 2013-08-11 17:40:00 +00:00
parent 9dc95ac58d
commit f4aba6fdf1
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/project.pp
View File

@ -6393,6 +6393,7 @@ begin
FMain.AddChild(FSrcDirectories);
end;
Changed:=false;
IfValue:='defined(#ProjectSrcMark'+Project.IDAsWord+')';
if Project=Project1 then
IfValue:=IfValue+' or defined('+UseDefaultsFlagName+')';

1
packager/packagedefs.pas
View File

@ -4319,6 +4319,7 @@ begin
da_Block);
FMain.AddChild(FSrcDirectories);
end;
Changed:=false;
if FSrcDirIfDef=nil then begin
FSrcDirIfDef:=TDefineTemplate.Create('Source Directory Additions',
'Additional defines for package source directories',