From c04eb736215885417381deb5e2dd497610f63cbb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 4 Jun 1998 08:26:03 +0000
Subject: [PATCH]   * boolean internal definition again (needed to compile    
 older RTL's)

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

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 830d316461..71fe421185 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -33,7 +33,9 @@ Type
   byte     = 0..255;
   Word     = 0..65535;
 
+  { 
   Boolean = ByteBool;
+  removed because too incompatible with older versions PM }
 
 { at least declare Turbo Pascal real types }
 {$IFDEF i386}
@@ -333,7 +335,11 @@ Procedure AddExitProc(Proc:TProcedure);
 
 {
   $Log$
-  Revision 1.8  1998-06-03 23:39:53  peter
+  Revision 1.9  1998-06-04 08:26:03  pierre
+    * boolean internal definition again (needed to compile
+      older RTL's)
+
+  Revision 1.8  1998/06/03 23:39:53  peter
     + boolean=bytebool
 
   Revision 1.7  1998/05/22 12:34:11  peter