From f4aba6fdf157d11d49b22344137f2f9887329eb5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 11 Aug 2013 17:40:00 +0000
Subject: [PATCH] IDE: fixed uninitialized values

git-svn-id: trunk@42387 -
---
 ide/project.pp           | 1 +
 packager/packagedefs.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/ide/project.pp b/ide/project.pp
index d21bd614a1..157355b378 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -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+')';
diff --git a/packager/packagedefs.pas b/packager/packagedefs.pas
index 7a07669c98..9bbd593abb 100644
--- a/packager/packagedefs.pas
+++ b/packager/packagedefs.pas
@@ -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',