From 9a01b383b32de7e63cf2f1ac7ce3b3a200f821a9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 21 Feb 2012 19:04:30 +0000
Subject: [PATCH] IDE: less warnings

git-svn-id: trunk@35540 -
---
 components/synedit/syneditfoldedview.pp | 10 +++++-----
 debugger/gdbtypeinfo.pp                 |  1 +
 tools/chmmaker/example/example.hfp      |  2 +-
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/components/synedit/syneditfoldedview.pp b/components/synedit/syneditfoldedview.pp
index 6139baa7c9..7af048b389 100644
--- a/components/synedit/syneditfoldedview.pp
+++ b/components/synedit/syneditfoldedview.pp
@@ -2217,7 +2217,7 @@ begin
     r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
   end;
 
-  Result.Init(r, rStartLine, rFoldedBefore);
+  Result{%H-}.Init(r, rStartLine, rFoldedBefore);
 end;
 
 (* Find Fold by Line in Folded Text // always returns unfolded, unless next=true *)
@@ -2253,7 +2253,7 @@ begin
     r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
   end;
 
-  Result.Init(r, rStartLine, rFoldedBefore);
+  Result{%H-}.Init(r, rStartLine, rFoldedBefore);
 end;
 
 procedure TSynTextFoldAVLTree.AdjustForLinesInserted(AStartLine, ALineCount, ABytePos: Integer);
@@ -2409,7 +2409,7 @@ begin
     r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
   end;
 
-  Result.Init(r, rStartLine, rFoldedBefore);
+  Result{%H-}.Init(r, rStartLine, rFoldedBefore);
 end;
 
 function TSynTextFoldAVLTree.FindFirstFold : TSynTextFoldAVLNode;
@@ -2425,7 +2425,7 @@ begin
     r := r.Left;
   end;
 
-  Result.Init(r, rStartLine, 0);
+  Result{%H-}.Init(r, rStartLine, 0);
 end;
 
 function TSynTextFoldAVLTree.LastFoldedLine: integer;
@@ -2483,7 +2483,7 @@ begin
   r.Classification := AClassification;
   r.FoldTypeCompatible := AFoldTypeCompatible;
 
-  Result.Init(r, ALine, 0);
+  Result{%H-}.Init(r, ALine, 0);
   Result.fFoldedBefore := InsertNode(r);
 end;
 
diff --git a/debugger/gdbtypeinfo.pp b/debugger/gdbtypeinfo.pp
index 31206904eb..697adbe85e 100644
--- a/debugger/gdbtypeinfo.pp
+++ b/debugger/gdbtypeinfo.pp
@@ -870,6 +870,7 @@ function dbgs(AFlags: TGDBPTypeResultFlags): string;
 var
   i: TGDBPTypeResultFlag;
 begin
+  Result:='';
   for i := low(TGDBPTypeResultFlags) to high(TGDBPTypeResultFlags) do
     if i in AFlags then begin
       if Result <> '' then Result := Result + ', ';
diff --git a/tools/chmmaker/example/example.hfp b/tools/chmmaker/example/example.hfp
index 8431e7599b..fb2c1f1cea 100644
--- a/tools/chmmaker/example/example.hfp
+++ b/tools/chmmaker/example/example.hfp
@@ -21,7 +21,7 @@
     <MakeBinaryTOC Value="True"/>
     <MakeBinaryIndex Value="False"/>
     <AutoFollowLinks Value="False"/>
-    <MakeSearchable Value="False"/>
+    <MakeSearchable Value="True"/>
     <DefaultPage Value="MainPage.html"/>
     <Title Value=""/>
     <OutputFileName Value="example.chm"/>