paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 03:30:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for SIGSEGV due to access to uninitialized pointers in TList

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-12 21:47:34 +00:00
parent 5f59b0f6b9
commit c2d6555bd5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/classes/lists.inc
View File

@ -84,6 +84,9 @@ begin
if NewCapacity=FCapacity then
exit;
ReallocMem(FList,SizeOf(Pointer)*NewCapacity);
if NewCapacity > FCapacity then
FillChar (FList^ [FCapacity],
(NewCapacity - FCapacity) * SizeOf (pointer), 0);
FCapacity:=NewCapacity;
end;
@ -450,7 +453,10 @@ end;
{
$Log$
Revision 1.3 2005-02-14 17:13:11 peter
Revision 1.4 2005-05-12 21:47:34 hajny
* fix for SIGSEGV due to access to uninitialized pointers in TList
Revision 1.3 2005/02/14 17:13:11 peter
* truncate log
}