paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 18:08:20 +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; r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
end; end;
Result.Init(r, rStartLine, rFoldedBefore); Result{%H-}.Init(r, rStartLine, rFoldedBefore);
end; end;
(* Find Fold by Line in Folded Text // always returns unfolded, unless next=true *) (* 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; r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
end; end;
Result.Init(r, rStartLine, rFoldedBefore); Result{%H-}.Init(r, rStartLine, rFoldedBefore);
end; end;
procedure TSynTextFoldAVLTree.AdjustForLinesInserted(AStartLine, ALineCount, ABytePos: Integer); 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; r := r.Right; // rStartLine points to r, which now is the start of the previous fold;
end; end;
Result.Init(r, rStartLine, rFoldedBefore); Result{%H-}.Init(r, rStartLine, rFoldedBefore);
end; end;
function TSynTextFoldAVLTree.FindFirstFold : TSynTextFoldAVLNode; function TSynTextFoldAVLTree.FindFirstFold : TSynTextFoldAVLNode;
@ -2425,7 +2425,7 @@ begin
r := r.Left; r := r.Left;
end; end;
Result.Init(r, rStartLine, 0); Result{%H-}.Init(r, rStartLine, 0);
end; end;
function TSynTextFoldAVLTree.LastFoldedLine: integer; function TSynTextFoldAVLTree.LastFoldedLine: integer;
@ -2483,7 +2483,7 @@ begin
r.Classification := AClassification; r.Classification := AClassification;
r.FoldTypeCompatible := AFoldTypeCompatible; r.FoldTypeCompatible := AFoldTypeCompatible;
Result.Init(r, ALine, 0); Result{%H-}.Init(r, ALine, 0);
Result.fFoldedBefore := InsertNode(r); Result.fFoldedBefore := InsertNode(r);
end; end;

1
debugger/gdbtypeinfo.pp
View File

@ -870,6 +870,7 @@ function dbgs(AFlags: TGDBPTypeResultFlags): string;
var var
i: TGDBPTypeResultFlag; i: TGDBPTypeResultFlag;
begin begin
Result:='';
for i := low(TGDBPTypeResultFlags) to high(TGDBPTypeResultFlags) do for i := low(TGDBPTypeResultFlags) to high(TGDBPTypeResultFlags) do
if i in AFlags then begin if i in AFlags then begin
if Result <> '' then Result := Result + ', '; if Result <> '' then Result := Result + ', ';

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

@ -21,7 +21,7 @@
<MakeBinaryTOC Value="True"/> <MakeBinaryTOC Value="True"/>
<MakeBinaryIndex Value="False"/> <MakeBinaryIndex Value="False"/>
<AutoFollowLinks Value="False"/> <AutoFollowLinks Value="False"/>
<MakeSearchable Value="False"/> <MakeSearchable Value="True"/>
<DefaultPage Value="MainPage.html"/> <DefaultPage Value="MainPage.html"/>
<Title Value=""/> <Title Value=""/>
<OutputFileName Value="example.chm"/> <OutputFileName Value="example.chm"/>