* boolean again intern declared (needed to be able to compile

    older RTL's)

compiler/psystem.pas

@@ -69,8 +69,9 @@ procedure insert_intern_types(p : psymtable);
 {
   all the types inserted into the system unit
 }
-{$ifdef GDB}
 var
+  booleandef  : pdef;
+{$ifdef GDB}
   { several defs to simulate more or less C++ objects for GDB }
   vmtdef      : precdef;
   pvmtdef     : ppointerdef;
@@ -122,7 +123,9 @@ begin
   p^.insert(new(ptypesym,init('LONGSTRING',clongstringdef)));
   p^.insert(new(ptypesym,init('ANSISTRING',cansistringdef)));
   p^.insert(new(ptypesym,init('WIDESTRING',cwidestringdef)));
-  p^.insert(new(ptypesym,init('BYTEBOOL',new(porddef,init(bool8bit,0,1)))));
+  booleandef:=new(porddef,init(bool8bit,0,1));
+  p^.insert(new(ptypesym,init('BOOLEAN',booleandef)));
+  p^.insert(new(ptypesym,init('BYTEBOOL',booleandef)));
   p^.insert(new(ptypesym,init('WORDBOOL',new(porddef,init(bool16bit,0,1)))));
   p^.insert(new(ptypesym,init('LONGBOOL',new(porddef,init(bool32bit,0,1)))));
   p^.insert(new(ptypesym,init('CHAR',new(porddef,init(uchar,0,255)))));
@@ -228,7 +231,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.1  1998-06-03 22:49:01  peter
+  Revision 1.2  1998-06-04 08:23:57  pierre
+    * boolean again intern declared (needed to be able to compile
+      older RTL's)
+
+  Revision 1.1  1998/06/03 22:49:01  peter
     + wordbool,longbool
     * rename bis,von -> high,low
     * moved some systemunit loading/creating to psystem.pas