paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 11:32:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less warnings

Browse Source 
git-svn-id: trunk@35540 -
This commit is contained in:
mattias 2012-02-21 19:04:30 +00:00
parent 90b6d3e812
commit 9a01b383b3
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syneditfoldedview.pp
View File

@ -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;

1
debugger/gdbtypeinfo.pp
View File

@ -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 + ', ';

2
tools/chmmaker/example/example.hfp
View File

@ -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"/>