--- p/declarations.c.orig	Fri May  6 03:05:51 2005
+++ p/declarations.c	Fri May  6 03:06:02 2005
@@ -1806,6 +1806,7 @@
   byte_boolean_type_node = build_boolean_type (TYPE_PRECISION (byte_unsigned_type_node));
   short_boolean_type_node = build_boolean_type (TYPE_PRECISION (short_unsigned_type_node));
   word_boolean_type_node = build_boolean_type (TYPE_PRECISION (pascal_cardinal_type_node));
+  cword_boolean_type_node = build_boolean_type (TYPE_PRECISION (unsigned_type_node));
   long_boolean_type_node = build_boolean_type (TYPE_PRECISION (long_unsigned_type_node));
   long_long_boolean_type_node = build_boolean_type (TYPE_PRECISION (long_long_unsigned_type_node));
   cboolean_type_node = make_unsigned_type (BOOL_TYPE_SIZE);
--- p/predef.def.orig	Fri May  6 03:05:22 2005
+++ p/predef.def	Fri May  6 03:05:34 2005
@@ -191,6 +191,7 @@
 PREDEF_TYPE (ByteBool,    byte_boolean_type_node,       B_D_PASCAL)
 PREDEF_TYPE (ShortBool,   short_boolean_type_node,      GNU_PASCAL)
 PREDEF_TYPE (WordBool,    word_boolean_type_node,       B_D_PASCAL)
+PREDEF_TYPE (CWordBool,   cword_boolean_type_node,      GNU_PASCAL)
 PREDEF_TYPE (MedBool,     long_boolean_type_node,       GNU_PASCAL)
 PREDEF_TYPE (LongBool,    long_long_boolean_type_node,  B_D_PASCAL)
 PREDEF_TYPE (LongestBool, long_long_boolean_type_node,  GNU_PASCAL)
--- p/gpc.h.orig	Thu Mar 31 20:04:15 2005
+++ p/gpc.h	Fri May  6 03:06:54 2005
@@ -1620,7 +1620,9 @@
    TREE_PURPOSE: list of case ranges seen (if needed) */
 #define current_case_values PGT(65)
 
-#define PTI_MAX 66
+#define cword_boolean_type_node PGT(66)
+
+#define PTI_MAX 67
 extern GTY(()) tree pascal_global_trees[PTI_MAX];
 
 #define pascal_integer_type_node  ptrsize_integer_type_node
--- p/module.c.orig	Thu Apr 21 17:12:16 2005
+++ p/module.c	Fri May  6 03:07:08 2005
@@ -203,6 +203,7 @@
   SN (byte_boolean_type_node) \
   SN (short_boolean_type_node) \
   SN (word_boolean_type_node) \
+  SN (cword_boolean_type_node) \
   SN (long_boolean_type_node) \
   SN (long_long_boolean_type_node) \
   SN (wchar_type_node) \