From b03cb5eadbb5a017edfd6bce0d16d04a09cfb417 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 30 Mar 2002 14:52:59 +0000
Subject: [PATCH] * don't crash everything if the class allocation failed

---
 rtl/inc/objpas.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index ad119cd0c9..4a47a82509 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -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