paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 01:26:25 +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 end else begin
LineLen:=fLineRanges[Index].EndPos-fLineRanges[Index].StartPos LineLen:=fLineRanges[Index].EndPos-fLineRanges[Index].StartPos
end; end;
SetLength(Result,LineLen); SetLength(Result{%H-},LineLen);
if LineLen>0 then if LineLen>0 then
System.Move(fSource[fLineRanges[Index].StartPos],Result[1],LineLen); System.Move(fSource[fLineRanges[Index].StartPos],Result[1],LineLen);
end else end else
@ -753,7 +753,7 @@ begin
try try
fs := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone); fs := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
try try
SetLength(s, fs.Size); SetLength(s{%H-}, fs.Size);
if s <> '' then if s <> '' then
fs.Read(s[1], length(s)); fs.Read(s[1], length(s));
FDiskEncoding := ''; FDiskEncoding := '';
@ -854,7 +854,7 @@ begin
EndPos:=FLineRanges[EndLine].StartPos EndPos:=FLineRanges[EndLine].StartPos
else else
EndPos:=FLineRanges[EndLine-1].EndPos; EndPos:=FLineRanges[EndLine-1].EndPos;
SetLength(Result,EndPos-StartPos); SetLength(Result{%H-},EndPos-StartPos);
System.Move(FSource[StartPos],Result[1],length(Result)); System.Move(FSource[StartPos],Result[1],length(Result));
end else end else
Result:=''; Result:='';