Browse Source

rtl-generics: suppress uninitialized variable warnings

git-svn-id: trunk@47364 -
ondrej 4 years ago
parent
commit
b8f0efffc7

+ 2 - 0
packages/rtl-generics/src/generics.collections.pas

@@ -1179,6 +1179,7 @@ var
   i: SizeInt;
   LEnumerator: TEnumerator<T>;
 begin
+  Result := nil;
   SetLength(Result, ACount);
 
   try
@@ -1620,6 +1621,7 @@ begin
   if (ACount < 0) or (AIndex < 0) or (AIndex + ACount > Count) then
     raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
 
+  LDeleted := nil;
   SetLength(LDeleted, ACount);
   System.Move(FItems[AIndex], LDeleted[0], ACount * SizeOf(T));
 

+ 3 - 0
packages/rtl-generics/src/inc/generics.dictionaries.inc

@@ -138,6 +138,7 @@ var
   i: SizeInt;
   LEnumerator: TEnumerator<TDictionaryPair>;
 begin
+  Result := nil;
   SetLength(Result, ACount);
   LEnumerator := DoGetEnumerator;
 
@@ -292,6 +293,7 @@ var
   i: SizeInt;
   LEnumerator: TPointersEnumerator;
 begin
+  Result := nil;
   SetLength(Result, GetCount);
 
   try
@@ -480,6 +482,7 @@ begin
   if ASizePow2 < 0 then
     OutOfMemoryError;
 
+  LNewItems := nil;
   SetLength(LNewItems, ASizePow2);
   UpdateItemsThreshold(ASizePow2);