paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* memory corruption bugfix in FPC_HELP_CONSTRUCTOR if object cannot be allocated

Browse Source
This commit is contained in:
carl 2002-03-30 13:08:54 +00:00
parent 50626a13f4
commit 4e782284ba
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/generic.inc
View File

@ -354,8 +354,11 @@ begin
getmem(_self,objectsize);
longint(vmt):=-1; { needed for fail }
end;
fillchar(_self^,objectsize,#0);
ppointer(_self+vmt_pos)^:=vmtcopy;
if _self<>nil then
begin
fillchar(_self^,objectsize,#0);
ppointer(_self+vmt_pos)^:=vmtcopy;
end;
int_help_constructor:=_self;
end;
@ -923,7 +926,10 @@ end;
{
$Log$
Revision 1.23 2002-01-25 17:38:55 peter
Revision 1.24 2002-03-30 13:08:54 carl
* memory corruption bugfix in FPC_HELP_CONSTRUCTOR if object cannot be allocated
Revision 1.23 2002/01/25 17:38:55 peter
* add internconst for all overloaded types of Odd/Abs/Sqr
Revision 1.22 2002/01/24 12:33:53 jonas