X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Flrecord.h;h=08d62691402f10a9586a357304e70e5c15ba64e7;hb=71baa1c0cbbb886ac1528500c1bda51ac70decad;hp=3fb3201dc0cf6c9e9433f743d61d5c9095af5227;hpb=571a24e2bfea15d37c3503414674f59e89ec9652;p=chise%2Fxemacs-chise.git.1

diff --git a/src/lrecord.h b/src/lrecord.h
index 3fb3201..08d6269 100644
--- a/src/lrecord.h
+++ b/src/lrecord.h
@@ -154,6 +154,9 @@ enum lrecord_type
   lrecord_type_coding_system,
   lrecord_type_char_table,
   lrecord_type_char_table_entry,
+  lrecord_type_byte_table,
+  lrecord_type_uint16_byte_table,
+  lrecord_type_uint8_byte_table,
   lrecord_type_range_table,
   lrecord_type_opaque,
   lrecord_type_opaque_ptr,
@@ -184,11 +187,16 @@ enum lrecord_type
   lrecord_type_tooltalk_message,
   lrecord_type_tooltalk_pattern,
   lrecord_type_ldap,
+  lrecord_type_concord_ds,
+  lrecord_type_concord_object,
   lrecord_type_pgconn,
   lrecord_type_pgresult,
   lrecord_type_devmode,
   lrecord_type_mswindows_dialog_id,
   lrecord_type_case_table,
+  lrecord_type_emacs_ffi,
+  lrecord_type_emacs_gtk_object,
+  lrecord_type_emacs_gtk_boxed,
   lrecord_type_free, /* only used for "free" lrecords */
   lrecord_type_undefined, /* only used for debugging */
   lrecord_type_last_built_in_type /* must be last */
@@ -492,7 +500,7 @@ extern Lisp_Object (*lrecord_markers[]) (Lisp_Object);
 
 #define INIT_EXTERNAL_LRECORD_IMPLEMENTATION(type) do {			\
   lrecord_type_##type = lrecord_type_count++;				\
-  lrecord_##type.lrecord_type_index = lrecord_type_##type;		\
+  lrecord_##type.lrecord_type_index = (enum lrecord_type) lrecord_type_##type; \
   INIT_LRECORD_IMPLEMENTATION(type);					\
 } while (0)