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

SynEdit: suppress warnings for "managed local var not initialized" 5091 / Mark SetLength(Result) with {%H-} where needed

Browse Source
This commit is contained in:
Martin 2025-02-23 11:39:35 +01:00
parent 4a1b682e2e
commit 9487a177c5
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.lpk
View File

@ -16,7 +16,7 @@
</CodeGeneration>
<Other>
<CompilerMessages>
<IgnoredMessages idx6058="True" idx5024="True" idx4055="True"/>
<IgnoredMessages idx6058="True" idx5091="True" idx5024="True" idx4055="True"/>
</CompilerMessages>
<CustomOptions Value="$(IDEBuildOptions) -CR -dgc"/>
</Other>

2
components/synedit/syneditexport.pas
View File

@ -478,7 +478,7 @@ begin
ISrc := 1;
DestLen := SrcLen;
IDest := 1;
SetLength(Result, DestLen);
SetLength(Result{%H-}, DestLen);
while ISrc <= SrcLen do begin
c := AToken[ISrc];
IsSpace := IsSpace and (c = ' ');

2
components/synedit/syneditfoldedview.pp
View File

@ -3128,7 +3128,7 @@ var
i: Integer;
begin
i := FoldOpenCount(ALine);
SetLength(Result, i);
SetLength(Result{%H-}, i);
while i > 0 do begin
dec(i);
Result[i] := InfoForFoldAtTextIndex(ALine, i, False, NeedLen);

2
components/synedit/synpluginsyncroedit.pp
View File

@ -960,7 +960,7 @@ var
begin
TCustomSynEdit(FriendEdit).GetHighlighterAttriAtRowColEx(APos, Ctx, FLastContextLine = APos.Y);
FLastContextLine := APos.Y;
SetLength(Result, SizeOf(Integer));
SetLength(Result{%H-}, SizeOf(Integer));
PInteger(@Result[1])^ := Ctx;
end;