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

* Applied patch from bug ID #25635, fixing memory leak

git-svn-id: trunk@26714 -
michael преди 11 години
родител
ревизия
0e68cb641d
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/objpas/fgl.pp

+ 1 - 1
rtl/objpas/fgl.pp

@@ -1013,7 +1013,7 @@ procedure TFPGInterfacedObjectList.CopyItem(Src, Dest: Pointer);
 begin
 begin
   if Assigned(Pointer(Dest^)) then
   if Assigned(Pointer(Dest^)) then
     T(Dest^)._Release;
     T(Dest^)._Release;
-  T(Dest^) := T(Src^);
+  Pointer(Dest^) := Pointer(Src^);
   if Assigned(Pointer(Dest^)) then
   if Assigned(Pointer(Dest^)) then
     T(Dest^)._AddRef;
     T(Dest^)._AddRef;
 end;
 end;