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

codetools: less hints

Browse Source 
git-svn-id: trunk@64699 -
This commit is contained in:
mattias 2021-02-28 22:39:26 +00:00
parent 95d77977ec
commit bacadab499
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/sourcelog.pas
View File

@ -303,7 +303,7 @@ begin
end else begin
LineLen:=fLineRanges[Index].EndPos-fLineRanges[Index].StartPos
end;
SetLength(Result,LineLen);
SetLength(Result{%H-},LineLen);
if LineLen>0 then
System.Move(fSource[fLineRanges[Index].StartPos],Result[1],LineLen);
end else
@ -753,7 +753,7 @@ begin
try
fs := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
try
SetLength(s, fs.Size);
SetLength(s{%H-}, fs.Size);
if s <> '' then
fs.Read(s[1], length(s));
FDiskEncoding := '';
@ -854,7 +854,7 @@ begin
EndPos:=FLineRanges[EndLine].StartPos
else
EndPos:=FLineRanges[EndLine-1].EndPos;
SetLength(Result,EndPos-StartPos);
SetLength(Result{%H-},EndPos-StartPos);
System.Move(FSource[StartPos],Result[1],length(Result));
end else
Result:='';