From fd4508dd7575e874df1f83cd4e4ace617edc7328 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 10 Dec 2001 10:59:01 +0000 Subject: [PATCH] (struct lrecord_header): Delete `older'. (set_lheader_implementation): Delete code for `older'. (set_lheader_older_implementation): Deleted. (enum lrecord_type): Delete `lrecord_type_char_id_table'. (OLDER_RECORD_P): Deleted. (OLDER_RECORD_HEADER_P): Deleted. (alloc_older_lcrecord): Deleted. (alloc_older_lcrecord_type): Deleted. --- src/lrecord.h | 38 -------------------------------------- 1 file changed, 38 deletions(-) diff --git a/src/lrecord.h b/src/lrecord.h index 6af3946..f26ffa2 100644 --- a/src/lrecord.h +++ b/src/lrecord.h @@ -75,43 +75,18 @@ struct lrecord_header /* 1 if the object is readonly from lisp */ unsigned int lisp_readonly :1; - -#ifdef UTF2000 - /* The `older field is a flag that indicates whether this lcrecord - is on a "older storage". */ - unsigned int older :1; -#endif }; struct lrecord_implementation; int lrecord_type_index (const struct lrecord_implementation *implementation); -#ifdef UTF2000 #define set_lheader_implementation(header,imp) do { \ struct lrecord_header* SLI_header = (header); \ SLI_header->type = (imp)->lrecord_type_index; \ SLI_header->mark = 0; \ - SLI_header->older = 0; \ SLI_header->c_readonly = 0; \ SLI_header->lisp_readonly = 0; \ } while (0) -#define set_lheader_older_implementation(header,imp) do { \ - struct lrecord_header* SLI_header = (header); \ - SLI_header->type = (imp)->lrecord_type_index; \ - SLI_header->mark = 0; \ - SLI_header->older = 1; \ - SLI_header->c_readonly = 0; \ - SLI_header->lisp_readonly = 0; \ -} while (0) -#else -#define set_lheader_implementation(header,imp) do { \ - struct lrecord_header* SLI_header = (header); \ - SLI_header->type = (imp)->lrecord_type_index; \ - SLI_header->mark = 0; \ - SLI_header->c_readonly = 0; \ - SLI_header->lisp_readonly = 0; \ -} while (0) -#endif struct lcrecord_header { @@ -179,7 +154,6 @@ enum lrecord_type lrecord_type_coding_system, lrecord_type_char_table, lrecord_type_char_table_entry, - lrecord_type_char_id_table, lrecord_type_byte_table, lrecord_type_uint16_byte_table, lrecord_type_uint8_byte_table, @@ -312,10 +286,6 @@ extern int gc_in_progress; #define MARK_RECORD_HEADER(lheader) ((void) ((lheader)->mark = 1)) #define UNMARK_RECORD_HEADER(lheader) ((void) ((lheader)->mark = 0)) -#define OLDER_RECORD_P(obj) (XRECORD_LHEADER (obj)->older) -#define OLDER_RECORD_HEADER_P(lheader) ((lheader)->older) - - #define C_READONLY_RECORD_HEADER_P(lheader) ((lheader)->c_readonly) #define LISP_READONLY_RECORD_HEADER_P(lheader) ((lheader)->lisp_readonly) #define SET_C_READONLY_RECORD_HEADER(lheader) do { \ @@ -779,14 +749,6 @@ void *alloc_lcrecord (size_t size, const struct lrecord_implementation *); #define alloc_lcrecord_type(type, lrecord_implementation) \ ((type *) alloc_lcrecord (sizeof (type), lrecord_implementation)) -#ifdef UTF2000 -void * -alloc_older_lcrecord (size_t size, const struct lrecord_implementation *); - -#define alloc_older_lcrecord_type(type, lrecord_implementation) \ - ((type *) alloc_older_lcrecord (sizeof (type), lrecord_implementation)) -#endif - /* Copy the data from one lcrecord structure into another, but don't overwrite the header information. */ -- 1.7.10.4