paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 11:48:34 +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:40:42 +00:00
parent 30b55c8bee
commit 5f59b0f6b9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cclasses.pas
View File

@ -479,6 +479,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;
@ -2364,7 +2367,10 @@ end;
end.
{
$Log$
Revision 1.44 2005-03-25 23:03:04 jonas
Revision 1.45 2005-05-12 21:40:42 hajny
* fix for SIGSEGV due to access to uninitialized pointers in TList
Revision 1.44 2005/03/25 23:03:04 jonas
- removed unused variables
Revision 1.43 2005/03/04 16:49:22 peter