Преглед на файлове

rtl-generics: suppress uninitialized variable warnings

git-svn-id: trunk@47364 -
ondrej преди 4 години
родител
ревизия
b8f0efffc7
променени са 2 файла, в които са добавени 5 реда и са изтрити 0 реда
  1. 2 0
      packages/rtl-generics/src/generics.collections.pas
  2. 3 0
      packages/rtl-generics/src/inc/generics.dictionaries.inc

+ 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);