From 24fceb0a6c8c45ccb1250a2daf6b0a0604b3fa50 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 28 Sep 1999 21:13:33 +0000
Subject: [PATCH]   * fixed bug #626, objpas must redefine maxint!

---
 rtl/objpas/objpas.pp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 3050c0758b..48a84308eb 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -20,6 +20,9 @@ unit objpas;
 
   interface
 
+    const
+       MaxInt = MaxLongint;
+
     type
        { first, in object pascal, the types must be redefined }
        smallint = system.integer;
@@ -354,7 +357,10 @@ end.
 
 {
   $Log$
-  Revision 1.40  1999-09-17 17:14:12  peter
+  Revision 1.41  1999-09-28 21:13:33  florian
+    * fixed bug 626, objpas must redefine maxint!
+
+  Revision 1.40  1999/09/17 17:14:12  peter
     + new heap manager supporting delphi freemem(pointer)
 
   Revision 1.39  1999/08/28 13:03:23  michael