From bacadab499f6c6eceb786adc14834719263125cc Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 28 Feb 2021 22:39:26 +0000
Subject: [PATCH] codetools: less hints

git-svn-id: trunk@64699 -
---
 components/codetools/sourcelog.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index 99b7bc1680..7799cc0eb3 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -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:='';