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

* don't crash everything if the class allocation failed

Browse Source
This commit is contained in:
carl 2002-03-30 14:52:59 +00:00
parent 16b2fe5095
commit b03cb5eadb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/objpas.inc
View File

@ -187,7 +187,8 @@
begin
getmem(p,instancesize);
InitInstance(p);
if p <> nil then
InitInstance(p);
NewInstance:=TObject(p);
end;
@ -695,7 +696,10 @@
{
$Log$
Revision 1.18 2001-12-26 21:03:56 peter
Revision 1.19 2002-03-30 14:52:59 carl
* don't crash everything if the class allocation failed
Revision 1.18 2001/12/26 21:03:56 peter
* merged fixes from 1.0.x
Revision 1.17 2001/09/29 21:32:47 jonas