From 8da59d47573a401b53441aaf977a4198b8c72b43 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 18 Aug 1999 12:03:16 +0000
Subject: [PATCH]   * objfpc mode for 0.99.12

---
 rtl/inc/heaptrc.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 59cb6483de..44357866f8 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -15,6 +15,11 @@
  **********************************************************************}
 unit heaptrc;
 
+{ 0.99.12 had a bug that initialization/finalization only worked for
+  objfpc,delphi mode }
+{$ifdef VER0_99_12}
+  {$mode objfpc}
+{$endif}
 
 interface
 
@@ -753,7 +758,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.20  1999-08-17 14:56:03  michael
+  Revision 1.21  1999-08-18 12:03:16  peter
+    * objfpc mode for 0.99.12
+
+  Revision 1.20  1999/08/17 14:56:03  michael
   Removed the mode for objpas
 
   Revision 1.19  1999/07/10 10:33:50  peter